draw-lines ( gadget -- )


Vocabulary
game-of-life

Inputs
gadgetan object


Outputs
None

Definition


:: draw-lines ( gadget -- )
gadget size>> :> size gadget grid>> grid-dim
:> ( rows cols ) COLOR: gray gl-color cols rows
[ size * ] bi@ :> ( w h ) rows [0..b]
[| j | j size * :> y { 0 y } { w y } gl-line ] each
cols [0..b]
[| i | i size * :> x { x 0 } { x h } gl-line ] each ;