PATH:
usr
/
share
/
doc
/
ImageMagick-perl-6.9.10.68
/
demo
#!/usr/bin/perl eval 'exec /usr/bin/perl -S $0 ${1+"$@"}' if 0; # not running under some shell # # Example of using a lsys fractal, # which in turm used Turtle Graphics # use Cwd; use lib cwd; require "lsys.pl"; %rule = ( 'A' => 'S[---LMA][++++B]', 'B' => 'S[++LBg][--Cg]', 'C' => 'S[-----LB]GS[+MC]', 'g' => '', 'L' => '[{S+S+S+S+S+S}]' ); %stemchanges = ( distance => 18.5, dtheta => 0.1, motionsub => sub{ $im->Draw ( primitive=>'line', points=>join(' ',@_), stroke=>'dark green', strokewidth=>1 ); } ); %polychanges = ( distance => 3, dtheta => 0.4, motionsub => sub{ push( @poly, @_[0..1] ); } ); $changes = \%stemchanges; lsys_init(400); lsys_execute('A', 10, "tree.gif", %rule);
[-] steganography.pl
[edit]
[-] Turtle.pm
[edit]
[-] composite.pl
[edit]
[-] src.png
[edit]
[-] shadow-text.pl
[edit]
[-] model.gif
[edit]
[-] demo.pl
[edit]
[+]
..
[-] piddle.pl
[edit]
[-] README
[edit]
[-] shapes.pl
[edit]
[-] pink-flower.gif
[edit]
[-] yellow-flower.gif
[edit]
[-] dst.png
[edit]
[-] tree.pl
[edit]
[-] annotate.pl
[edit]
[-] compose-specials.pl
[edit]
[-] pixel-fx.pl
[edit]
[-] button.pl
[edit]
[-] tile.gif
[edit]
[-] single-pixels.pl
[edit]
[-] settings.pl
[edit]
[-] annotate_words.pl
[edit]
[-] Makefile
[edit]
[-] red-flower.gif
[edit]
[-] lsys.pl
[edit]
[-] smile.gif
[edit]