(draw-row) ( x y row -- )

Vocabulary

tetris.gl

Inputs

x	an object
y	an object
row	an object

Outputs

None

Definition

USING: arrays kernel opengl sequences ;

IN: tetris.gl

: (draw-row) ( x y row -- )
    overd nth [ gl-color 2array draw-block ] [ 2drop ] if* ;