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

Make sure the inwards move after last perimeter loop doesn't exceed object boundary

Browse source
This commit is contained in:
Alessandro Ranellucci 2013-03-09 17:15:45 +01:00
parent caa79583ff
commit d50e0af548
1 changed files with 6 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lib/Slic3r/GCode.pm
View file

@ -1,7 +1,7 @@
package Slic3r::GCode; package Slic3r::GCode;
use Moo; use Moo;
use List::Util qw(max first); use List::Util qw(min max first);
use Slic3r::ExtrusionPath ':roles'; use Slic3r::ExtrusionPath ':roles';
use Slic3r::Geometry qw(scale unscale scaled_epsilon points_coincide PI X Y B); use Slic3r::Geometry qw(scale unscale scaled_epsilon points_coincide PI X Y B);
use Slic3r::Geometry::Clipper qw(union_ex); use Slic3r::Geometry::Clipper qw(union_ex);
@ -159,7 +159,11 @@ sub extrude_loop {
$angle *= -1 if $was_clockwise; $angle *= -1 if $was_clockwise;
# create the destination point along the first segment and rotate it # create the destination point along the first segment and rotate it
my $point = Slic3r::Geometry::point_along_segment(@{$extrusion_path->polyline}[0,1], scale $extrusion_path->flow_spacing); # we make sure we don't exceed the segment length because we don't know
# the rotation of the second segment so we might cross the object boundary
my $first_segment = Slic3r::Line->new(@{$extrusion_path->polyline}[0,1]);
my $distance = min(scale $extrusion_path->flow_spacing, $first_segment->length);
my $point = Slic3r::Geometry::point_along_segment(@$first_segment, $distance);
bless $point, 'Slic3r::Point'; bless $point, 'Slic3r::Point';
$point->rotate($angle, $extrusion_path->polyline->[0]); $point->rotate($angle, $extrusion_path->polyline->[0]);