21 lines
379 B
Forth
21 lines
379 B
Forth
( 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 ;
|
|
|