test = LoadSeg(Segments())
BUILDSEG Segments(), RedPrint(), &HFFFF0000, &HFF112222 ' Build characters images in set colors
BUILDSEG Segments
(), OrangePrint
(), _RGB32(255, 105, 0), _RGB32(28, 25, 28)
statictext$ = "*** SOME TEXT MESSAGE WITHOUT NEED FOR UPDATE *** "
statictext2$ = "SOME FASTEST TEXT "
PRINTSEG
5, 220, "CURRENT TIME IS " + TIME$ + " AND DATE IS " + DATE$, 20, RedPrint
() ' PRINTSEG X coordinate, Y coordinate, text$, characters size, Array with characters()
RUNPRINTSEG 5, 420, statictext$, 25, .6, OrangePrint() ' RUNPRINTSEG in own run swap characters in string, therefore must string be defined as variable!
' RUNPRINTSEG 5, 620, statictext2$, 35, .1, RedPrint() ' RUNPRINTSEG X coorinate, Y coordinate, string variable$, size, speed, array with characters()
' because is not shift time calculated separately for all RUNPRINTSEG calls, can be run just one at once.
SUB RUNPRINTSEG
(x
, y
, t$
, z
, tfs
, arr
() AS LONG) 'time for step prodleva = tfs
PRINTSEG x, y, t$, z, arr()
W = Z
H = R * Z
_PUTIMAGE (x
+ t
* W
, y
)-((x
+ t
* W
+ W
), (y
+ H
)), Arr
(ASC(t$
, t
)), 0, (0, 0)-(oW
, oH
)
SUB BUILDSEG
(arr
() AS segments
, CH
() AS LONG, c~&
, bck~&
) 'vytvori jednotlive znaky SUB build characters based on base picture 'vytvori pole znaku (do pole CH() )
Char$ = " ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz+-*/\=[]()0123456789_:<>"
CASE " ": CH
(n
) = DoChar
(" ", c~&
, bck~&
) CASE "A": CH
(n
) = DoChar
("HCABEIFG", c~&
, bck~&
) CASE "B": CH
(n
) = DoChar
("CFGHJLI", c~&
, bck~&
) CASE "C": CH
(n
) = DoChar
("ABCHJL", c~&
, bck~&
) CASE "D": CH
(n
) = DoChar
("ABDEIJKL", c~&
, bck~&
) CASE "E": CH
(n
) = DoChar
("ABCHJLF", c~&
, bck~&
) CASE "F": CH
(n
) = DoChar
("ABCHF", c~&
, bck~&
) CASE "G", "g": CH
(n
) = DoChar
("ABCHJLIG", c~&
, bck~&
) CASE "H": CH
(n
) = DoChar
("CHGFEI", c~&
, bck~&
) CASE "I": CH
(n
) = DoChar
("ABDKJL", c~&
, bck~&
) CASE "J": CH
(n
) = DoChar
("EILJH", c~&
, bck~&
) CASE "K": CH
(n
) = DoChar
("CHFNP", c~&
, bck~&
) CASE "L": CH
(n
) = DoChar
("CHJL", c~&
, bck~&
) CASE "M": CH
(n
) = DoChar
("CHMNEI", c~&
, bck~&
) CASE "N": CH
(n
) = DoChar
("CHMPIE", c~&
, bck~&
) CASE "O": CH
(n
) = DoChar
("ABEILJHC", c~&
, bck~&
) CASE "P": CH
(n
) = DoChar
("HCABEGF", c~&
, bck~&
) CASE "Q": CH
(n
) = DoChar
("ABEILJHCP", c~&
, bck~&
) CASE "R": CH
(n
) = DoChar
("HCABEGFP", c~&
, bck~&
) CASE "S": CH
(n
) = DoChar
("ABCFGIJL", c~&
, bck~&
) CASE "T": CH
(n
) = DoChar
("ABDK", c~&
, bck~&
) CASE "U": CH
(n
) = DoChar
("CHJLEI", c~&
, bck~&
) CASE "V": CH
(n
) = DoChar
("CHON", c~&
, bck~&
) CASE "W": CH
(n
) = DoChar
("CHOPIE", c~&
, bck~&
) CASE "X", "x": CH
(n
) = DoChar
("MNOP", c~&
, bck~&
) CASE "Y", "y": CH
(n
) = DoChar
("KMN", c~&
, bck~&
) CASE "Z": CH
(n
) = DoChar
("ABNOJL", c~&
, bck~&
) CASE "0": CH
(n
) = DoChar
("ABEILJHCNO", c~&
, bck~&
) CASE "1": CH
(n
) = DoChar
("DK", c~&
, bck~&
) CASE "2": CH
(n
) = DoChar
("ABEFGHJL", c~&
, bck~&
) CASE "3": CH
(n
) = DoChar
("ABEGILJ", c~&
, bck~&
) CASE "4": CH
(n
) = DoChar
("CEFGI", c~&
, bck~&
) CASE "5": CH
(n
) = DoChar
("ABCFGILJ", c~&
, bck~&
) CASE "6": CH
(n
) = DoChar
("ABCFGILJH", c~&
, bck~&
) CASE "7": CH
(n
) = DoChar
("ABNK", c~&
, bck~&
) CASE "8": CH
(n
) = DoChar
("ABEILJHCFG", c~&
, bck~&
) CASE "9": CH
(n
) = DoChar
("ABEILJCFG", c~&
, bck~&
) CASE "+": CH
(n
) = DoChar
("DGKF", c~&
, bck~&
) CASE "-": CH
(n
) = DoChar
("GF", c~&
, bck~&
) CASE "*": CH
(n
) = DoChar
("MDNFGOKP", c~&
, bck~&
) CASE "/": CH
(n
) = DoChar
("ON", c~&
, bck~&
) CASE "\": CH
(n
) = DoChar
("PM", c~&
, bck~&
) CASE "(", "[": CH
(n
) = DoChar
("ACHJ", c~&
, bck~&
) CASE ")", "]": CH
(n
) = DoChar
("BEIL", c~&
, bck~&
) CASE "_": CH
(n
) = DoChar
("JL", c~&
, bck~&
) CASE "=": CH
(n
) = DoChar
("FGJL", c~&
, bck~&
) CASE "a": CH
(n
) = DoChar
("FHJKL", c~&
, bck~&
) CASE "b": CH
(n
) = DoChar
("DKLIG", c~&
, bck~&
) CASE "c": CH
(n
) = DoChar
("GKL", c~&
, bck~&
) CASE "d": CH
(n
) = DoChar
("EILKG", c~&
, bck~&
) CASE "e": CH
(n
) = DoChar
("EBDGKL", c~&
, bck~&
) CASE "f": CH
(n
) = DoChar
("DKBFG", c~&
, bck~&
) CASE "h": CH
(n
) = DoChar
("DKGI", c~&
, bck~&
) CASE "i": CH
(n
) = DoChar
("K", c~&
, bck~&
) CASE "j": CH
(n
) = DoChar
("BEILK", c~&
, bck~&
) CASE "k": CH
(n
) = DoChar
("DKNP", c~&
, bck~&
) CASE "l": CH
(n
) = DoChar
("DKL", c~&
, bck~&
) CASE "m": CH
(n
) = DoChar
("HFKGI", c~&
, bck~&
) CASE "n": CH
(n
) = DoChar
("KGI", c~&
, bck~&
) CASE "o": CH
(n
) = DoChar
("KLIG", c~&
, bck~&
) CASE "p": CH
(n
) = DoChar
("KDEBG", c~&
, bck~&
) CASE "q": CH
(n
) = DoChar
("KDBEILP", c~&
, bck~&
) CASE "r": CH
(n
) = DoChar
("KDEBGP", c~&
, bck~&
) CASE "s": CH
(n
) = DoChar
("BDGIL", c~&
, bck~&
) CASE "t": CH
(n
) = DoChar
("DKLFG", c~&
, bck~&
) CASE "u": CH
(n
) = DoChar
("KLI", c~&
, bck~&
) CASE "v": CH
(n
) = DoChar
("PI", c~&
, bck~&
) CASE "w": CH
(n
) = DoChar
("HOPI", c~&
, bck~&
) CASE "z": CH
(n
) = DoChar
("FOJ", c~&
, bck~&
) CASE ":": CH
(n
) = DoChar
(" ", c~&
, bck~&
) CASE "<": CH
(n
) = DoChar
("NP", c~&
, bck~&
) CASE ">": CH
(n
) = DoChar
("MO", c~&
, bck~&
)
FUNCTION DoChar
(cmd$
, clr~&
, clr2~&
) ' Function return character image build by cmd$
PAINT (Segments
(d
).X
, Segments
(d
).Y
), clr~&
, &HFFFFFFFF PAINT (Segments
(d
).X
, Segments
(d
).Y
), clr2~&
, &HFFFFFFFF
' function build base image writed in this source code as Base64 source. Then set character for every segment in picture.
' --A-- --B--
' I\ I /I
' C M D N E
' I \ I / I
' I--F-- --G--I
' I / I \ I
' H O K P "I"
' I / I \ I
' --J-- --L--
'
'definice segmentu (oznaceni pismenama)
S(1).popis = "A"
S(1).X = 40
S(1).Y = 10
S(2).popis = "B"
S(2).X = 97
S(2).Y = 10
S(3).popis = "C"
S(3).X = 10
S(3).Y = 57
S(4).popis = "D"
S(4).X = 72
S(4).Y = 57
S(5).popis = "E"
S(5).X = 130
S(5).Y = 57
S(6).popis = "F"
S(6).X = 37
S(6).Y = 98
S(7).popis = "G"
S(7).X = 100
S(7).Y = 100
S(8).popis = "H"
S(8).X = 10
S(8).Y = 140
S(9).popis = "I"
S(9).X = 130
S(9).Y = 150
S(10).popis = "J"
S(10).X = 40
S(10).Y = 190
S(11).popis = "K"
S(11).X = 70
S(11).Y = 150
S(12).popis = "L"
S(12).X = 100
S(12).Y = 190
S(13).popis = "M"
S(13).X = 40
S(13).Y = 50
S(14).popis = "N"
S(14).X = 100
S(14).Y = 50
S(15).popis = "O"
S(15).X = 40
S(15).Y = 140
S(16).popis = "P"
S(16).X = 100
S(16).Y = 150
'Base64 record
image(0) = "iVBORw0KGgoAAAANSUhEUgAAAIwAAADHCAMAAAD8gUujAAAAYFBMVEVNTU0AAAD////5+fljY2N/f3+4uLjDw8Pt7e2IiIjz8/N8fHxRUVFUVFRYWFiwsLClpaXf399dXV3m5uZpaWnIyMhsbGzU1NR0dHSenp7Z2dmQkJCkpKSKiori4uLu7u5QVRc7AAAI2ElEQVR4nNXd6XbjKBAGUIzi3UnGcRxn6U7e/y0HyVqgqKIWmHMy/OpFwjfKJ1lLgdwqb17eGq4amkMtB1Hrsi7DP3SydVFNjgmL/eNE7XQFXYa/Xk+ydZ8xTYaRWzKNwuLcP4gGYjQWoFFZUI2rsSSa8IetwoJpXJUlaLZjl2oLonF1llljsOQaV2kZNSZLpnG1lkljsUCNiy0bS39Bc9PtR3HbxBoXWXz3YOrwdef97tW2ahd/M7jF8vzpO0uXbz9+"
image(1) = "t/M/bzbLZ3QsdlFeHm++03cZLJfT6WLRvHX+9hjlxsXZtWgGS8iNQXO3RCl2yX6k14wWi2ayLBqX7tNazfthtOg177Nl1jhwfOk17xbLoDkoVo0sk8bBY51Gk1h0mtQyaly/TyeLPYU9/GsvaV9hn447dI9hDxeuGvbpp+Rj+z3cQcugkbbUMmikDVgGjfNdtgnX4VPGxvSYHSNfOf3c7zr72I7A7KY/fnj0NH46UmZfHw/Fxf3HtNzOgjl9t8Sc57SbMO5Y2DQ6TOjoOC9nw7htO8x2Wc6IeejI/lWYcILyUo0pZFiDidNbgTmd22DO8bmgFUNnWIEJXSRfFGYMmWEVZpssZ8e8EBmWY7w/vCTL2TFUhsUYkN46DJFhBeYMrmQqMESGpRiY3koMnmE5ZguXq8KgGRZisvTWYtAMyzB5eqsxWIalGJjeakx/+gc/R4Tx"
image(2) = "2EmdCtM9Zv+IZFiIydIbzpU7BQa7UfNyyO/68hgsvcPJtwKD3Y7IMizAoOkdboQoMP6Wd5FlWIRB0utuaJBojN/nfbyDTcNjkGNvaHuvxcDrs75t9RgsvTs1RpBhFkOmd6XCrCQZ5jB0epWYlSDDPIZI70qPYTPMYOj0qjErPsMshkjvSo9Z5TdLXJrhMoZOrw3DZLiIKaTXgmEzzGDI9Box5QyXMKX0mjBchssYOr02DJPhAqaYXjOmlGEaU06vEVPOcAlTSq8dU8gwicHT+9dXYooZLmCK6TVjShmmMFx6azBkhgkMm147ppBhEsOktwpDZRjH8OmtwNAZpjBcemswdIZxDJveSgyVYRTDprcKQ2cYw/DprcVgGT7imGO+5N43xIR1L0iGcUy+3OMF6dCOwTMsxcD01mOQDAsxb+gduAoMmmEhJktvA4z/a8P8RTZM"
image(3) = "JQY7DoswTz94b1UYJMMiDJLeJhiYYQkGS28DTJ5hCQZLbxsMyLAAg6a3BSbLMI/B09sEAzPMY/D0tsL4uHaIxRDpbYMBGWYxRHqbYeIMcxgqvY0woZOfpQiHwZDpbYVJMsxgyPQ2xCwZLmPo9GoxpXbZjg3HTP97KfeCY/KTVnkBWFazuxGv+glXPQ7VaB3QfPpuI2rbTBMsW9m6HfyiO4armb5osEs22TnTke0LXD0G3Zdw1fDZ5/jv6/7KaiinjDVnTTllqlFYhhLGSDNYxkLTRaOypJotcmYq1NwtUwnupFFahqPs1mSJNaNlLk6+a9SWRaO2LJrJspRt9xqDZdIYLJNmtkQF7d3aZLlrTJa7ZrGAUn/pPp22r35d+X4UtyNa6k/d1Ra1/OgnbslTz9+4ZXrJ+xUci4Ut/HDPz7bNGvJyfV+G1rnF4pxJ8zGc4pg0"
image(4) = "vWVIcbxrjxaT5mM83TJo9oMl0rjYMmiQG2YCi0EzWRaNSyxqzUd0GqrULJZZ41KLUvMnuaxTaWLLpHHAotL8AZeYQfPHZBk1+JneVtSu2JneVbYufqb3u86B1VcH389jw68Opv/9LvfS5rppGTjXYZi5u0IlfLPL26jiqIxBh/o2xkT37RkMcpe+KSb9XTMYrAKzLeaarF3GhEPWf4gBwz5ZDJ3hFjcY03o5FkNnuAXmckrX5jBkhlvcB16DtTkMmeEGmCtcm8VQGW7w7OABrs1jiAxXP+LJqj0lGCLD1ZgLfEYswuAZrn4Sl60uwuAZrsVckbUlGDTDtU9v8yH3QgyW4bqH7FitshCDZbj9E38ppu0Tf/+baiGw9Pajs1FMdgRwSIar6meQCSPCRRNeP4NcOmUZrihzwtLb949jMDnMcAWG2PJUzRXxO22BQa9xxmsr"
image(5) = "ohqNWL4JhvpJyTo9PsP2CkYivYUKRjbD1kJTKr2l2k42w1YMvc0LVa9chq31wHQaS/XATIaNmMLPWKqUZjJsrCGn0stgmAybSv3p9BYxbIZNmOLWLo87KGbYNCKjmENmREZpXQumvIcyY1VKW9Uyiqd87OJG8RQyrB9sxR3VufFNhZ9Fj+G+79iRX/RvWT8mjjsT4MfEkT2oMew5Ej9akNy26nGU7NmjYBwllTpt/Qx/Xi0YYUr9REqM4IpDMvaW+F0rMfx5rAhDnj9rMIIzfAGmcGWhGckuuPaRYajvfQVGclUowdBnRP/T2Q9+1bwQyIwZyH1C6YwZSIbrMNgdVPFcInmGqzDovWXxLCt5hqsw6F13+fwz2VGrBoM/j1DMzAM/umbOIvxJjWLOIpjhCgzxDEszmxPIsB1DPd3TzHMFMmzHUM89VTOApRk2Y8gnwrq5"
image(6) = "0ZJPN88aRz4r180ad2kxaxxdRaCcTy/OsBGTjce0YUCGjRj6qb0Ok2bYhinUM6gxEcCEgaOJKzBJhk2YUg2MHrNkWI7ZLy88KJcq6ed6XfrNH2ANgyDgIMDheYmsVcyCm53jDLPgQk2wfK+PkrbH5gfei1Zdf0PNMD9w/6uMK9xes2mE6fa684do2aeDfG70JzDp+TBT+722c9FoLECjsUDNfdb4sep10ugsiSZYLsj1mkgzzmA/1QNvTJaQsMuo0VpizTSb/lwpvTFZZo3esmjmmf2XGvKNyTJqLJZJs7xlIJrVf2OyDJqfH4vlroneeJCU+p8tlqr3HTyd/WJJB0EgkwpIWs2bIJI3z6TvyDCNqxjerWLUJG+lgG8PMWgeb/cvmytyT0dnyd6rotYMlmHVm1oDLPkbZ5Sa0WLSQAvyLh6VZrYYNJkFe0uRQhNZ1Jrc"
image(7) = "gr6/SaxJLEoNYsHfbCXUAItKg1mId37JW7NVCYymy4arhvYvfkKRPpGglR8AAAAASUVORK5CYIJC"
DECODE64 image(), "loadsegimage.png" 'create file image.png
'$include:'base64.bm'
