QPrint (falcon.h simplified) - Printable Version

Code: (Select All)
$IF FALCON = UNDEFINED THEN

    $LET FALCON = TRUE

    DECLARE LIBRARY "./falcon"

        SUB uprint_extra (BYVAL x&, BYVAL y&, BYVAL chars%&, BYVAL length%&, BYVAL kern&, BYVAL do_render&, txt_width&, BYVAL charpos%&, charcount&, BYVAL colour~&, BYVAL max_width&)

        FUNCTION uprint (BYVAL x&, BYVAL y&, chars$, BYVAL txt_len&, BYVAL colour~&, BYVAL max_width&)

        FUNCTION uprintwidth (chars$, BYVAL txt_len&, BYVAL max_width&)

        FUNCTION uheight& ()

        FUNCTION uspacing& ()

        FUNCTION uascension& ()

    END DECLARE

    DIM SHARED QPrintTextType AS STRING

    QPrintTextType = "ASCII"

$END IF





SCREEN _NEWIMAGE(1024, 720, 32)

f = _LOADFONT("cyberbit.ttf", 20, "monospace")

_FONT f





QPrintTextType = "ASCII" 'Here. we're printing using ASCII character codes



FOR y = 0 TO 15

    FOR x = 0 TO 15

        QPrintString x * 30, y * uheight, CHR$(count) 'To showcase the printstring version of Qprint

        count = count + 1

    NEXT

NEXT



SLEEP

CLS



QPrintTextType = "UTF8" 'This uses UTF8 (Unicode) character encoding to print.



OPEN "test.txt" FOR INPUT AS #1

DO UNTIL EOF(1)

    LINE INPUT #1, temp$

    QPrint temp$ 'tho show how simple Qprint itself is.

    SLEEP

LOOP





END



SUB QPrint (temp$)

    STATIC m AS _MEM: m = _MEMIMAGE(0)

    DIM BreakPoint AS STRING

    BreakPoint = ",./- ;:!" 'I consider all these to be valid breakpoints.  If you want something else, change them.

    IF QPrintTextType = "ASCII" OR QPrintTextType = "" THEN text$ = _TRIM$(AnsiTextToUtf8Text$(temp$)) ELSE text$ = temp$

    count = -1

    DO

        'first find the natural length of the line

        x = POS(0) - 1: IF _FONTWIDTH THEN x = x * _FONTWIDTH

        y = CSRLIN

        wide% = _WIDTH - x - 1

        FOR i = 1 TO LEN(text$)

            IF ASC(text$, i) = 10 OR ASC(text$, i) = 13 THEN i = i - 1: EXIT FOR

            p = uprintwidth(text$, i, 0)

            IF p > wide% THEN EXIT FOR

        NEXT

        'IF i < LEN(text$) THEN lineend = i - 1 ELSE

        lineend = i



        t$ = RTRIM$(LEFT$(text$, lineend)) 'at most, our line can't be any longer than what fits the screen.

        FOR i = lineend TO 1 STEP -1

            IF INSTR(BreakPoint, MID$(text$, i, 1)) THEN lineend = i: EXIT FOR

        NEXT

        out$ = RTRIM$(LEFT$(text$, lineend))

        text$ = LTRIM$(MID$(text$, lineend + 1))

        IF LEFT$(text$, 2) = CHR$(13) + CHR$(10) THEN text$ = MID$(text$, 3)

        IF LEFT$(text$, 2) = CHR$(10) + CHR$(13) THEN text$ = MID$(text$, 3)

        IF LEFT$(text$, 1) = CHR$(13) THEN text$ = MID$(text$, 2)

        IF LEFT$(text$, 1) = CHR$(10) THEN text$ = MID$(text$, 2)

        IF _BACKGROUNDCOLOR <> 0 THEN

            LINE (x - 1, (y - 1) * uheight)-STEP(uprintwidth(out$, LEN(out$), 0), uheight), _BACKGROUNDCOLOR, BF

        END IF

        w& = uprint(x - 1, (y - 1) * uheight, out$, LEN(out$), _DEFAULTCOLOR, 0)

        x = 1

        IF y + 1 >= _HEIGHT / uheight THEN 'scroll up

            h = uheight * _WIDTH * 4

            t$ = SPACE$(m.SIZE - h)

            _MEMGET m, m.OFFSET + h, t$

            CLS , 0

            _MEMPUT m, m.OFFSET, t$

            LOCATE y, x

        ELSE

            LOCATE y + 1, x

        END IF



    LOOP UNTIL text$ = ""

    clean_exit:

END SUB



FUNCTION QPrintWidth& (out$)

    QPrintWidth = uprintwidth(out$, LEN(out$), 0)

END FUNCTION



FUNCTION QFontHeight

    QFontHeight = uheight

END FUNCTION



SUB QPrintString (x, y, text$)

    IF QPrintTextType = "ASCII" OR QPrintTextType = "" THEN temp$ = _TRIM$(AnsiTextToUtf8Text$(text$)) ELSE temp$ = text$

    IF _BACKGROUNDCOLOR <> 0 THEN

        LINE (x, y)-STEP(uprintwidth(temp$, LEN(temp$), 0), uheight), _BACKGROUNDCOLOR, BF

    END IF

    w& = uprint(x, y, temp$, LEN(temp$), _DEFAULTCOLOR, 0)

END SUB



FUNCTION AnsiTextToUtf8Text$ (text$)

    DIM chi&, ascii%, unicode&, aci%

    FOR chi& = 1 TO LEN(text$)

        '--- get ANSI char code, reset Unicode ---

        unicode& = _MAPUNICODE(ASC(text$, chi&))

        IF unicode& = 0 THEN unicode& = 65533 'replacement character

        temp$ = temp$ + UnicodeToUtf8Char$(unicode&)

    NEXT chi&

    AnsiTextToUtf8Text$ = temp$

END FUNCTION



FUNCTION UnicodeToUtf8Char$ (unicode&)

    '--- option _explicit requirements ---

    DIM uc&, first%, remain%, conti%

    '--- UTF-8 encoding ---

    IF unicode& < 128 THEN

        '--- standard ASCII (0-127) goes as is ---

        UnicodeToUtf8Char$ = CHR$(unicode&)

        EXIT FUNCTION

    ELSE

        '--- encode the Unicode into UTF-8 notation ---

        temp$ = "": uc& = unicode& 'avoid argument side effect

        first% = &B10000000: remain% = 63

        DO

            first% = &B10000000 OR (first% \ 2): remain% = (remain% \ 2)

            conti% = &B10000000 OR (uc& AND &B00111111): uc& = uc& \ 64

            temp$ = CHR$(conti%) + temp$

            IF uc& <= remain% THEN

                first% = (first% OR uc&): uc& = 0

            END IF

        LOOP UNTIL uc& = 0

        UnicodeToUtf8Char$ = CHR$(first%) + temp$

    END IF

END FUNCTION