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 locals 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 locals 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 locals ui.gadgets ;

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