#!/usr/bin/perl

use warnings;
use LSystem;

my $order=shift;

my $lsystem=LSystem->new('F++F++F', 'F'=>'F-F++F-F');
$lsystem->iterate($order);

$lsystem->setLineWidth(.5);
$lsystem->interpret
	(
		'F'=>sub { shift->forward(72/3**$order) },
		'+'=>sub { shift->rotate(60) },
		'-'=>sub { shift->rotate(-60) },
	);
$lsystem->writePicture("LSystemKoch$order.png", 'pngalpha', 144);