tinynums.txt


\ 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 ;


  HTMLized by Forth2HTML