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

Fix regression in t/shells.t due to things ported to XS

Browse source
This commit is contained in:
Alessandro Ranellucci 2013-11-08 11:35:02 +01:00
parent c133a33ed2
commit 928c4741c2
1 changed files with 6 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

14
lib/Slic3r/ExPolygon.pm
View file

@ -237,17 +237,15 @@ sub _medial_axis_voronoi {
next unless @$polyline >= 2;
# now replace point indexes with coordinates
@$polyline = map $vertices->[$_], @$polyline;
my @points = map Slic3r::Point->new(@{$vertices->[$_]}), @$polyline;
# cleanup
$polyline = Slic3r::Geometry::douglas_peucker($polyline, $width / 7);
if ($polyline->[0][X] == $polyline->[-1][X] && $polyline->[0][Y] == $polyline->[-1][Y]) {
next if @$polyline == 2;
push @result, Slic3r::Polygon->new(@$polyline[0..$#$polyline-1]);
if ($points[0]->coincides_with($points[-1])) {
next if @points == 2;
push @result, Slic3r::Polygon->new(@points[0..$#points-1]);
} else {
push @result, Slic3r::Polyline->new(@$polyline);
push @result, Slic3r::Polyline->new(@points);
}
$result[-1]->simplify($width / 7);
}
return @result;