   GL_FRONT_AND_BACK GL_LINE glPolygonMode
 
   ! draw axis
-  white gl-color GL_LINES glBegin { 0 0 0 } gl-vertex { 0 0 1 } gl-vertex glEnd
+  COLOR: white gl-color GL_LINES
+  glBegin { 0 0 0 } gl-vertex { 0 0 1 } gl-vertex glEnd
 
   ! rotate pedestal
 


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

  black gl-clear

  GL_FLAT glShadeModel



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

:: interpret-string ( TURTLE STRING COMMANDS -- turtle )

  STRING empty? not
    [
      STRING read-instruction

      [let :> ( NEXT REST )

          NEXT 1 head COMMANDS at :> COMMAND

          COMMAND
            [
              NEXT length 1 =
                [ TURTLE COMMAND call( turtle -- turtle ) drop ]
                [
                  TURTLE
                  NEXT 2 tail 1 head* string>number
                  COMMAND 1 tail*
                  call( turtle x -- turtle ) drop
                ]
              if
            ]
          when

        TURTLE REST COMMANDS interpret-string drop ]
    ]
  when TURTLE ;

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

