scale-board ( width height board -- )

Vocabulary

tetris.gl

Inputs

width	an object
height	an object
board	an object

Outputs

None

Definition

USING: accessors kernel math opengl.gl ;

IN: tetris.gl

: scale-board ( width height board -- )
    [ width>> ] [ height>> ] bi swapd [ / ] dup 2bi* 1 glScalef
    ;