do-bitmap-update ( bitmap value addr -- )
Vocabulary
space-invaders
Definition
USING:
kernel
;
IN:
space-invaders
:
do-bitmap-update
( bitmap value addr -- )
addr>xy
swap
[
0
plot-bitmap-bits
]
3keep
[
1
plot-bitmap-bits
]
3keep
[
2
plot-bitmap-bits
]
3keep
[
3
plot-bitmap-bits
]
3keep
[
4
plot-bitmap-bits
]
3keep
[
5
plot-bitmap-bits
]
3keep
[
6
plot-bitmap-bits
]
3keep
7
plot-bitmap-bits
;