SCREEN _NEWIMAGE(640, 480, 32)

f = _LOADFONT("arial.ttf", 16)

_FONT f



_MAPUNICODE 937 TO 3



omega$ = UChr$(937, 0): PRINT omega$

omega2$ = UChr$(937, 8): _UPRINTSTRING (0, 30), omega2$, , 8

omega3$ = UChr$(937, 16): _UPRINTSTRING (0, 60), omega3$, , 16

omega4$ = UChr$(937, 32): _UPRINTSTRING (0, 90), omega4$, , 32



FUNCTION UChr$ (codepoint AS LONG, encoding AS LONG)

    SELECT CASE encoding

        CASE 0: UChr = CPtoASCII(codepoint)

        CASE 8: UChr = CPto8(codepoint)

        CASE 16: UChr = CPto16(codepoint)

        CASE 32: UChr = CPto32(codepoint)

    END SELECT

END FUNCTION



FUNCTION CPto16$ (codepoint AS LONG)

    SELECT CASE codepoint

        CASE IS <= &HFFFF&& 'use a single codepoint

            temp$ = MKI$(codepoint)

        CASE ELSE 'uses 2 code points

            DIM highSurrogate AS LONG, lowSurrogate AS LONG

            highSurrogate = &HD800 + ((codepoint - &H10000) \ &H400)

            lowSurrogate = &HDC00 + ((codepoint - &H10000) MOD &H400)

            temp$ = MKI$(highSurrogate) + MKI$(lowSurrogate)

    END SELECT

    CPto16 = temp$

END FUNCTION







FUNCTION CPto8$ (codepoint AS LONG)

    SELECT CASE codepoint

        CASE IS <= &H7F&&

            temp$ = CHR$(codepoint)

        CASE IS <= &H7FF&&

            temp$ = CHR$(&HC0 OR _SHR(codepoint, 6))

            temp$ = temp$ + CHR$(&H80 + (codepoint AND &H3F))

        CASE IS <= &HFFFF&&

            temp$ = CHR$(&HE0 OR _SHR(codepoint, 12))

            temp$ = temp$ + CHR$(&H80 OR (_SHR(codepoint, 6) AND &H3F))

            temp$ = temp$ + CHR$(&H80 + (codepoint AND &H3F))

        CASE IS <= &H10FFFF&&

            temp$ = CHR$(&HF0 OR _SHR(codepoint, 18))

            temp$ = temp$ + CHR$(&H80 OR _SHR(codepoint, 12) AND &H3F)

            temp$ = temp$ + CHR$(&H80 OR (_SHR(codepoint, 6) AND &H3F))

            temp$ = temp$ + CHR$(&H80 + (codepoint AND &H3F))

    END SELECT

    CPto8 = temp$

END FUNCTION



FUNCTION CPto32$ (codepoint AS LONG)

    CPto32$ = MKL$(codepoint)

END FUNCTION



FUNCTION CPtoASCII$ (codepoint AS LONG)

    FOR i = 0 TO 255

        IF _MAPUNICODE(i) = codepoint THEN CPtoASCII$ = CHR$(i): EXIT FUNCTION

    NEXT

END FUNCTION