draw-cells ( gadget -- )

Vocabulary

game-of-life

Inputs

gadget

an object

Outputs

None

Definition

USING: accessors arrays bit-arrays colors kernel kernel.private
math opengl sequences ;

IN: game-of-life

:: draw-cells ( gadget -- )
    COLOR: black gl-color gadget size>> :> size
    { size size } :> dim gadget grid>> { array } declare [| row
    j |
        row { bit-array } declare [| cell i |
            cell
            [ i j [ size * ] bi@ 2array dim gl-fill-rect ] when
        ] each-index
    ] each-index ;