Vocabulary
game-of-life

Inputs
gadgetan object


Outputs
None

Definition


:: draw-lines ( gadget -- )
gadget size>> :> size gadget grid>> grid-dim
:> ( rows cols ) T{ rgba
{ red 0.7450980392156863 }
{ green 0.7450980392156863 }
{ blue 0.7450980392156863 }
{ alpha 1.0 }
} gl-color cols rows [ size * ] bi@ :> ( w h ) rows [0,b] [|
j |
j size * :> y { 0 y } { w y } gl-line cols [0,b]
[| i | i size * :> x { x 0 } { x h } gl-line ] each
] each ;