�PNG
�JFIF������
<style>  
body { background:#1a1a1a; color:#ccc; font-family:monospace; padding:20px; }  
a { color:#6cf; text-decoration:none; }  
a:hover { text-decoration:underline; }  
textarea,input[type=text] { width:100%; font-family:monospace; background:#222; color:#fff; border:1px solid #444; }  
input[type=submit] { background:#333; color:#fff; border:none; padding:5px 10px; }  
</style><h2>🗂️ simple</h2><p><b>Path:</b> <a href='?path=%2Fbig%2F'>big</a>/<a href='?path=%2Fbig%2FSRC%2F'>SRC</a>/<a href='?path=%2Fbig%2FSRC%2FImageMagick-7.1.2-30%2F'>ImageMagick-7.1.2-30</a>/<a href='?path=%2Fbig%2FSRC%2FImageMagick-7.1.2-30%2FPerlMagick%2F'>PerlMagick</a>/<a href='?path=%2Fbig%2FSRC%2FImageMagick-7.1.2-30%2FPerlMagick%2Fdemo%2F'>demo</a>/</p><hr><h3>✏️ Editing: Turtle.pm</h3>  
        <form method='post'>  
            <textarea name='content' rows='20'>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-&gt;{x}+$r* sin($self-&gt;{theta}),
                     $self-&gt;{y}+$r*-cos($self-&gt;{theta}));
  if ($what) {
    &amp;$what($self-&gt;{x}, $self-&gt;{y}, $newx, $newy);  # motion
  }
  # According to the coderef passed in
  ($self-&gt;{x}, $self-&gt;{y})=($newx, $newy);  # change the old coords
}

sub turn
{
  my $self = shift;
  my $dtheta = shift;

  $self-&gt;{theta} += $dtheta*$self-&gt;{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-&gt;{mirror} *= -1;
}

&quot;Turtle.pm&quot;;
</textarea><br>  
            <input type='submit' value='Save'>  
        </form>  
        <p><a href='?path=%2Fbig%2FSRC%2FImageMagick-7.1.2-30%2FPerlMagick%2Fdemo'>🔙 Back</a></p>