set-background-color ( tetris -- )

Vocabulary

tetris.gl

Inputs

tetris

an object

Outputs

None

Definition

USING: accessors colors kernel opengl ;

IN: tetris.gl

: set-background-color ( tetris -- )
    dup running?>>
    [ paused?>> COLOR: light-gray COLOR: white ? ]
    [ drop COLOR: black ] if gl-color ;