 
 :: do-camera-look-at ( CAMERA -- )
 
-  [let | EYE   [ CAMERA pos>> ]
-         FOCUS [ CAMERA clone 1 step-turtle pos>> ]
-         UP    [ CAMERA clone 90 pitch-up 1 step-turtle pos>> CAMERA pos>> v- ]
-       |
+  [let
+      CAMERA pos>> :> EYE
+      CAMERA clone 1 step-turtle pos>> :> FOCUS
+      CAMERA clone 90 pitch-up 1 step-turtle pos>> CAMERA pos>> v- :> UP
 
     EYE FOCUS UP gl-look-at ] ;
 

    ]
  }

  { T{ key-down f f "F1" } [ drop "L-system" help-window ] }
    
}
set-gestures


M:: <L-system> draw-gadget* ( L-SYSTEM -- )

  COLOR: black gl-clear

  GL_FLAT glShadeModel

