use strict; use warnings;
use Math::Fractal::Curve;

# This generates a von Koch-curve.
my $generator =
[
	[0,   0,         1/3, 0        ],
	[1/3, 0,         1/2, sqrt(5)/6],
	[1/2, sqrt(5)/6, 2/3, 0        ],
	[2/3, 0,         1,   0        ],
];

# New curve generator
my $curve_gen = Math::Fractal::Curve->new(generator => $generator);

# New curve
my $curve = $curve_gen->line(
	start => [-2, 0],
	end   => [2, 0],
);

my $depth = 5;

my $edges = $curve->fractal($depth);