Handbook Glossary
factorcode.org
L-system


Vocabulary
L-system

Definition
USING: ui.gadgets ;

IN: L-system

TUPLE: L-system < gadget
camera display-list pedestal paused turtle-values commands
axiom rules string ;


Methods
USING: L-system accessors colors opengl opengl.demo-support
opengl.gl ui.render ;

M:: L-system draw-gadget* ( L-SYSTEM -- )
T{ rgba
{ red 0.0 }
{ green 0.0 }
{ blue 0.0 }
{ alpha 1.0 }
} gl-clear GL_FLAT glShadeModel GL_PROJECTION glMatrixMode
glLoadIdentity -1 1 -1 1 1.5 200 glFrustum
GL_MODELVIEW glMatrixMode
glLoadIdentity L-SYSTEM camera>> do-camera-look-at
GL_FRONT_AND_BACK GL_LINE glPolygonMode T{ rgba
{ red 1.0 }
{ green 1.0 }
{ blue 1.0 }
{ alpha 1.0 }
} gl-color GL_LINES glBegin { 0 0 0 } gl-vertex
{ 0 0 1 } gl-vertex
glEnd L-SYSTEM pedestal>> 0 0 1 glRotated
L-SYSTEM display-list>> glCallList ;


USING: L-system accessors opengl.gl ui.gadgets ui.gadgets.worlds
;

M:: L-system graft* ( L-SYSTEM -- )
L-SYSTEM find-gl-context
1 glGenLists L-SYSTEM display-list<< ;


USING: L-system ui.gadgets ;

M:: L-system pref-dim* ( L-SYSTEM -- dim ) { 400 400 } ;