Bugfix: removed fatal error when generating SVG support material in some circumstances. #673

degen-loop-screen
Alessandro Ranellucci 2012-09-21 16:52:05 +02:00
parent c6c7dd12da
commit 037be34b7b
2 changed files with 3 additions and 1 deletions

View File

@ -242,6 +242,7 @@ sub polygon_lines {
sub nearest_point {
my ($point, $points) = @_;
my $index = nearest_point_index(@_);
return undef if !defined $index;
return $points->[$index];
}

View File

@ -462,7 +462,8 @@ EOF
foreach my $expolygon (@unsupported_slices) {
# look for the nearest point to this island among all
# supported points
my $support_point = nearest_point($expolygon->contour->[0], \@supported_points);
my $support_point = nearest_point($expolygon->contour->[0], \@supported_points)
or next;
my $anchor_point = nearest_point($support_point, $expolygon->contour->[0]);
printf $fh qq{ <line x1="%s" y1="%s" x2="%s" y2="%s" style="stroke-width: 2; stroke: white" />\n},
map @$_, $support_point, $anchor_point;