material-color ( color -- )


Vocabulary
L-system

Inputs
coloran object


Outputs
None

Definition
USING: arrays colors kernel opengl opengl.gl ;

IN: L-system

: material-color ( color -- )
GL_FRONT_AND_BACK GL_AMBIENT_AND_DIFFUSE rot
>rgba-components 4array gl-material ;