3DPrinting/PrusaSlicer-NonPlainar
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Bugfix: error when concentric infill. #73

Browse Source
This commit is contained in:
Alessandro Ranellucci 2011-11-28 22:52:35 +01:00
parent 92e86a2259
commit 248ed8589a
2 changed files with 10 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lib/Slic3r/ExtrusionPath.pm
View File

@ -19,6 +19,7 @@ sub clip_end {
while ($distance > 0) { while ($distance > 0) {
my $last_point = pop @{$self->points}; my $last_point = pop @{$self->points};
last if !@{$self->points};
my $last_segment_length = $last_point->distance_to($self->points->[-1]); my $last_segment_length = $last_point->distance_to($self->points->[-1]);
if ($last_segment_length <= $distance) { if ($last_segment_length <= $distance) {
@ -63,7 +64,11 @@ sub split_at_acute_angles {
# if the angle between $p[-2], $p[-1], $p3 is too acute # if the angle between $p[-2], $p[-1], $p3 is too acute
# then consider $p3 only as a starting point of a new # then consider $p3 only as a starting point of a new
# path and stop the current one as it is # path and stop the current one as it is
push @paths, (ref $self)->cast([@p]); push @paths, (ref $self)->cast(
[@p],
role => $self->role,
depth_layers => $self->depth_layers,
);
@p = ($p3); @p = ($p3);
push @p, grep $_, shift @points or last; push @p, grep $_, shift @points or last;
} else { } else {
@ -169,6 +174,7 @@ sub detect_arcs {
# points 0..$i form a linear path # points 0..$i form a linear path
push @paths, (ref $self)->new( push @paths, (ref $self)->new(
points => [ @points[0..$i] ], points => [ @points[0..$i] ],
role => $self->role,
depth_layers => $self->depth_layers, depth_layers => $self->depth_layers,
) if $i > 0; ) if $i > 0;
@ -187,7 +193,8 @@ sub detect_arcs {
# remaining points form a linear path # remaining points form a linear path
push @paths, (ref $self)->new( push @paths, (ref $self)->new(
points => [@points], points => [@points],
depth_layers => $self->depth_layers role => $self->role,
depth_layers => $self->depth_layers,
) if @points > 1; ) if @points > 1;
return @paths; return @paths;

2
lib/Slic3r/Fill/Concentric.pm
View File

@ -41,7 +41,7 @@ sub fill_surface {
# split the loop at the starting point and make a path # split the loop at the starting point and make a path
my $path = $loop->split_at($cur_pos); my $path = $loop->split_at($cur_pos);
# clip the path to avoid the extruder to get exactly on the first point of the loop # clip the path to avoid the extruder to get exactly on the first point of the loop
$path->clip_end($Slic3r::flow_width / $Slic3r::resolution); $path->clip_end($Slic3r::flow_width / $Slic3r::resolution);