Gecko [ www.finalhopeacademy.com ]

Name	Size	Permission
Makefile	360 B	-rw-r--r--
README	124 B	-rw-r--r--
Turtle.pm	868 B	-rw-r--r--
annotate.pl	1.41 KB	-rw-r--r--
annotate_words.pl	1.96 KB	-rw-r--r--
button.pl	397 B	-rw-r--r--
compose-specials.pl	5.38 KB	-rw-r--r--
composite.pl	1.55 KB	-rw-r--r--
demo.pl	11.86 KB	-rw-r--r--
dst.png	437 B	-rw-r--r--
lsys.pl	2.34 KB	-rw-r--r--
model.gif	22.88 KB	-rw-r--r--
piddle.pl	1.9 KB	-rw-r--r--
pink-flower.gif	544 B	-rw-r--r--
pixel-fx.pl	1.56 KB	-rw-r--r--
red-flower.gif	694 B	-rw-r--r--
settings.pl	782 B	-rw-r--r--
shadow-text.pl	521 B	-rw-r--r--
shapes.pl	1.21 KB	-rw-r--r--
single-pixels.pl	1.16 KB	-rw-r--r--
smile.gif	1.32 KB	-rw-r--r--
src.png	400 B	-rw-r--r--
steganography.pl	682 B	-rw-r--r--
tile.gif	1.53 KB	-rw-r--r--
tree.pl	829 B	-rw-r--r--
yellow-flower.gif	565 B	-rw-r--r--

Code Editor : lsys.pl

#!/usr/bin/perl

eval 'exec /usr/bin/perl  -S $0 ${1+"$@"}'
    if 0; # not running under some shell

# Written by jreed@itis.com, adapted by Cristy.

use Image::Magick;
use Turtle;

sub flower
{
  my $flower = shift;
  my ($width, $height) = $flower->Get('width', 'height');
  my ($x, $y) = $turtle->state();
  my ($geometry);

$geometry = '+' . int($x-$width/2) . '+' . int($y-$height/2);
  $im->Composite(image=>$flower, compose=>'over', geometry=>$geometry);
}

sub lsys_init
{
  my ($imagesize) = @_;
  
  %translate =
  (
    'S' => sub{ # Step forward
                $turtle->forward($changes->{"distance"},
                $changes->{"motionsub"});
              },
    '-' => sub{ $turtle->turn(-$changes->{"dtheta"}); },  # counter-clockwise
    '+' => sub{ $turtle->turn($changes->{"dtheta"}); },  # Turn clockwise
    'M' => sub{ $turtle->mirror(); },  # Mirror
    '[' => sub{ push(@statestack, [$turtle->state()]); },  # Begin branch
    ']' => sub{ $turtle->setstate(@{pop(@statestack)}); },  # End branch
    '{' => sub{ @poly = (); $changes=\%polychanges; },  # Begin polygon
    '}' => sub{ # End polygon
                $im->Draw (primitive=>'Polygon', points=>join(' ',@poly),
                           fill=>'light green');
                $changes = \%stemchanges;
              },
    'f' => sub{ flower($pink_flower); },  # Flower
    'g' => sub{ flower($red_flower); },  # Flower
    'h' => sub{ flower($yellow_flower); }  # Flower
  );

# Create the main image
  $im = new Image::Magick;
  $im->Set(size=>$imagesize . 'x' . $imagesize);
  $im->Read('xc:white');
  
  # Create the flower images
  $pink_flower = new Image::Magick;
  $pink_flower->Read('pink-flower.gif');
  
  $red_flower = new Image::Magick;
  $red_flower->Read('red-flower.gif');
  
  $yellow_flower = new Image::Magick;
  $yellow_flower->Read('yellow-flower.gif');
  
  # Turtle:  the midpoint of the bottom edge of the image, pointing up.
  $turtle=new Turtle($imagesize/2, $imagesize, 0, 1);
}

sub lsys_execute
{
  my ($string, $repetitions, $filename, %rule) = @_;

my ($command);

# Apply the %rule to $string, $repetitions times.
  for (1..$repetitions)
  {
    $string =~ s/./defined ($rule{$&}) ? $rule{$&} : $&/eg;
  }
  foreach $command (split(//, $string))
  {
    if ($translate{$command}) { &{$translate{$command}}(); }
  }
  $im->Write($filename);
  $im->Write('win:');
}

${this.title}

Code Editor : lsys.pl