PrusaSlicer-NonPlainar/lib/Slic3r/Print/Object.pm

22 lines
484 B
Perl
Raw Normal View History

package Slic3r::Print::Object;
2016-09-13 09:24:55 +00:00
# extends c++ class Slic3r::PrintObject (Print.xsp)
2014-06-10 14:01:57 +00:00
use strict;
use warnings;
2013-07-29 18:49:54 +00:00
use List::Util qw(min max sum first);
2013-12-31 13:33:03 +00:00
use Slic3r::Flow ':roles';
2013-12-19 17:54:24 +00:00
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;