Bugfix: removed fatal error when generating SVG support material in some circumstances. #673
This commit is contained in:
parent
c6c7dd12da
commit
037be34b7b
2 changed files with 3 additions and 1 deletions
|
@ -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];
|
||||
}
|
||||
|
||||
|
|
|
@ -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;
|
||||
|
|
Loading…
Reference in a new issue