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

Move arc fitting code to its own post-processing filter and remove the built-in ExtrusionPath::Arc class

Browse source
This commit is contained in:
Alessandro Ranellucci 2013-08-28 19:50:16 +02:00
parent 055273fbc8
commit 5f17fa342b
9 changed files with 149 additions and 196 deletions
Download patch file Download diff file Expand all files Collapse all files

133
lib/Slic3r/GCode/ArcFitting.pm Normal file
View file

@ -0,0 +1,133 @@
package Slic3r::GCode::ArcFitting;
use Moo;
use Slic3r::Geometry qw(X Y PI scale unscale deg2rad);
extends 'Slic3r::GCode::Reader';
has 'config' => (is => 'ro', required => 1);
has 'max_angle' => (is => 'rw', default => sub { deg2rad(15) });
has 'len_epsilon' => (is => 'rw', default => sub { scale 10 });
has 'parallel_degrees_limit' => (is => 'rw', default => sub { abs(deg2rad(3)) });
sub process {
my $self = shift;
my ($gcode) = @_;
my $new_gcode = "";
my $buffer = "";
my @cur_path = ();
my $cur_len = 0;
my $cur_relative_angle = 0;
$self->parse($gcode, sub {
my ($reader, $cmd, $args, $info) = @_;
if ($info->{extruding} && $info->{dist_XY} > 0) {
my $point = Slic3r::Point->new_scale($args->{X}, $args->{Y});
if (@cur_path >= 2) {
if ($cur_path[-1]->distance_to($point) > $self->len_epsilon) {
# if the last distance is not compatible with the current arc, flush it
$new_gcode .= $self->flush_path(\@cur_path, \$buffer);
} elsif (@cur_path >= 3) {
my $rel_angle = relative_angle(@cur_path[-2,-1], $point);
if (($cur_relative_angle != 0 && abs($rel_angle - $cur_relative_angle) > $self->parallel_degrees_limit) # relative angle is too different from the previous one
|| abs($rel_angle) < $self->parallel_degrees_limit # relative angle is almost parallel
|| $rel_angle > $self->max_angle) { # relative angle is excessive (too sharp)
# in these cases, $point does not really look like an additional point of the current arc
$new_gcode .= $self->flush_path(\@cur_path, \$buffer);
}
}
}
if (@cur_path == 0) {
# we're starting a path, so let's prepend the previous position
push @cur_path, Slic3r::Point->new_scale($self->X, $self->Y), $point;
$buffer .= $info->{raw} . "\n";
$cur_len = $cur_path[0]->distance_to($cur_path[1]);
} else {
push @cur_path, $point;
$buffer .= $info->{raw} . "\n";
if (@cur_path == 3) {
# we have two segments, time to compute a reference angle
$cur_relative_angle = relative_angle(@cur_path[0,1,2]);
}
}
} else {
$new_gcode .= $self->flush_path(\@cur_path, \$buffer);
$new_gcode .= $info->{raw} . "\n";
}
});
$new_gcode .= $self->flush_path(\@cur_path, \$buffer);
return $new_gcode;
}
sub flush_path {
my ($self, $cur_path, $buffer) = @_;
my $gcode = "";
if (@$cur_path >= 3) {
# if we have enough points, then we have an arc
$$buffer =~ s/^/;/mg;
$gcode = "; these moves were replaced by an arc:\n" . $$buffer;
my $orientation = Slic3r::Geometry::point_is_on_left_of_segment($cur_path->[2], [ @$cur_path[0,1] ]) ? 'ccw' : 'cw';
# to find the center, we intersect the perpendicular lines
# passing by midpoints of $s1 and last segment
# a better method would be to draw all the perpendicular lines
# and find the centroid of the enclosed polygon, or to
# intersect multiple lines and find the centroid of the convex hull
# around the intersections
my $arc_center;
{
my $s1_mid = Slic3r::Line->new(@$cur_path[0,1])->midpoint;
my $last_mid = Slic3r::Line->new(@$cur_path[-2,-1])->midpoint;
my $rotation_angle = PI/2 * ($orientation eq 'ccw' ? -1 : 1);
my $ray1 = Slic3r::Line->new($s1_mid, $cur_path->[1]->clone->rotate($rotation_angle, $s1_mid));
my $last_ray = Slic3r::Line->new($last_mid, $cur_path->[-1]->clone->rotate($rotation_angle, $last_mid));
$arc_center = $ray1->intersection($last_ray, 0) or next POINT;
}
my $radius = $arc_center->distance_to($cur_path->[0]);
my $total_angle = Slic3r::Geometry::angle3points($arc_center, @$cur_path[0,-1]);
my $length = $orientation eq 'ccw'
? $radius * $total_angle
: $radius * (2*PI - $total_angle);
# compose G-code line
$gcode .= $orientation eq 'cw' ? "G2" : "G3";
$gcode .= sprintf " X%.3f Y%.3f", map unscale($_), @{$cur_path->[-1]}; # destination point
# XY distance of the center from the start position
$gcode .= sprintf " I%.3f J%.3f", map { unscale($arc_center->[$_] - $cur_path->[0][$_]) } (X,Y);
my $E = 0; # TODO: compute E using $length
$gcode .= sprintf(" %s%.5f", $self->config->extrusion_axis, $E)
if $E;
my $F = 0; # TODO: extract F from original moves
$gcode .= " F$F\n";
} else {
$gcode = $$buffer;
}
$$buffer = "";
splice @$cur_path, 0, $#$cur_path; # keep last point as starting position for next path
return $gcode;
}
sub relative_angle {
my ($p1, $p2, $p3) = @_;
my $s1 = Slic3r::Line->new($p1, $p2);
my $s2 = Slic3r::Line->new($p2, $p3);
my $s1_angle = $s1->atan;
my $s2_angle = $s2->atan;
$s1_angle += 2*PI if $s1_angle < 0;
$s2_angle += 2*PI if $s2_angle < 0;
return $s2_angle - $s1_angle;
}
1;

13
lib/Slic3r/GCode/Layer.pm
View file

@ -10,6 +10,7 @@ has 'shift' => (is => 'ro', required => 1);
has 'spiralvase' => (is => 'lazy');
has 'vibration_limit' => (is => 'lazy');
has 'arc_fitting' => (is => 'lazy');
has 'skirt_done' => (is => 'rw', default => sub { {} }); # print_z => 1
has 'brim_done' => (is => 'rw');
has 'second_layer_things_done' => (is => 'rw');
@ -31,6 +32,14 @@ sub _build_vibration_limit {
: undef;
}
sub _build_arc_fitting {
my $self = shift;
return $Slic3r::Config->gcode_arcs
? Slic3r::GCode::ArcFitting->new(config => $self->gcodegen->config)
: undef;
}
sub process_layer {
my $self = shift;
my ($layer, $object_copies) = @_;
@ -175,6 +184,10 @@ sub process_layer {
$gcode = $self->vibration_limit->process($gcode)
if $Slic3r::Config->vibration_limit != 0;
# apply arc fitting if enabled
$gcode = $self->arc_fitting->process($gcode)
if $Slic3r::Config->gcode_arcs;
return $gcode;
}