/usr/share/mozart/doc/demo/node22.html

1
2

<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD><TITLE>A single 3D flower: Flowers3d.oz</TITLE><LINK href="ozdoc.css" rel="stylesheet" type="text/css"></HEAD><BODY><TABLE align="center" border="0" cellpadding="6" cellspacing="6" class="nav"><TR bgcolor="#DDDDDD"><TD><A href="node21.html#code.flowers">&lt;&lt; Prev</A></TD><TD><A href="flowers.html">- Up -</A></TD></TR></TABLE><DIV class="unnumbered" id="code.flowers3d"><H3><A name="code.flowers3d">A single 3D flower: <CODE>Flowers3d.oz</CODE></A></H3><P class="margin"><A href="Flowers/Flowers3d.oz">Source File</A></P><P> </P><BLOCKQUOTE><PRE><SPAN class="keyword">functor</SPAN>&nbsp;<BR>&nbsp;<BR><SPAN class="keyword">import</SPAN>&nbsp;<BR>&nbsp;&nbsp;&nbsp;Tk<BR>&nbsp;&nbsp;&nbsp;Application<BR>&nbsp;&nbsp;&nbsp;&nbsp;<BR><SPAN class="keyword">define</SPAN>&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;<BR>&nbsp;&nbsp;&nbsp;<SPAN class="keyword">class</SPAN>&nbsp;<SPAN class="type">WindowClass</SPAN>&nbsp;<SPAN class="keyword">from</SPAN><SPAN class="type">&nbsp;BaseObject</SPAN>&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<SPAN class="keyword">feat</SPAN>&nbsp;width&nbsp;height&nbsp;win&nbsp;view&nbsp;frame&nbsp;button1&nbsp;button2<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<SPAN class="keyword">attr</SPAN>&nbsp;color<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<SPAN class="keyword">meth</SPAN>&nbsp;<SPAN class="functionname">init</SPAN>(Width&nbsp;Height&nbsp;Title&nbsp;Draw)&nbsp;View&nbsp;<SPAN class="keyword">in</SPAN>&nbsp;&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<SPAN class="keyword">self.</SPAN>width&nbsp;=&nbsp;{IntToFloat&nbsp;Width}<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<SPAN class="keyword">self.</SPAN>height&nbsp;=&nbsp;{IntToFloat&nbsp;Height}<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;color&nbsp;<SPAN class="keyword">&lt;-</SPAN>&nbsp;black<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<SPAN class="keyword">self.</SPAN>win&nbsp;=&nbsp;{New&nbsp;Tk<SPAN class="keyword">.</SPAN>toplevel&nbsp;tkInit(title:&nbsp;<SPAN class="string">'3D&nbsp;Flowers'</SPAN>&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;delete:&nbsp;<SPAN class="keyword">proc</SPAN>{<SPAN class="functionname">$</SPAN>}<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;{<SPAN class="keyword">self.</SPAN>win&nbsp;tkClose}<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;{Application<SPAN class="keyword">.</SPAN>exit&nbsp;0}<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<SPAN class="keyword">end</SPAN>)}<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<SPAN class="keyword">self.</SPAN>view&nbsp;=&nbsp;{New&nbsp;Tk<SPAN class="keyword">.</SPAN>canvas&nbsp;tkInit(parent:&nbsp;<SPAN class="keyword">self.</SPAN>win&nbsp;bg:&nbsp;black&nbsp;&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;width:&nbsp;Width&nbsp;height:&nbsp;Height)}<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;View&nbsp;=&nbsp;<SPAN class="keyword">self.</SPAN>view<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;{Tk<SPAN class="keyword">.</SPAN>send&nbsp;wm(title&nbsp;<SPAN class="keyword">self.</SPAN>win&nbsp;Title)}<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;{Tk<SPAN class="keyword">.</SPAN>send&nbsp;wm(minsize&nbsp;<SPAN class="keyword">self.</SPAN>win&nbsp;10&nbsp;10)}<BR>&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<SPAN class="keyword">self.</SPAN>frame&nbsp;=&nbsp;{New&nbsp;Tk<SPAN class="keyword">.</SPAN>frame&nbsp;tkInit(parent:&nbsp;<SPAN class="keyword">self.</SPAN>win<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;bg:&nbsp;{TkColor&nbsp;blue})}<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<SPAN class="keyword">self.</SPAN>button1&nbsp;=&nbsp;{New&nbsp;Tk<SPAN class="keyword">.</SPAN>button&nbsp;tkInit(parent:&nbsp;<SPAN class="keyword">self.</SPAN>frame&nbsp;action:&nbsp;Draw<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;bg:&nbsp;green&nbsp;&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;text:<SPAN class="string">&quot;Start&nbsp;DrawingFlower&quot;</SPAN>)}<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<SPAN class="keyword">self.</SPAN>button2&nbsp;=&nbsp;{New&nbsp;Tk<SPAN class="keyword">.</SPAN>button&nbsp;tkInit(parent:&nbsp;<SPAN class="keyword">self.</SPAN>frame<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;bg:&nbsp;{TkColor&nbsp;red}<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;action:&nbsp;<SPAN class="keyword">proc</SPAN><SPAN class="variablename">&nbsp;</SPAN>{<SPAN class="functionname">$</SPAN>}&nbsp;&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;{View&nbsp;tk(delete(all))}<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<SPAN class="keyword">end</SPAN>&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;text:<SPAN class="string">&quot;Clear&quot;</SPAN>)}<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;{Tk<SPAN class="keyword">.</SPAN>send&nbsp;pack(<SPAN class="keyword">self.</SPAN>button1&nbsp;<SPAN class="keyword">self.</SPAN>button2&nbsp;side:left)}<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;{Tk<SPAN class="keyword">.</SPAN>send&nbsp;pack(<SPAN class="keyword">self.</SPAN>frame&nbsp;<SPAN class="keyword">self.</SPAN>view)}<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<SPAN class="keyword">end</SPAN>&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<SPAN class="keyword">meth</SPAN>&nbsp;<SPAN class="functionname">drawLine</SPAN>(X1&nbsp;Y1&nbsp;X2&nbsp;Y2)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;{<SPAN class="keyword">self.</SPAN>view&nbsp;tk(crea&nbsp;line&nbsp;X1&nbsp;(<SPAN class="keyword">self.</SPAN>height<SPAN class="keyword">-</SPAN>Y1)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;X2&nbsp;(<SPAN class="keyword">self.</SPAN>height<SPAN class="keyword">-</SPAN>Y2)&nbsp;fill:&nbsp;<SPAN class="keyword">@</SPAN>color)}<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<SPAN class="keyword">end</SPAN>&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<SPAN class="keyword">meth</SPAN>&nbsp;<SPAN class="functionname">ConvertPoints</SPAN>(In&nbsp;$)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Height&nbsp;=&nbsp;<SPAN class="keyword">self.</SPAN>height<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<SPAN class="keyword">in</SPAN>&nbsp;&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;b({FoldR&nbsp;In&nbsp;<SPAN class="keyword">fun</SPAN>{<SPAN class="functionname">$</SPAN>&nbsp;X<SPAN class="keyword">#</SPAN>Y&nbsp;In}X<SPAN class="keyword">|</SPAN>(Height<SPAN class="keyword">-</SPAN>Y)<SPAN class="keyword">|</SPAN>In&nbsp;<SPAN class="keyword">end</SPAN>&nbsp;nil})<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<SPAN class="keyword">end</SPAN>&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<SPAN class="keyword">meth</SPAN>&nbsp;<SPAN class="functionname">filledPolygon</SPAN>(Points)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;{<SPAN class="keyword">self.</SPAN>view&nbsp;tk(crea&nbsp;polygon&nbsp;{<SPAN class="keyword">self</SPAN>&nbsp;ConvertPoints(Points&nbsp;$)}<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;fill:&nbsp;<SPAN class="keyword">@</SPAN>color)}<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<SPAN class="keyword">end</SPAN>&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<SPAN class="keyword">meth</SPAN>&nbsp;<SPAN class="functionname">setColor</SPAN>(Color)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;color&nbsp;<SPAN class="keyword">&lt;-</SPAN>&nbsp;Color<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<SPAN class="keyword">end</SPAN>&nbsp;<BR>&nbsp;&nbsp;&nbsp;<SPAN class="keyword">end</SPAN>&nbsp;%&nbsp;<SPAN class="comment">class&nbsp;WindowClass<BR></SPAN>&nbsp;<BR>&nbsp;&nbsp;&nbsp;<SPAN class="keyword">class</SPAN>&nbsp;<SPAN class="type">TurtleObject</SPAN>&nbsp;<SPAN class="keyword">from</SPAN><SPAN class="type">&nbsp;BaseObject</SPAN>&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<SPAN class="keyword">feat</SPAN>&nbsp;sw&nbsp;a&nbsp;win&nbsp;&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<SPAN class="keyword">attr</SPAN>&nbsp;x&nbsp;y&nbsp;pl&nbsp;tuX&nbsp;tuY&nbsp;tuZ&nbsp;tlX&nbsp;tlY&nbsp;tlZ&nbsp;thX&nbsp;thY&nbsp;thZ&nbsp;&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<SPAN class="keyword">meth</SPAN>&nbsp;<SPAN class="functionname">init</SPAN>(Win&nbsp;IState)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;x&nbsp;&nbsp;&nbsp;<SPAN class="keyword">&lt;-</SPAN>&nbsp;IState<SPAN class="keyword">.</SPAN>istate<SPAN class="keyword">.</SPAN>start<SPAN class="keyword">.</SPAN>x&nbsp;&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;y&nbsp;&nbsp;&nbsp;<SPAN class="keyword">&lt;-</SPAN>&nbsp;IState<SPAN class="keyword">.</SPAN>istate<SPAN class="keyword">.</SPAN>start<SPAN class="keyword">.</SPAN>y<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;pl&nbsp;&nbsp;<SPAN class="keyword">&lt;-</SPAN>&nbsp;nil<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;tuX&nbsp;<SPAN class="keyword">&lt;-</SPAN>&nbsp;IState<SPAN class="keyword">.</SPAN>istate<SPAN class="keyword">.</SPAN>tu<SPAN class="keyword">.</SPAN>x<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;tuY&nbsp;<SPAN class="keyword">&lt;-</SPAN>&nbsp;IState<SPAN class="keyword">.</SPAN>istate<SPAN class="keyword">.</SPAN>tu<SPAN class="keyword">.</SPAN>y<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;tuZ&nbsp;<SPAN class="keyword">&lt;-</SPAN>&nbsp;IState<SPAN class="keyword">.</SPAN>istate<SPAN class="keyword">.</SPAN>tu<SPAN class="keyword">.</SPAN>z<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;tlX&nbsp;<SPAN class="keyword">&lt;-</SPAN>&nbsp;IState<SPAN class="keyword">.</SPAN>istate<SPAN class="keyword">.</SPAN>tl<SPAN class="keyword">.</SPAN>x<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;tlY&nbsp;<SPAN class="keyword">&lt;-</SPAN>&nbsp;IState<SPAN class="keyword">.</SPAN>istate<SPAN class="keyword">.</SPAN>tl<SPAN class="keyword">.</SPAN>y<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;tlZ&nbsp;<SPAN class="keyword">&lt;-</SPAN>&nbsp;IState<SPAN class="keyword">.</SPAN>istate<SPAN class="keyword">.</SPAN>tl<SPAN class="keyword">.</SPAN>z<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;thX&nbsp;<SPAN class="keyword">&lt;-</SPAN>&nbsp;IState<SPAN class="keyword">.</SPAN>istate<SPAN class="keyword">.</SPAN>th<SPAN class="keyword">.</SPAN>x<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;thY&nbsp;<SPAN class="keyword">&lt;-</SPAN>&nbsp;IState<SPAN class="keyword">.</SPAN>istate<SPAN class="keyword">.</SPAN>th<SPAN class="keyword">.</SPAN>y<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;thZ&nbsp;<SPAN class="keyword">&lt;-</SPAN>&nbsp;IState<SPAN class="keyword">.</SPAN>istate<SPAN class="keyword">.</SPAN>th<SPAN class="keyword">.</SPAN>z<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<SPAN class="keyword">self.</SPAN>sw&nbsp;&nbsp;=&nbsp;IState<SPAN class="keyword">.</SPAN>stepWidth<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<SPAN class="keyword">self.</SPAN>a&nbsp;&nbsp;&nbsp;=&nbsp;IState<SPAN class="keyword">.</SPAN>arc&nbsp;&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<SPAN class="keyword">self.</SPAN>win&nbsp;=&nbsp;Win&nbsp;&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<SPAN class="keyword">end</SPAN>&nbsp;&nbsp;<BR>&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<SPAN class="keyword">meth</SPAN>&nbsp;<SPAN class="functionname">init1</SPAN>(X&nbsp;Y&nbsp;PL&nbsp;TuX&nbsp;TuY&nbsp;TuZ&nbsp;TlX&nbsp;TlY&nbsp;TlZ&nbsp;ThX&nbsp;ThY&nbsp;ThZ&nbsp;SW&nbsp;Arc&nbsp;Win)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;x&nbsp;&nbsp;&nbsp;<SPAN class="keyword">&lt;-</SPAN>&nbsp;X&nbsp;&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;y&nbsp;&nbsp;&nbsp;<SPAN class="keyword">&lt;-</SPAN>&nbsp;Y&nbsp;&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;pl&nbsp;&nbsp;<SPAN class="keyword">&lt;-</SPAN>&nbsp;PL<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;tuX&nbsp;<SPAN class="keyword">&lt;-</SPAN>&nbsp;TuX&nbsp;&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;tuY&nbsp;<SPAN class="keyword">&lt;-</SPAN>&nbsp;TuY&nbsp;&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;tuZ&nbsp;<SPAN class="keyword">&lt;-</SPAN>&nbsp;TuZ&nbsp;&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;tlX&nbsp;<SPAN class="keyword">&lt;-</SPAN>&nbsp;TlX&nbsp;&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;tlY&nbsp;<SPAN class="keyword">&lt;-</SPAN>&nbsp;TlY<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;tlZ&nbsp;<SPAN class="keyword">&lt;-</SPAN>&nbsp;TlZ&nbsp;&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;thX&nbsp;<SPAN class="keyword">&lt;-</SPAN>&nbsp;ThX<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;thY&nbsp;<SPAN class="keyword">&lt;-</SPAN>&nbsp;ThY<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;thZ&nbsp;<SPAN class="keyword">&lt;-</SPAN>&nbsp;ThZ<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<SPAN class="keyword">self.</SPAN>sw&nbsp;&nbsp;=&nbsp;SW<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<SPAN class="keyword">self.</SPAN>a&nbsp;&nbsp;&nbsp;=&nbsp;Arc&nbsp;&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<SPAN class="keyword">self.</SPAN>win&nbsp;=&nbsp;Win&nbsp;&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<SPAN class="keyword">end</SPAN>&nbsp;&nbsp;<BR>&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<SPAN class="keyword">meth</SPAN>&nbsp;<SPAN class="functionname">duplicate</SPAN>($)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;{New&nbsp;TurtleObject&nbsp;init1(<SPAN class="keyword">@</SPAN>x&nbsp;<SPAN class="keyword">@</SPAN>y&nbsp;<SPAN class="keyword">@</SPAN>pl<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<SPAN class="keyword">@</SPAN>tuX&nbsp;<SPAN class="keyword">@</SPAN>tuY&nbsp;<SPAN class="keyword">@</SPAN>tuZ&nbsp;<SPAN class="keyword">@</SPAN>tlX&nbsp;<SPAN class="keyword">@</SPAN>tlY&nbsp;<SPAN class="keyword">@</SPAN>tlZ&nbsp;&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<SPAN class="keyword">@</SPAN>thX&nbsp;<SPAN class="keyword">@</SPAN>thY&nbsp;<SPAN class="keyword">@</SPAN>thZ<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<SPAN class="keyword">self.</SPAN>sw&nbsp;<SPAN class="keyword">self.</SPAN>a&nbsp;&nbsp;<SPAN class="keyword">self.</SPAN>win)}<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<SPAN class="keyword">end</SPAN>&nbsp;<BR>&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<SPAN class="keyword">meth</SPAN>&nbsp;<SPAN class="functionname">move</SPAN>&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;x&nbsp;<SPAN class="keyword">&lt;-</SPAN>&nbsp;(<SPAN class="keyword">@</SPAN>x&nbsp;<SPAN class="keyword">+</SPAN>&nbsp;<SPAN class="keyword">self.</SPAN>sw&nbsp;<SPAN class="keyword">*</SPAN>&nbsp;<SPAN class="keyword">@</SPAN>thX)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;y&nbsp;<SPAN class="keyword">&lt;-</SPAN>&nbsp;(<SPAN class="keyword">@</SPAN>y&nbsp;<SPAN class="keyword">-</SPAN>&nbsp;<SPAN class="keyword">self.</SPAN>sw&nbsp;<SPAN class="keyword">*</SPAN>&nbsp;<SPAN class="keyword">@</SPAN>thY)&nbsp;&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;pl&nbsp;<SPAN class="keyword">&lt;-</SPAN>&nbsp;(<SPAN class="keyword">@</SPAN>x<SPAN class="keyword">#@</SPAN>y)<SPAN class="keyword">|@</SPAN>pl<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<SPAN class="keyword">end</SPAN>&nbsp;&nbsp;<BR>&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<SPAN class="keyword">meth</SPAN>&nbsp;<SPAN class="functionname">openPoly</SPAN>&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;pl&nbsp;<SPAN class="keyword">&lt;-</SPAN>&nbsp;(<SPAN class="keyword">@</SPAN>x<SPAN class="keyword">#@</SPAN>y)<SPAN class="keyword">|@</SPAN>pl<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<SPAN class="keyword">end</SPAN>&nbsp;&nbsp;<BR>&nbsp;&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<SPAN class="keyword">meth</SPAN>&nbsp;<SPAN class="functionname">closePoly</SPAN>(C)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;{<SPAN class="keyword">self.</SPAN>win&nbsp;setColor(C)}<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;{<SPAN class="keyword">self.</SPAN>win&nbsp;filledPolygon(<SPAN class="keyword">@</SPAN>pl)}<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;pl&nbsp;<SPAN class="keyword">&lt;-</SPAN>&nbsp;nil<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<SPAN class="keyword">end</SPAN>&nbsp;&nbsp;<BR>&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<SPAN class="keyword">meth</SPAN>&nbsp;<SPAN class="functionname">draw</SPAN>(C)&nbsp;X&nbsp;=&nbsp;<SPAN class="keyword">@</SPAN>x&nbsp;Y&nbsp;=&nbsp;<SPAN class="keyword">@</SPAN>y&nbsp;<SPAN class="keyword">in</SPAN>&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;x&nbsp;<SPAN class="keyword">&lt;-</SPAN>&nbsp;<SPAN class="keyword">@</SPAN>x&nbsp;<SPAN class="keyword">+</SPAN>&nbsp;<SPAN class="keyword">self.</SPAN>sw&nbsp;<SPAN class="keyword">*</SPAN>&nbsp;<SPAN class="keyword">@</SPAN>thX<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;y&nbsp;<SPAN class="keyword">&lt;-</SPAN>&nbsp;<SPAN class="keyword">@</SPAN>y&nbsp;<SPAN class="keyword">-</SPAN>&nbsp;<SPAN class="keyword">self.</SPAN>sw&nbsp;<SPAN class="keyword">*</SPAN>&nbsp;<SPAN class="keyword">@</SPAN>thY&nbsp;&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;{<SPAN class="keyword">self.</SPAN>win&nbsp;setColor(C)}<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;{<SPAN class="keyword">self.</SPAN>win&nbsp;drawLine(X&nbsp;Y&nbsp;<SPAN class="keyword">@</SPAN>x&nbsp;<SPAN class="keyword">@</SPAN>y)}<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<SPAN class="keyword">end</SPAN>&nbsp;<BR>&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<SPAN class="keyword">meth</SPAN>&nbsp;<SPAN class="functionname">VM</SPAN>(X1&nbsp;Y1&nbsp;Z1&nbsp;X2&nbsp;Y2&nbsp;Z2&nbsp;A&nbsp;B&nbsp;XR&nbsp;YR&nbsp;ZR)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;XR&nbsp;<SPAN class="keyword">&lt;-</SPAN>&nbsp;A&nbsp;<SPAN class="keyword">*</SPAN>&nbsp;X1&nbsp;<SPAN class="keyword">+</SPAN>&nbsp;B&nbsp;<SPAN class="keyword">*</SPAN>&nbsp;X2<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;YR&nbsp;<SPAN class="keyword">&lt;-</SPAN>&nbsp;A&nbsp;<SPAN class="keyword">*</SPAN>&nbsp;Y1&nbsp;<SPAN class="keyword">+</SPAN>&nbsp;B&nbsp;<SPAN class="keyword">*</SPAN>&nbsp;Y2<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;ZR&nbsp;<SPAN class="keyword">&lt;-</SPAN>&nbsp;A&nbsp;<SPAN class="keyword">*</SPAN>&nbsp;Z1&nbsp;<SPAN class="keyword">+</SPAN>&nbsp;B&nbsp;<SPAN class="keyword">*</SPAN>&nbsp;Z2<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<SPAN class="keyword">end</SPAN>&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<SPAN class="keyword">meth</SPAN>&nbsp;<SPAN class="functionname">turnU</SPAN>&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;TurtleObject<SPAN class="keyword">,</SPAN>VM(<SPAN class="keyword">@</SPAN>thX&nbsp;<SPAN class="keyword">@</SPAN>thY&nbsp;<SPAN class="keyword">@</SPAN>thZ&nbsp;<SPAN class="keyword">@</SPAN>tlX&nbsp;<SPAN class="keyword">@</SPAN>tlY&nbsp;<SPAN class="keyword">@</SPAN>tlZ&nbsp;<SPAN class="keyword">~</SPAN>1<SPAN class="keyword">.</SPAN>0&nbsp;0<SPAN class="keyword">.</SPAN>0&nbsp;thX&nbsp;thY&nbsp;thZ)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;TurtleObject<SPAN class="keyword">,</SPAN>VM(<SPAN class="keyword">@</SPAN>thX&nbsp;<SPAN class="keyword">@</SPAN>thY&nbsp;<SPAN class="keyword">@</SPAN>thZ&nbsp;<SPAN class="keyword">@</SPAN>tlX&nbsp;<SPAN class="keyword">@</SPAN>tlY&nbsp;<SPAN class="keyword">@</SPAN>tlZ&nbsp;0<SPAN class="keyword">.</SPAN>0&nbsp;<SPAN class="keyword">~</SPAN>1<SPAN class="keyword">.</SPAN>0&nbsp;tlX&nbsp;tlY&nbsp;tlZ)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<SPAN class="keyword">end</SPAN>&nbsp;&nbsp;<BR>&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<SPAN class="keyword">meth</SPAN>&nbsp;<SPAN class="functionname">rotUpos</SPAN>&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;TurtleObject<SPAN class="keyword">,</SPAN>VM(<SPAN class="keyword">@</SPAN>thX&nbsp;<SPAN class="keyword">@</SPAN>thY&nbsp;<SPAN class="keyword">@</SPAN>thZ&nbsp;<SPAN class="keyword">@</SPAN>tlX&nbsp;<SPAN class="keyword">@</SPAN>tlY&nbsp;<SPAN class="keyword">@</SPAN>tlZ&nbsp;{Cos&nbsp;<SPAN class="keyword">self.</SPAN>a}&nbsp;<SPAN class="keyword">~</SPAN>{Sin&nbsp;<SPAN class="keyword">self.</SPAN>a}&nbsp;thX&nbsp;thY&nbsp;thZ)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;TurtleObject<SPAN class="keyword">,</SPAN>VM(<SPAN class="keyword">@</SPAN>thX&nbsp;<SPAN class="keyword">@</SPAN>thY&nbsp;<SPAN class="keyword">@</SPAN>thZ&nbsp;<SPAN class="keyword">@</SPAN>tlX&nbsp;<SPAN class="keyword">@</SPAN>tlY&nbsp;<SPAN class="keyword">@</SPAN>tlZ&nbsp;{Sin&nbsp;<SPAN class="keyword">self.</SPAN>a}&nbsp;{Cos&nbsp;<SPAN class="keyword">self.</SPAN>a}&nbsp;tlX&nbsp;tlY&nbsp;tlZ)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<SPAN class="keyword">end</SPAN>&nbsp;&nbsp;<BR>&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<SPAN class="keyword">meth</SPAN>&nbsp;<SPAN class="functionname">rotUneg</SPAN>&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;TurtleObject<SPAN class="keyword">,</SPAN>VM(<SPAN class="keyword">@</SPAN>thX&nbsp;<SPAN class="keyword">@</SPAN>thY&nbsp;<SPAN class="keyword">@</SPAN>thZ&nbsp;<SPAN class="keyword">@</SPAN>tlX&nbsp;<SPAN class="keyword">@</SPAN>tlY&nbsp;<SPAN class="keyword">@</SPAN>tlZ&nbsp;{Cos&nbsp;<SPAN class="keyword">self.</SPAN>a}&nbsp;{Sin&nbsp;<SPAN class="keyword">self.</SPAN>a}&nbsp;thX&nbsp;thY&nbsp;thZ)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;TurtleObject<SPAN class="keyword">,</SPAN>VM(<SPAN class="keyword">@</SPAN>thX&nbsp;<SPAN class="keyword">@</SPAN>thY&nbsp;<SPAN class="keyword">@</SPAN>thZ&nbsp;<SPAN class="keyword">@</SPAN>tlX&nbsp;<SPAN class="keyword">@</SPAN>tlY&nbsp;<SPAN class="keyword">@</SPAN>tlZ&nbsp;<SPAN class="keyword">~</SPAN>{Sin&nbsp;<SPAN class="keyword">self.</SPAN>a}&nbsp;{Cos&nbsp;<SPAN class="keyword">self.</SPAN>a}&nbsp;tlX&nbsp;tlY&nbsp;tlZ)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<SPAN class="keyword">end</SPAN>&nbsp;<BR>&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<SPAN class="keyword">meth</SPAN>&nbsp;<SPAN class="functionname">rotLpos</SPAN>&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;TurtleObject<SPAN class="keyword">,</SPAN>VM(<SPAN class="keyword">@</SPAN>thX&nbsp;<SPAN class="keyword">@</SPAN>thY&nbsp;<SPAN class="keyword">@</SPAN>thZ&nbsp;<SPAN class="keyword">@</SPAN>tuX&nbsp;<SPAN class="keyword">@</SPAN>tuY&nbsp;<SPAN class="keyword">@</SPAN>tuZ&nbsp;{Cos&nbsp;<SPAN class="keyword">self.</SPAN>a}&nbsp;{Sin&nbsp;<SPAN class="keyword">self.</SPAN>a}&nbsp;thX&nbsp;thY&nbsp;thZ)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;TurtleObject<SPAN class="keyword">,</SPAN>VM(<SPAN class="keyword">@</SPAN>thX&nbsp;<SPAN class="keyword">@</SPAN>thY&nbsp;<SPAN class="keyword">@</SPAN>thZ&nbsp;<SPAN class="keyword">@</SPAN>tuX&nbsp;<SPAN class="keyword">@</SPAN>tuY&nbsp;<SPAN class="keyword">@</SPAN>tuZ&nbsp;<SPAN class="keyword">~</SPAN>{Sin&nbsp;<SPAN class="keyword">self.</SPAN>a}&nbsp;{Cos&nbsp;<SPAN class="keyword">self.</SPAN>a}&nbsp;tuX&nbsp;tuY&nbsp;tuZ)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<SPAN class="keyword">end</SPAN>&nbsp;<BR>&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<SPAN class="keyword">meth</SPAN>&nbsp;<SPAN class="functionname">rotLneg</SPAN>&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;TurtleObject<SPAN class="keyword">,</SPAN>VM(<SPAN class="keyword">@</SPAN>thX&nbsp;<SPAN class="keyword">@</SPAN>thY&nbsp;<SPAN class="keyword">@</SPAN>thZ&nbsp;<SPAN class="keyword">@</SPAN>tlX&nbsp;<SPAN class="keyword">@</SPAN>tlY&nbsp;<SPAN class="keyword">@</SPAN>tlZ&nbsp;{Cos&nbsp;<SPAN class="keyword">self.</SPAN>a}&nbsp;<SPAN class="keyword">~</SPAN>{Sin&nbsp;<SPAN class="keyword">self.</SPAN>a}&nbsp;thX&nbsp;thY&nbsp;thZ)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;TurtleObject<SPAN class="keyword">,</SPAN>VM(<SPAN class="keyword">@</SPAN>thX&nbsp;<SPAN class="keyword">@</SPAN>thY&nbsp;<SPAN class="keyword">@</SPAN>thZ&nbsp;<SPAN class="keyword">@</SPAN>tlX&nbsp;<SPAN class="keyword">@</SPAN>tlY&nbsp;<SPAN class="keyword">@</SPAN>tlZ&nbsp;{Sin&nbsp;<SPAN class="keyword">self.</SPAN>a}&nbsp;{Cos&nbsp;<SPAN class="keyword">self.</SPAN>a}&nbsp;tuX&nbsp;tuY&nbsp;tuZ)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<SPAN class="keyword">end</SPAN>&nbsp;<BR>&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<SPAN class="keyword">meth</SPAN>&nbsp;<SPAN class="functionname">rotHpos</SPAN>&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;TurtleObject<SPAN class="keyword">,</SPAN>VM(<SPAN class="keyword">@</SPAN>tlX&nbsp;<SPAN class="keyword">@</SPAN>tlY&nbsp;<SPAN class="keyword">@</SPAN>tlZ&nbsp;<SPAN class="keyword">@</SPAN>tuX&nbsp;<SPAN class="keyword">@</SPAN>tuY&nbsp;<SPAN class="keyword">@</SPAN>tuZ&nbsp;{Cos&nbsp;<SPAN class="keyword">self.</SPAN>a}&nbsp;{Sin&nbsp;<SPAN class="keyword">self.</SPAN>a}&nbsp;tlX&nbsp;tlY&nbsp;tlZ)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;TurtleObject<SPAN class="keyword">,</SPAN>VM(<SPAN class="keyword">@</SPAN>tlX&nbsp;<SPAN class="keyword">@</SPAN>tlY&nbsp;<SPAN class="keyword">@</SPAN>tlZ&nbsp;<SPAN class="keyword">@</SPAN>tuX&nbsp;<SPAN class="keyword">@</SPAN>tuY&nbsp;<SPAN class="keyword">@</SPAN>tuZ&nbsp;<SPAN class="keyword">~</SPAN>{Sin&nbsp;<SPAN class="keyword">self.</SPAN>a}&nbsp;{Cos&nbsp;<SPAN class="keyword">self.</SPAN>a}&nbsp;tuX&nbsp;tuY&nbsp;tuZ)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<SPAN class="keyword">end</SPAN>&nbsp;&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<SPAN class="keyword">meth</SPAN>&nbsp;<SPAN class="functionname">rotHneg</SPAN>&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;TurtleObject<SPAN class="keyword">,</SPAN>VM(<SPAN class="keyword">@</SPAN>tlX&nbsp;<SPAN class="keyword">@</SPAN>tlY&nbsp;<SPAN class="keyword">@</SPAN>tlZ&nbsp;<SPAN class="keyword">@</SPAN>tuX&nbsp;<SPAN class="keyword">@</SPAN>tuY&nbsp;<SPAN class="keyword">@</SPAN>tuZ&nbsp;{Cos&nbsp;<SPAN class="keyword">self.</SPAN>a}&nbsp;<SPAN class="keyword">~</SPAN>{Sin&nbsp;<SPAN class="keyword">self.</SPAN>a}&nbsp;tlX&nbsp;tlY&nbsp;tlZ)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;TurtleObject<SPAN class="keyword">,</SPAN>VM(<SPAN class="keyword">@</SPAN>tlX&nbsp;<SPAN class="keyword">@</SPAN>tlY&nbsp;<SPAN class="keyword">@</SPAN>tlZ&nbsp;<SPAN class="keyword">@</SPAN>tuX&nbsp;<SPAN class="keyword">@</SPAN>tuY&nbsp;<SPAN class="keyword">@</SPAN>tuZ&nbsp;{Sin&nbsp;<SPAN class="keyword">self.</SPAN>a}&nbsp;{Cos&nbsp;<SPAN class="keyword">self.</SPAN>a}&nbsp;tuX&nbsp;tuY&nbsp;tuZ)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<SPAN class="keyword">end</SPAN>&nbsp;<BR>&nbsp;&nbsp;&nbsp;<SPAN class="keyword">end</SPAN>&nbsp;%&nbsp;<SPAN class="comment">class&nbsp;TurtleObject<BR></SPAN>&nbsp;<BR>&nbsp;&nbsp;&nbsp;<SPAN class="keyword">proc</SPAN><SPAN class="variablename">&nbsp;</SPAN>{<SPAN class="functionname">Flower3D</SPAN>&nbsp;Turtle&nbsp;IState}<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Start&nbsp;=&nbsp;IState<SPAN class="keyword">.</SPAN>start&nbsp;Grammar&nbsp;=&nbsp;IState<SPAN class="keyword">.</SPAN>grammar<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Colors&nbsp;=&nbsp;IState<SPAN class="keyword">.</SPAN>colors&nbsp;RecDepth&nbsp;=&nbsp;IState<SPAN class="keyword">.</SPAN>recDepth<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<SPAN class="keyword">proc</SPAN><SPAN class="variablename">&nbsp;</SPAN>{<SPAN class="functionname">Interpret</SPAN>&nbsp;Color&nbsp;Turtle&nbsp;N&nbsp;ComList}<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<SPAN class="keyword">if</SPAN>&nbsp;N&nbsp;<SPAN class="keyword">&gt;</SPAN>&nbsp;0&nbsp;<SPAN class="keyword">then</SPAN>&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<SPAN class="keyword">case</SPAN>&nbsp;ComList<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<SPAN class="keyword">of</SPAN>&nbsp;H<SPAN class="keyword">|</SPAN>T&nbsp;<SPAN class="keyword">then</SPAN>&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<SPAN class="keyword">case</SPAN>&nbsp;H&nbsp;&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<SPAN class="keyword">of</SPAN>&nbsp;<SPAN class="string">'+'</SPAN>&nbsp;<SPAN class="keyword">then</SPAN>&nbsp;{Turtle&nbsp;rotUpos}<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<SPAN class="keyword">[]</SPAN>&nbsp;<SPAN class="string">'-'</SPAN>&nbsp;<SPAN class="keyword">then</SPAN>&nbsp;{Turtle&nbsp;rotUneg}<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<SPAN class="keyword">[]</SPAN>&nbsp;<SPAN class="string">'|'</SPAN>&nbsp;<SPAN class="keyword">then</SPAN>&nbsp;{Turtle&nbsp;turnU}&nbsp;&nbsp;&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<SPAN class="keyword">[]</SPAN>&nbsp;<SPAN class="string">'\&amp;'</SPAN>&nbsp;<SPAN class="keyword">then</SPAN>&nbsp;{Turtle&nbsp;rotLpos}<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<SPAN class="keyword">[]</SPAN>&nbsp;<SPAN class="string">'^'</SPAN>&nbsp;<SPAN class="keyword">then</SPAN>&nbsp;{Turtle&nbsp;rotLneg}<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<SPAN class="keyword">[]</SPAN>&nbsp;<SPAN class="string">'\\'</SPAN>&nbsp;<SPAN class="keyword">then</SPAN>&nbsp;{Turtle&nbsp;rotHpos}<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<SPAN class="keyword">[]</SPAN>&nbsp;<SPAN class="string">'/'</SPAN>&nbsp;<SPAN class="keyword">then</SPAN>&nbsp;{Turtle&nbsp;rotHneg}<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<SPAN class="keyword">[]</SPAN>&nbsp;_<SPAN class="keyword">|</SPAN>_&nbsp;<SPAN class="keyword">then</SPAN>&nbsp;NewTurtle&nbsp;=&nbsp;{Turtle&nbsp;duplicate($)}&nbsp;<SPAN class="keyword">in</SPAN>&nbsp;&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<SPAN class="keyword">thread</SPAN>&nbsp;{Interpret&nbsp;Color&nbsp;NewTurtle&nbsp;N&nbsp;H}&nbsp;<SPAN class="keyword">end</SPAN>&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<SPAN class="keyword">[]</SPAN>&nbsp;<SPAN class="string">'F'</SPAN>&nbsp;<SPAN class="keyword">then</SPAN>&nbsp;{Turtle&nbsp;draw(Color)}&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<SPAN class="keyword">[]</SPAN>&nbsp;<SPAN class="string">'f'</SPAN>&nbsp;<SPAN class="keyword">then</SPAN>&nbsp;{Turtle&nbsp;move}&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<SPAN class="keyword">[]</SPAN>&nbsp;<SPAN class="string">'{'</SPAN>&nbsp;<SPAN class="keyword">then</SPAN>&nbsp;{Turtle&nbsp;openPoly}&nbsp;&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<SPAN class="keyword">[]</SPAN>&nbsp;<SPAN class="string">'}'</SPAN>&nbsp;<SPAN class="keyword">then</SPAN>&nbsp;{Turtle&nbsp;closePoly(Color)}<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<SPAN class="keyword">else</SPAN>&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;{Interpret&nbsp;Colors<SPAN class="keyword">.</SPAN>H&nbsp;Turtle&nbsp;N<SPAN class="keyword">-</SPAN>1&nbsp;Grammar<SPAN class="keyword">.</SPAN>H}<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<SPAN class="keyword">end</SPAN>&nbsp;&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;{Interpret&nbsp;Color&nbsp;Turtle&nbsp;N&nbsp;T}<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<SPAN class="keyword">else</SPAN>&nbsp;<SPAN class="keyword">skip</SPAN>&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<SPAN class="keyword">end</SPAN>&nbsp;&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<SPAN class="keyword">else</SPAN>&nbsp;<SPAN class="keyword">skip</SPAN>&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<SPAN class="keyword">end</SPAN>&nbsp;&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<SPAN class="keyword">end</SPAN>&nbsp;&nbsp;<BR>&nbsp;&nbsp;&nbsp;<SPAN class="keyword">in</SPAN>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;{Interpret&nbsp;Colors<SPAN class="keyword">.</SPAN>Start&nbsp;Turtle&nbsp;RecDepth&nbsp;Grammar<SPAN class="keyword">.</SPAN>Start}<BR>&nbsp;&nbsp;&nbsp;<SPAN class="keyword">end</SPAN>&nbsp;%&nbsp;<SPAN class="comment">proc&nbsp;Flower3D<BR></SPAN>&nbsp;<BR>&nbsp;&nbsp;&nbsp;<SPAN class="keyword">fun</SPAN><SPAN class="variablename">&nbsp;</SPAN>{<SPAN class="functionname">TkColor</SPAN>&nbsp;C}&nbsp;<SPAN class="keyword">if</SPAN>&nbsp;Tk<SPAN class="keyword">.</SPAN>isColor&nbsp;<SPAN class="keyword">then</SPAN>&nbsp;C&nbsp;<SPAN class="keyword">else</SPAN>&nbsp;white&nbsp;<SPAN class="keyword">end</SPAN>&nbsp;<SPAN class="keyword">end</SPAN>&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;<BR>&nbsp;&nbsp;&nbsp;Plant&nbsp;=&nbsp;plant(start&nbsp;&nbsp;:&nbsp;plant<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;grammar:&nbsp;grammar(<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;plant:&nbsp;[internode&nbsp;<SPAN class="string">'+'</SPAN>&nbsp;[plant&nbsp;<SPAN class="string">'+'</SPAN>&nbsp;flower]<SPAN class="string">'-'</SPAN>&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<SPAN class="string">'-'</SPAN>&nbsp;<SPAN class="string">'/'</SPAN>&nbsp;<SPAN class="string">'/'</SPAN>&nbsp;[<SPAN class="string">'-'</SPAN>&nbsp;<SPAN class="string">'-'</SPAN>leaf]&nbsp;internode<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;[<SPAN class="string">'+'</SPAN>&nbsp;<SPAN class="string">'+'</SPAN>leaf]<SPAN class="string">'-'</SPAN>&nbsp;[plant&nbsp;<SPAN class="string">'-'</SPAN>&nbsp;<SPAN class="string">'-'</SPAN>&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;flower]<SPAN class="string">'+'</SPAN>&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<SPAN class="string">'+'</SPAN>&nbsp;plant&nbsp;flower]<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;internode:&nbsp;[<SPAN class="string">'F'</SPAN>&nbsp;seg&nbsp;[<SPAN class="string">'/'</SPAN>&nbsp;<SPAN class="string">'/'</SPAN>&nbsp;<SPAN class="string">'&amp;'&nbsp;'&amp;'</SPAN>&nbsp;leaf]<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;[<SPAN class="string">'/'</SPAN>leaf&nbsp;<SPAN class="string">'/'</SPAN>&nbsp;<SPAN class="string">'^'</SPAN>&nbsp;<SPAN class="string">'^'</SPAN>leaf]<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<SPAN class="string">'F'</SPAN>&nbsp;seg]<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;seg:&nbsp;[seg&nbsp;<SPAN class="string">'F'</SPAN>&nbsp;seg]<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;leaf:&nbsp;[[<SPAN class="string">'{'</SPAN>&nbsp;<SPAN class="string">'+'</SPAN>f&nbsp;f<SPAN class="string">'-'</SPAN>f&nbsp;f&nbsp;f<SPAN class="string">'-'</SPAN>f&nbsp;f<SPAN class="string">'+'</SPAN>&nbsp;<SPAN class="string">'|'</SPAN>&nbsp;&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<SPAN class="string">'+'</SPAN>f<SPAN class="string">'-'</SPAN>f&nbsp;f<SPAN class="string">'-'</SPAN>f<SPAN class="string">'}'</SPAN>]]<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;flower:&nbsp;[[<SPAN class="string">'&amp;'&nbsp;'&amp;'</SPAN>&nbsp;<SPAN class="string">'&amp;'pedicel'</SPAN><SPAN class="keyword">/</SPAN><SPAN class="string">'wedge<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;'</SPAN><SPAN class="keyword">/</SPAN><SPAN class="string">'&nbsp;'</SPAN><SPAN class="keyword">/</SPAN><SPAN class="string">'&nbsp;'</SPAN><SPAN class="keyword">/</SPAN><SPAN class="string">'&nbsp;'</SPAN><SPAN class="keyword">/</SPAN><SPAN class="string">'<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;wedge'</SPAN><SPAN class="keyword">/</SPAN><SPAN class="string">'&nbsp;'</SPAN><SPAN class="keyword">/</SPAN><SPAN class="string">'&nbsp;'</SPAN><SPAN class="keyword">/</SPAN><SPAN class="string">'&nbsp;'</SPAN><SPAN class="keyword">/</SPAN><SPAN class="string">'wedge<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;'</SPAN><SPAN class="keyword">/</SPAN><SPAN class="string">'&nbsp;'</SPAN><SPAN class="keyword">/</SPAN><SPAN class="string">'&nbsp;'</SPAN><SPAN class="keyword">/</SPAN><SPAN class="string">'&nbsp;'</SPAN><SPAN class="keyword">/</SPAN><SPAN class="string">'<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;wedge'</SPAN><SPAN class="keyword">/</SPAN><SPAN class="string">'&nbsp;'</SPAN><SPAN class="keyword">/</SPAN><SPAN class="string">'&nbsp;'</SPAN><SPAN class="keyword">/</SPAN><SPAN class="string">'&nbsp;'</SPAN><SPAN class="keyword">/</SPAN><SPAN class="string">'&nbsp;wedge]]<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;pedicel:&nbsp;['</SPAN>F<SPAN class="string">'&nbsp;'</SPAN>F<SPAN class="string">']<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;wedge:&nbsp;[stamen['</SPAN>{<SPAN class="string">'&nbsp;'&amp;'</SPAN>&nbsp;<SPAN class="string">'&amp;'&nbsp;'&amp;'</SPAN>&nbsp;<SPAN class="string">'&amp;'&nbsp;&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;'</SPAN><SPAN class="keyword">-</SPAN><SPAN class="string">'f&nbsp;f&nbsp;f&nbsp;f'</SPAN><SPAN class="keyword">+</SPAN><SPAN class="string">'f&nbsp;f&nbsp;f'</SPAN><SPAN class="keyword">|</SPAN><SPAN class="string">'<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;'</SPAN><SPAN class="keyword">-</SPAN><SPAN class="string">'f&nbsp;f&nbsp;f'</SPAN><SPAN class="keyword">+</SPAN><SPAN class="string">'f&nbsp;f&nbsp;f&nbsp;f'</SPAN>}<SPAN class="string">']]<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;stamen:&nbsp;[['</SPAN>^<SPAN class="string">'&nbsp;'</SPAN>{<SPAN class="string">'&nbsp;'</SPAN><SPAN class="keyword">-</SPAN><SPAN class="string">'&nbsp;f&nbsp;f&nbsp;f&nbsp;'</SPAN><SPAN class="keyword">+</SPAN><SPAN class="string">'f&nbsp;f&nbsp;'</SPAN><SPAN class="keyword">|</SPAN><SPAN class="string">'<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;'</SPAN><SPAN class="keyword">-</SPAN><SPAN class="string">'&nbsp;f&nbsp;f&nbsp;f&nbsp;'</SPAN><SPAN class="keyword">+</SPAN><SPAN class="string">'f&nbsp;f&nbsp;&nbsp;'</SPAN>}<SPAN class="string">']]<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;colors:&nbsp;colors(plant&nbsp;&nbsp;&nbsp;&nbsp;:&nbsp;{TkColor&nbsp;green}<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;internode:&nbsp;{TkColor&nbsp;brown}<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;seg&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;:&nbsp;{TkColor&nbsp;brown}<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;leaf&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;:&nbsp;{TkColor&nbsp;darkgreen}<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;flower&nbsp;&nbsp;&nbsp;:&nbsp;{TkColor&nbsp;brown}<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;pedicel&nbsp;&nbsp;:&nbsp;{TkColor&nbsp;brown}<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;wedge&nbsp;&nbsp;&nbsp;&nbsp;:&nbsp;{TkColor&nbsp;red}<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;stamen&nbsp;&nbsp;&nbsp;:&nbsp;{TkColor&nbsp;yellow})<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;istate:state(start:&nbsp;start(x:&nbsp;100.0&nbsp;y:&nbsp;20.0)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;tu:&nbsp;tu(x:&nbsp;~10.0&nbsp;y:&nbsp;~2.0&nbsp;z:&nbsp;3.0)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;tl:&nbsp;tl(x:&nbsp;6.0&nbsp;y:&nbsp;2.0&nbsp;z:&nbsp;~5.0)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;th:&nbsp;th(x:&nbsp;1.0&nbsp;y:&nbsp;~10.0&nbsp;z:&nbsp;0.0))<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;arc&nbsp;&nbsp;&nbsp;&nbsp;:&nbsp;0.31<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;stepWidth:&nbsp;1.2<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;recDepth&nbsp;:&nbsp;5<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;)&nbsp;%&nbsp;Plant<BR>&nbsp;<BR>&nbsp;&nbsp;&nbsp;proc&nbsp;{TkFlowers3D}&nbsp;Win&nbsp;in<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Win&nbsp;=&nbsp;{New&nbsp;WindowClass&nbsp;init(450&nbsp;750&nbsp;'</SPAN>Lindenmayer&nbsp;Flower&nbsp;<SPAN class="string">'<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;proc&nbsp;{$}<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;{Flower3D&nbsp;{New&nbsp;TurtleObject<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;init(Win&nbsp;Plant)}&nbsp;Plant}<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;end)}<BR>&nbsp;&nbsp;&nbsp;end<BR>&nbsp;<BR>&nbsp;&nbsp;&nbsp;{TkFlowers3D}<BR>&nbsp;<BR>end&nbsp;&nbsp;<BR></SPAN></PRE></BLOCKQUOTE><P></P></DIV><TABLE align="center" border="0" cellpadding="6" cellspacing="6" class="nav"><TR bgcolor="#DDDDDD"><TD><A href="node21.html#code.flowers">&lt;&lt; Prev</A></TD><TD><A href="flowers.html">- Up -</A></TD></TR></TABLE><HR><ADDRESS><SPAN class="version">Version 1.4.0 (20110908185330)</SPAN></ADDRESS></BODY></HTML>

mozart-doc 1.4.0-8ubuntu1 / usr / share / mozart / doc / demo / node22.html