Do each island completely if avoid_crossing_perimeters is enabled. #278

This commit is contained in:
Alessandro Ranellucci 2013-03-10 16:09:03 +01:00
parent f10a4787b2
commit dac168eff0
4 changed files with 57 additions and 17 deletions

View file

@ -3,9 +3,12 @@ use Moo;
has 'paths' => (is => 'rw', default => sub { [] });
sub endpoints {
# no-op
sub unpack { $_[0] }
sub first_point {
my $self = shift;
return [ map $_->endpoints, @{$self->paths} ];
return $self->paths->[0]->unpack->polyline->[0];
}
sub chained_path {