Server IP : 111.118.215.189 / Your IP : 216.73.216.194 Web Server : Apache System : Linux md-in-83.webhostbox.net 4.19.286-203.ELK.el7.x86_64 #1 SMP Wed Jun 14 04:33:55 CDT 2023 x86_64 User : a1673wkz ( 2475) PHP Version : 8.2.25 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : ON Directory (0755) : /usr/share/doc/ImageMagick-perl-6.9.10.68/demo/ |
[ Home ] | [ C0mmand ] | [ Upload File ] |
---|
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";