基于orca的源码到远程仓库

lib/Slic3r/Print/Object.pm

@@ -0,0 +1,24 @@
+package Slic3r::Print::Object;
+# extends c++ class Slic3r::PrintObject (Print.xsp)
+use strict;
+use warnings;
+
+use List::Util qw(min max sum first);
+use Slic3r::Flow ':roles';
+use Slic3r::Geometry qw(scale epsilon);
+use Slic3r::Geometry::Clipper qw(diff diff_ex intersection intersection_ex union union_ex 
+    offset offset_ex offset2_ex JT_MITER);
+use Slic3r::Print::State ':steps';
+use Slic3r::Surface ':types';
+
+sub layers {
+    my $self = shift;
+    return [ map $self->get_layer($_), 0..($self->layer_count - 1) ];
+}
+
+sub support_layers {
+    my $self = shift;
+    return [ map $self->get_support_layer($_), 0..($self->support_layer_count - 1) ];
+}
+
+1;

lib/Slic3r/Print/State.pm

@@ -0,0 +1,12 @@
+# Wraps C++ enums Slic3r::PrintStep and Slic3r::PrintObjectStep
+package Slic3r::Print::State;
+use strict;
+use warnings;
+
+require Exporter;
+our @ISA = qw(Exporter);
+our @EXPORT_OK   = qw(STEP_SLICE STEP_PERIMETERS STEP_PREPARE_INFILL 
+                    STEP_INFILL STEP_SUPPORTMATERIAL STEP_SKIRT STEP_BRIM STEP_WIPE_TOWER);
+our %EXPORT_TAGS = (steps => \@EXPORT_OK);
+
+1;