#!/usr/bin/perl

use warnings;
use LSystem;

my $order=shift;

my $lsystem=LSystem->new
	(
		'FX',
		'X'=>'X+YF',
		'Y'=>'FX-Y'
	);
$lsystem->iterate($order);

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