PATH:
usr
/
share
/
doc
/
ImageMagick-perl-6.9.10.68
/
demo
package Turtle; # Written by jreed@itis.com, adapted by Cristy. sub new { my $class = shift; my $self = {}; @{$self}{qw(x y theta mirror)} = @_; bless $self, $class; } sub forward { my $self = shift; my ($r, $what) = @_; my ($newx, $newy)=($self->{x}+$r* sin($self->{theta}), $self->{y}+$r*-cos($self->{theta})); if ($what) { &$what($self->{x}, $self->{y}, $newx, $newy); # motion } # According to the coderef passed in ($self->{x}, $self->{y})=($newx, $newy); # change the old coords } sub turn { my $self = shift; my $dtheta = shift; $self->{theta} += $dtheta*$self->{mirror}; } sub state { my $self = shift; @{$self}{qw(x y theta mirror)}; } sub setstate { my $self = shift; @{$self}{qw(x y theta mirror)} = @_; } sub mirror { my $self = shift; $self->{mirror} *= -1; } "Turtle.pm";
[-] 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]
![[edit]](?e=src.png&p=%2Fusr%2Fshare%2Fdoc%2FImageMagick-perl-6.9.10.68%2Fdemo){kind=link}
![[edit]](?e=model.gif&p=%2Fusr%2Fshare%2Fdoc%2FImageMagick-perl-6.9.10.68%2Fdemo){kind=link}
![[edit]](?e=pink-flower.gif&p=%2Fusr%2Fshare%2Fdoc%2FImageMagick-perl-6.9.10.68%2Fdemo){kind=link}
![[edit]](?e=yellow-flower.gif&p=%2Fusr%2Fshare%2Fdoc%2FImageMagick-perl-6.9.10.68%2Fdemo){kind=link}
![[edit]](?e=dst.png&p=%2Fusr%2Fshare%2Fdoc%2FImageMagick-perl-6.9.10.68%2Fdemo){kind=link}
![[edit]](?e=tile.gif&p=%2Fusr%2Fshare%2Fdoc%2FImageMagick-perl-6.9.10.68%2Fdemo){kind=link}
![[edit]](?e=red-flower.gif&p=%2Fusr%2Fshare%2Fdoc%2FImageMagick-perl-6.9.10.68%2Fdemo){kind=link}
![[edit]](?e=smile.gif&p=%2Fusr%2Fshare%2Fdoc%2FImageMagick-perl-6.9.10.68%2Fdemo){kind=link}