Handbook
Glossary
plot-bitmap-bits ( bitmap point byte bit -- )
Vocabulary
roms
.
space-invaders
Inputs
bitmap
an
object
point
an
object
byte
an
object
bit
an
object
Outputs
None
Definition
USING:
arrays
kernel
math
sequences
;
IN:
roms.space-invaders
:
plot-bitmap-bits
( bitmap point byte bit -- )
[
first2
]
2dip
dup
swapd
-1
*
shift
1
bitand
0
=
[
-
2array
]
dip
[
black
]
[
dup
get-point-color
]
if
plot-bitmap-pixel
;