Vocabulary
game-of-life

Inputs
gadgetan object


Outputs
None

Definition


:: draw-cells ( gadget -- )
T{ rgba
{ red 0.0 }
{ green 0.0 }
{ blue 0.0 }
{ alpha 1.0 }
} gl-color gadget size>> :> size gadget grid>>
{ array } declare [| row j |
row { bit-array } declare [| cell i |
cell [
i j [ size * ] bi@ 2array
{ size size } gl-fill-rect
] when
] each-index
] each-index ;