 : L-system ( -- L-system )
 
   <L-system> new-gadget
-  
-    turtle 45 turn-left 45 pitch-up 5 step-turtle 180 turn-left >>camera ;
-
-! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
-
+
+    0 >>pedestal
+  
+    ! turtle 45 turn-left 45 pitch-up 5 step-turtle 180 turn-left >>camera ;
+
+    turtle 90 pitch-down -5 step-turtle 2 strafe-up >>camera
+
+    dup start-rotation-thread
+
+  ;
+
+! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+

  ! draw axis
  white gl-color GL_LINES glBegin { 0 0 0 } gl-vertex { 0 0 1 } gl-vertex glEnd

  L-SYSTEM display-list>> glCallList ;

! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!


USING: accessors arrays assocs calendar colors
combinators.short-circuit kernel locals math math.functions
math.matrices math.order math.parser math.trig math.vectors
opengl opengl.demo-support opengl.gl sbufs sequences strings
threads ui.gadgets ui.gadgets.worlds ui.gestures ui.render ;

! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

