set-color ( turtle i -- turtle )

Vocabulary

L-system

Inputs

turtle	an object
i	an object

Outputs

turtle

an object

Definition

USING: accessors kernel opengl sequences ;

IN: L-system

: set-color ( turtle i -- turtle )
    dup color-table nth dup gl-color material-color >>color ;