TriOS-alt/bin/sdcard/system/tpix.f

49 lines
869 B
Forth

\ requires bel.lib
\ requires g0.lib
\ requires ari.lib
hex
: it ; \ fuer forget
variable colortab 40 4* 4 - allot
variable tiletab g0:xtiles g0:ytiles * 2* 4 - allot
: fillcolortab
colortab
40 0 do
i dup + 4 + 0F and 00001010 * 0D060D02 +
over L! 4+
loop drop
;
: filltilescreen
tiletab g0:disp_base 6 rshift
g0:ytiles 0 do
g0:xtiles 0 do
swap 2dup W! 2+ swap g0:ytiles +
loop 341 +
loop 2drop ;
decimal
: setscreen
fillcolortab filltilescreen
tiletab colortab g0:setscreen
;
: tpix
g0:load setscreen g0:static
g0:clear 14 g0:width 1 g0:color
g0:xtiles 0 do i 16 * 8 +
g0:ytiles 0 do i 16 * 8 + over g0:plot loop drop
loop
key g0:clear
2000 0 do
rnd 31 and g0:width rnd 3 and g0:color
rnd rnd g0:plot
loop
key g0:reboot
cr ." erledigt" cr
;