\ tinynums 98.10.15 12:42 am NAB
needs bitmap
: binary 2 base ! ;
: tinychar ( "name" -- )
5 4 bitmap binary ;
tinychar t0
1110000000000000 ,
1010000000000000 ,
1010000000000000 ,
1010000000000000 ,
1110000000000000 ,
tinychar t1
0100000000000000 ,
0100000000000000 ,
0100000000000000 ,
0100000000000000 ,
0100000000000000 ,
tinychar t2
1110000000000000 ,
0010000000000000 ,
1110000000000000 ,
1000000000000000 ,
1110000000000000 ,
tinychar t3
1110000000000000 ,
0010000000000000 ,
1110000000000000 ,
0010000000000000 ,
1110000000000000 ,
tinychar t4
1010000000000000 ,
1010000000000000 ,
1110000000000000 ,
0010000000000000 ,
0010000000000000 ,
tinychar t5
1110000000000000 ,
1000000000000000 ,
1110000000000000 ,
0010000000000000 ,
1110000000000000 ,
tinychar t6
1110000000000000 ,
1000000000000000 ,
1110000000000000 ,
1010000000000000 ,
1110000000000000 ,
tinychar t7
1110000000000000 ,
0010000000000000 ,
0100000000000000 ,
0100000000000000 ,
0100000000000000 ,
tinychar t8
1110000000000000 ,
1010000000000000 ,
1110000000000000 ,
1010000000000000 ,
1110000000000000 ,
tinychar t9
1110000000000000 ,
1010000000000000 ,
1110000000000000 ,
0010000000000000 ,
1110000000000000 ,
decimal
create tinies
' t0 >body , ' t1 >body , ' t2 >body ,
' t3 >body , ' t4 >body , ' t5 >body ,
' t6 >body , ' t7 >body , ' t8 >body ,
' t9 >body ,
: tinyspace ( -- ) 4 currentx +! ;
: tinycr ( -- )
6 currenty +! 0 currentx ! ;
: tinyemit ( char -- )
dup bl <> if
currenty @ currentx @
rot [char] 0 - cells tinies + @ >abs
WinDrawBitmap
else drop
then tinyspace ;
: tinytype ( c-addr u -- )
over + swap do i c@ tinyemit loop ;