 
 :: iterate-string ( STRING RULES -- string )
 
-  [let | ACCUM [ STRING length  10 *  <sbuf> ] |
+  [let STRING length 10 * <sbuf> :> ACCUM
 
     STRING RULES ACCUM iterate-string-loop
 


:: with-camera ( L-SYSTEM QUOT -- )
  L-SYSTEM camera>> QUOT call drop
  L-SYSTEM relayout-1 ;

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



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

  COLOR: black gl-clear

  GL_FLAT glShadeModel

