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 ;