aboutsummaryrefslogtreecommitdiff
path: root/docs/j1demo/firmware/sprite.fs
blob: 877917a822256ddd89fbedb10356f075c4bda100 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
( 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 ;