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

Fix regression in --gcode-arcs

Browse source
This commit is contained in:
Alessandro Ranellucci 2013-05-16 12:54:38 +02:00
parent 521d668712
commit 09989ab8bd
1 changed files with 4 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lib/Slic3r/ExtrusionPath.pm
View file

@ -20,7 +20,7 @@ has 'polyline' => (
# height is the vertical thickness of the extrusion expressed in mm # height is the vertical thickness of the extrusion expressed in mm
has 'height' => (is => 'rw'); has 'height' => (is => 'rw');
has 'flow_spacing' => (is => 'rw'); has 'flow_spacing' => (is => 'rw', required => 1);
has 'role' => (is => 'rw', required => 1); has 'role' => (is => 'rw', required => 1);
use constant EXTR_ROLE_PERIMETER => 0; use constant EXTR_ROLE_PERIMETER => 0;
@ -241,6 +241,7 @@ sub detect_arcs {
my $arc = Slic3r::ExtrusionPath::Arc->new( my $arc = Slic3r::ExtrusionPath::Arc->new(
polyline => Slic3r::Polyline->new(\@arc_points), polyline => Slic3r::Polyline->new(\@arc_points),
role => $self->role, role => $self->role,
flow_spacing => $self->flow_spacing,
orientation => $orientation, orientation => $orientation,
center => $arc_center, center => $arc_center,
radius => $arc_center->distance_to($points[$i]), radius => $arc_center->distance_to($points[$i]),
@ -250,6 +251,7 @@ sub detect_arcs {
push @paths, (ref $self)->new( push @paths, (ref $self)->new(
polyline => Slic3r::Polyline->new(@points[0..$i]), polyline => Slic3r::Polyline->new(@points[0..$i]),
role => $self->role, role => $self->role,
flow_spacing => $self->flow_spacing,
height => $self->height, height => $self->height,
) if $i > 0; ) if $i > 0;
@ -269,6 +271,7 @@ sub detect_arcs {
push @paths, (ref $self)->new( push @paths, (ref $self)->new(
polyline => Slic3r::Polyline->new(\@points), polyline => Slic3r::Polyline->new(\@points),
role => $self->role, role => $self->role,
flow_spacing => $self->flow_spacing,
height => $self->height, height => $self->height,
) if @points > 1; ) if @points > 1;