draw-lines ( gadget -- )

Vocabulary

game-of-life

Inputs

gadget

an object

Outputs

None

Definition

USING: accessors colors kernel math opengl ;

IN: game-of-life

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