juli/OrcaSlicer
1
1
Fork 0
mirror of https://github.com/OrcaSlicer/OrcaSlicer.git synced 2026-05-20 03:43:52 +00:00
Code Issues Packages Projects Releases Wiki Activity

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 { sub nearest_point {
my ($point, $points) = @_; my ($point, $points) = @_;
my $index = nearest_point_index(@_); my $index = nearest_point_index(@_);
return undef if !defined $index;
return $points->[$index]; return $points->[$index];
} }

3
lib/Slic3r/Print.pm
View File

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