1234567891011121314151617181920 |
- ( Sprite low-level JCB 15:23 11/15/10)
- : vga-line@
- begin
- vga_line @
- vga_line @
- over xor
- while
- drop
- repeat
- ;
- : waitblank begin vga-line@ d# 512 = until ;
- : sprite! ( x y spr -- )
- 2* cells vga_spritey + tuck ! 2- ! ;
- : hide \ hide all the sprites at (800,800)
- d# 8 0do d# 800 dup i sprite! loop ;
|