cprint and cfprint text mode routines

[SMcNeill]

aye may take more than this?

Give this a shot and see how it compares for speed:

Code: (Select All)

CONST limit = 1000000



PRINT "Let's do some time tests!"

PRINT "Running cprint "; limit; "times!"

t## = TIMER

FOR i = 1 TO limit

    x = INT(RND * 70) + 1

    y = INT(RND * 20) + 1

    cprint x, y, INT(RND * 32), INT(RND * 16), "CPRINT!!"

NEXT

t1## = TIMER

CLS

PRINT "Running cprintFAST "; limit; "times!"

t2## = TIMER

FOR i = 1 TO limit

    x = INT(RND * 65) + 1

    y = INT(RND * 20) + 1

    cprintFAST x, y, INT(RND * 32), INT(RND * 16), "CPRINTFAST!!"

NEXT

t3## = TIMER

CLS

PRINT "Running cfprint "; limit; "times!"

t4## = TIMER

FOR i = 1 TO limit

    x = INT(RND * 70) + 1

    y = INT(RND * 20) + 1

    cfprint x, y, INT(RND * 32), "CPRINT!!"

NEXT

t5## = TIMER

CLS

PRINT "Running cfprintFAST "; limit; "times!"

t6## = TIMER

FOR i = 1 TO limit

    x = INT(RND * 65) + 1

    y = INT(RND * 20) + 1

    cfprintFAST x, y, INT(RND * 32), "CPRINTFAST!!"

NEXT

t7## = TIMER



LOCATE 21, 1

PRINT "Printing results for"; limit; "runs:"

PRINT USING "###.###### seconds for cprint"; t1## - t##

PRINT USING "###.###### seconds for cprintFAST"; t3## - t2##

PRINT USING "###.###### seconds for cprint"; t5## - t4##

PRINT USING "###.###### seconds for cprintFAST"; t7## - t6##









SUB cprint (x, y, fg, bg, txt$)

    'print color text txt$ at location x,y color fg,bg without altering global color values

    'txt$ may  contain control characters without using  _controlchr

    'use on screen mode 0 screens only

    DIM o AS _MEM

    ii& = _DEST

    o = _MEMIMAGE(ii&)

    w = (_WIDTH(ii&)) * 2

    ts = (y - 1) * w + (x - 1) * 2

    n = 0

    IF fg > 15 THEN

        ff = fg - 16

        bb = 1

    ELSE

        ff = fg

        bb = 0

    END IF

    c = bb * 128 + ff + bg * 16

    FOR cx = 1 TO LEN(txt$)

        v = ASC(MID$(txt$, cx, 1))

        _MEMPUT o, o.OFFSET + ts + (cx - 1) * 2, v AS _UNSIGNED _BYTE

        _MEMPUT o, o.OFFSET + ts + (cx - 1) * 2 + 1, c AS _UNSIGNED _BYTE

    NEXT cx

    _MEMFREE o

END SUB

SUB cfprint (x, y, fg, txt$)

    'print color text txt$ at location x,y color fg without altering global color values or background colors under txt$

    'txt$ may  contain control characters without using  _controlchr

    'this simulates some of the behavior of _printmode _keepbackground

    'use on screen mode 0 screens only

    DIM o AS _MEM

    ii& = _DEST

    o = _MEMIMAGE(ii&)

    w = (_WIDTH(ii&)) * 2

    ts = (y - 1) * w + (x - 1) * 2

    n = 0

    IF fg > 15 THEN

        ff = fg - 16

        bb = 1

    ELSE

        ff = fg

        bb = 0

    END IF

    FOR cx = 1 TO LEN(txt$)

        v = ASC(MID$(txt$, cx, 1))

        c1 = _MEMGET(o, o.OFFSET + ts + (cx - 1) * 2 + 1, _UNSIGNED _BYTE)

        ccb$ = thebit$(c1, 6, 4)

        bg = VAL("&B" + ccb$)

        c = bb * 128 + ff + bg * 16

        _MEMPUT o, o.OFFSET + ts + (cx - 1) * 2, v AS _UNSIGNED _BYTE

        _MEMPUT o, o.OFFSET + ts + (cx - 1) * 2 + 1, c AS _UNSIGNED _BYTE

    NEXT cx

    _MEMFREE o

END SUB

FUNCTION thebit$ (n, sb, eb)

    'grabs  bits from starting bit SB to end bit eb

    IF eb > sb THEN EXIT FUNCTION

    a$ = ""

    FOR b = sb TO eb STEP -1

        IF _READBIT(n, b) = 0 THEN a$ = a$ + "0" ELSE a$ = a$ + "1"

    NEXT b

    thebit$ = a$

END FUNCTION





$CHECKING:OFF

SUB cprintFAST (x, y, fg, bg, txt$)

    'print color text txt$ at location x,y color fg,bg without altering global color values

    'txt$ may  contain control characters without using  _controlchr

    'use on screen mode 0 screens only

    DIM o AS _MEM

    DIM AS _OFFSET ts, math_once

    o = _MEMIMAGE(_DEST)

    w = (_WIDTH(_DEST)) * 2

    ts = o.OFFSET + (y - 1) * w + (x - 1) * 2

    c = (fg \ 16) * 128 + (fg MOD 16) + bg * 16

    FOR cx = 1 TO LEN(txt$)

        math_once = ts + (cx - 1) * 2

        v = ASC(txt$, cx)

        _MEMPUT o, math_once, v AS _UNSIGNED _BYTE

        _MEMPUT o, math_once + 1, c AS _UNSIGNED _BYTE

    NEXT cx

    _MEMFREE o

END SUB

SUB cfprintFAST (x, y, fg, txt$)

    'print color text txt$ at location x,y color fg without altering global color values or background colors under txt$

    'txt$ may  contain control characters without using  _controlchr

    'this simulates some of the behavior of _printmode _keepbackground

    'use on screen mode 0 screens only

    DIM o AS _MEM

    DIM AS _OFFSET ts, math_once

    o = _MEMIMAGE(_DEST)

    w = (_WIDTH(_DEST)) * 2

    ts = o.OFFSET + ((y - 1) * w + (x - 1) * 2)

    ff = fg MOD 16

    cc = INT(fg / 16) * 128 + ff

    FOR cx = 1 TO LEN(txt$)

        math_once = ts + (cx - 1) * 2

        v = ASC(txt$, cx)

        c1 = _MEMGET(o, math_once + 1, _UNSIGNED _BYTE)

        c = cc + (c1 \ 16) * 16

        _MEMPUT o, math_once, v AS _UNSIGNED _BYTE

        _MEMPUT o, math_once + 1, c AS _UNSIGNED _BYTE

    NEXT cx

    _MEMFREE o

END SUB

$CHECKING:ON

Unless I screwed something up with how it's supposed to perform (I don't think I did), it seems to be a wee bit faster like this.