set-bitmap-pixel ( bitmap point color -- )

Vocabulary

roms.space-invaders

Inputs

bitmap	an object
point	an object
color	an object

Outputs

None

Definition

USING: math sequences ;

IN: roms.space-invaders

:: set-bitmap-pixel ( bitmap point color -- )
    point bitmap-index :> index color first index bitmap set-nth
    color second index 1 + bitmap set-nth color third index 2 +
    bitmap set-nth ;