3 # Example of using a lsys fractal,
4 # which in turm used Turtle Graphics
9 'A' => 'S[---LMA][++++B]',
10 'B' => 'S[++LBg][--Cg]',
11 'C' => 'S[-----LB]GS[+MC]',
13 'L' => '[{S+S+S+S+S+S}]'
20 $im->Draw ( primitive=>'line', points=>join(' ',@_),
21 stroke=>'dark green', strokewidth=>1 );
28 motionsub => sub{ push( @poly, @_[0..1] ); }
31 $changes = \%stemchanges;
33 lsys_execute('A', 10, "tree.gif", %rule);