3D-printing/OrcaSlicer
1
0
Fork 0
mirror of https://github.com/SoftFever/OrcaSlicer.git synced 2025-10-31 20:51:12 -06:00
Code Issues Projects Releases Packages Wiki Activity Actions 5

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

Browse source
This commit is contained in:
Alessandro Ranellucci 2012-09-21 16:52:05 +02:00
parent c6c7dd12da
commit 037be34b7b
2 changed files with 3 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

1
lib/Slic3r/Geometry.pm
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];
}

3
lib/Slic3r/Print.pm
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;