3D-printing/OrcaSlicer
1
0
Fork 0
mirror of https://github.com/SoftFever/OrcaSlicer.git synced 2025-07-23 22:54:08 -06:00
Code Issues Projects Releases Packages Wiki Activity Actions 2

New --skirt-height option. #11

Browse source
This commit is contained in:
Alessandro Ranellucci 2011-11-13 18:41:12 +01:00
parent b123194522
commit 097b8d9acb
8 changed files with 41 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

14
lib/Slic3r/Perimeter.pm
View file

@ -2,7 +2,6 @@ package Slic3r::Perimeter;
use Moo;
use Math::Clipper ':all';
use Math::ConvexHull 1.0.4 qw(convex_hull);
use Slic3r::Geometry qw(X Y shortest_path);
use XXX;
@ -72,19 +71,6 @@ sub make_perimeter {
push @{ $layer->perimeters }, Slic3r::ExtrusionLoop->cast($contour);
}
}
# generate skirt on bottom layer
if ($layer->id == 0 && $Slic3r::skirts > 0 && @{ $layer->surfaces }) {
# find out convex hull
my $convex_hull = convex_hull([ map @$_, map $_->p, @{ $layer->surfaces } ]);
# draw outlines from outside to inside
for (my $i = $Slic3r::skirts - 1; $i >= 0; $i--) {
my $distance = ($Slic3r::skirt_distance + ($Slic3r::flow_width * $i)) / $Slic3r::resolution;
my $outline = offset([$convex_hull], $distance, $Slic3r::resolution * 100, JT_ROUND);
push @{ $layer->skirts }, Slic3r::ExtrusionLoop->cast([ @{$outline->[0]} ]);
}
}
}
1;