if (file.exists("/image1.bmp") = 0) then
file.frombase64 "/T3_16_Bold10pt7b.bin.txt", "/T3_16_Bold10pt7b.bin"
file.frombase64 "/FreeSerifBold12pt7b.bin.txt", "/FreeSerifBold12pt7b.bin"
file.frombase64 "/stop_sign.bmp.txt", "/stop_sign.bmp"
endif
data "Good Morning", "rgbyMrgbyMrgbyM", 1
data "How are you?", "rgbyMrgbyM", 10
data "ANNEX AND NEOPIXELS", "rgbyMvkwbrgbyM", 11
data "WORKS VERY WELL TOGETHER", "rgbyMrgbyMrgMrgMrgMrgbyM", 1
dim msg$(10)
dim col$(10)
dim myfont(10)
for z = 0 to 3
read msg$(z), col$(z), myfont(z)
next z
seq = 0
nb_messages = z
wlog ramfree
neoscroll.setup 16, 2, 13, 0, 512, 32
neoscroll.brightness 255
neoscroll.text.brightness 255
neoscroll.show 0, 0
tft.loadfont "/T3_16_Bold10pt7b.bin", 1
tft.loadfont "/FreeSerifBold12pt7b.bin", 2
neoscroll.spritesheet "/stop_sign.bmp"
set_message
neoscroll.sprite neoscroll.x, 0, 16, 16, 0, 0
neoscroll.sync
neoscroll.mode 0'horizontal
timer0 50, scrolla
wait
sub set_message
neoscroll.fill 0
neoscroll.text.pos 0, 15
neoscroll.text.font myfont(seq)
neoscroll.print msg$(seq), col$(seq)
wlog "dim", neoscroll.x, neoscroll.y
neoscroll.sprite neoscroll.x, 0, 16, 16, 0, 0
neoscroll.sync
seq = seq + 1
if seq >= nb_messages then seq = 0
end sub
scrolla:
a = neoscroll.oscillate
if (a = 1) then set_message
return
'