Select Code to Download

; Koch Snowflake

...
    rt 120 KSide :size / 3 :level - 1
    lt 60 KSide :size / 3 :level - 1
end

#! /usr/local/bin/perl -w
use strict;
...
    binmode IMG;
    print IMG $image->jpeg;
}

# Turtle as in LOGO's Turtle
{package turtle;
...
dragon($turtle, 150, 12);
# -----------------------------------------------------------
plotxy($turtle->{xy}, 'dragon.jpg');

use constant PI => 3.14159265359;
# -----------------------------------------------------------
...
dragon(150, 12);
# -----------------------------------------------------------
plotxy([\@x,\@y], 'dragon.jpg');