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


Vocabulary
roms.space-invaders

Inputs
bitmapan object
pointan object
coloran object


Outputs
None

Definition


:: 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 ;