New experimental --gcode-arcs options to generate G2/G3 commands. #23

lib/Slic3r/ExtrusionPath/Arc.pm

@@ -0,0 +1,23 @@
+package Slic3r::ExtrusionPath::Arc;
+use Moo;
+
+extends 'Slic3r::ExtrusionPath';
+
+has 'center' => (is => 'ro', required => 1);
+has 'radius' => (is => 'ro', required => 1);
+has 'orientation' => (is => 'ro', required => 1);  # cw/ccw
+
+use Slic3r::Geometry qw(PI angle3points);
+
+sub angle {
+    my $self = shift;
+    return angle3points($self->center, @{$self->points});
+}
+
+sub length {
+    my $self = shift;
+    
+    return $self->radius * $self->angle;
+}
+
+1;