#!/usr/bin/perl

use warnings;
use LSystem;

my $order=shift;

my $t=LSystem->new
	(
		'A',
		'A'=>'B-A-B',
		'B'=>'A+B+A',
	);
$t->iterate($order);

$t->setLineWidth(.5);

$t->interpret
	(
		'A'=>sub { shift->forward(72/2**$order) },
		'B'=>sub { shift->forward(72/2**$order) },
		'+'=>sub { shift->rotate(60) },
		'-'=>sub { shift->rotate(-60) },
	);
$t->writePicture("LSystemSierpinski$order.png", 'pngalpha', 144);