#!/usr/bin/perl

use warnings;
use LSystem;

my $order=shift;

my $lsystem=LSystem->new
	(
		'FL',
		'F'=>'',
		'L'=>'FL-FR--FR+FL++FLFL+FR-',
		'R'=>'+FL-FRFR--FR-FL++FL+FR',
	);
$lsystem->iterate($order);

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