generate-display-list ( L-SYSTEM -- )

Vocabulary

L-system

Inputs

L-SYSTEM

an object

Outputs

None

Definition

USING: accessors combinators kernel opengl.gl ui.gadgets.worlds
;

IN: L-system

:: generate-display-list ( L-SYSTEM -- )
    L-SYSTEM find-gl-context
    L-SYSTEM display-list>> GL_COMPILE glNewList
    <turtle> L-SYSTEM turtle-values>> [ ] or
    ( turtle -- turtle ) call-effect
    L-SYSTEM string>> L-SYSTEM axiom>> or
    L-SYSTEM commands>> interpret-string drop glEndList ;