Vocabulary
tetris.gl

Inputs
tetrisan object


Outputs
None

Definition


: set-background-color ( tetris -- )
dup running?>> [
paused?>> T{ rgba
{ red 0.8274509803921568 }
{ green 0.8274509803921568 }
{ blue 0.8274509803921568 }
{ alpha 1.0 }
} T{ rgba
{ red 1.0 }
{ green 1.0 }
{ blue 1.0 }
{ alpha 1.0 }
} ?
] [
drop T{ rgba
{ red 0.0 }
{ green 0.0 }
{ blue 0.0 }
{ alpha 1.0 }
}
] if gl-color ;