Lines Matching refs:Turtle
6 use Turtle;
12 my ($x, $y) = $turtle->state();
26 $turtle->forward($changes->{"distance"},
29 '-' => sub{ $turtle->turn(-$changes->{"dtheta"}); }, # counter-clockwise
30 '+' => sub{ $turtle->turn($changes->{"dtheta"}); }, # Turn clockwise
31 'M' => sub{ $turtle->mirror(); }, # Mirror
32 '[' => sub{ push(@statestack, [$turtle->state()]); }, # Begin branch
33 ']' => sub{ $turtle->setstate(@{pop(@statestack)}); }, # End branch
60 # Turtle: the midpoint of the bottom edge of the image, pointing up.
61 $turtle=new Turtle($imagesize/2, $imagesize, 0, 1);
