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 ;