get-bitmap-pixel ( point array -- color )

Vocabulary

roms.space-invaders

Inputs

point	an object
array	an object

Outputs

color

an object

Definition

USING: arrays kernel math sequences ;

IN: roms.space-invaders

: get-bitmap-pixel ( point array -- color )
    [ bitmap-index ] dip
    [ nth ] [ [ 1 + ] dip nth ] [ [ 2 + ] dip nth ] 2tri 3array
    ;