draw-next-piece ( piece -- )

Vocabulary

tetris.gl

Inputs

piece

an object

Outputs

None

Definition

USING: accessors colors kernel opengl ;

IN: tetris.gl

: draw-next-piece ( piece -- )
    dup tetromino>> color>> >rgba-components drop 0.2 <rgba>
    gl-color draw-piece-blocks ;