draw-tetris ( width height tetris -- )

Vocabulary

tetris.gl

Inputs

width	an object
height	an object
tetris	an object

Outputs

None

Definition

USING: accessors combinators opengl tetris.game ;

IN: tetris.gl

: draw-tetris ( width height tetris -- )
    [
        {
            [ board>> scale-board ]
            [ set-background-color ]
            [ board>> draw-background ]
            [ board>> draw-board ]
            [ next-piece draw-next-piece ]
            [ current-piece draw-piece ]
        } cleave
    ] do-matrix ;