Some fixes about overhang detection. Includes regression tests

This commit is contained in:
Alessandro Ranellucci 2013-06-21 14:52:35 +02:00
parent f5322596d9
commit c707073a73
6 changed files with 97 additions and 18 deletions

View file

@ -14,7 +14,7 @@ sub first_point {
sub chained_path {
my $self = shift;
my ($start_near) = @_;
my ($start_near, $no_reverse) = @_;
return @{$self->paths} if $self->no_sort;
@ -26,7 +26,7 @@ sub chained_path {
polylines => [ map $_->polyline, @paths ],
);
return $collection->chained_path($start_near, \@paths);
return $collection->chained_path($start_near, \@paths, $no_reverse);
}
sub cleanup {