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

@ -86,9 +86,9 @@ sub points {
return $self->polyline;
}
sub endpoints {
sub first_point {
my $self = shift;
return ($self->points->[0], $self->points->[-1]);
return $self->polyline->[0];
}
sub is_printable { 1 }