sprite.fs 379 B

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