2012-04-29 12:51:20 +02:00
|
|
|
package Slic3r::Print::Object;
|
2016-09-13 11:24:55 +02:00
|
|
|
# extends c++ class Slic3r::PrintObject (Print.xsp)
|
2014-06-10 16:01:57 +02:00
|
|
|
use strict;
|
|
|
|
use warnings;
|
2012-04-29 12:51:20 +02:00
|
|
|
|
2013-07-29 20:49:54 +02:00
|
|
|
use List::Util qw(min max sum first);
|
2013-12-31 14:33:03 +01:00
|
|
|
use Slic3r::Flow ':roles';
|
2017-07-19 10:45:39 +02:00
|
|
|
use Slic3r::Geometry qw(scale epsilon);
|
2013-07-29 20:49:54 +02:00
|
|
|
use Slic3r::Geometry::Clipper qw(diff diff_ex intersection intersection_ex union union_ex
|
2017-07-19 10:45:39 +02:00
|
|
|
offset offset2 offset_ex offset2_ex JT_MITER);
|
2013-12-19 18:54:24 +01:00
|
|
|
use Slic3r::Print::State ':steps';
|
2012-05-19 16:04:33 +02:00
|
|
|
use Slic3r::Surface ':types';
|
2012-04-29 12:51:20 +02:00
|
|
|
|
2014-05-06 11:07:18 +03:00
|
|
|
sub layers {
|
2013-05-19 11:35:41 +02:00
|
|
|
my $self = shift;
|
2014-05-06 11:07:18 +03:00
|
|
|
return [ map $self->get_layer($_), 0..($self->layer_count - 1) ];
|
2013-05-19 11:35:41 +02:00
|
|
|
}
|
|
|
|
|
2014-05-06 11:07:18 +03:00
|
|
|
sub support_layers {
|
|
|
|
my $self = shift;
|
|
|
|
return [ map $self->get_support_layer($_), 0..($self->support_layer_count - 1) ];
|
2013-05-19 11:35:41 +02:00
|
|
|
}
|
|
|
|
|
2012-04-29 12:51:20 +02:00
|
|
|
1;
|