Object.pm 658 B

123456789101112131415161718192021222324
  1. package Slic3r::Print::Object;
  2. # extends c++ class Slic3r::PrintObject (Print.xsp)
  3. use strict;
  4. use warnings;
  5. use List::Util qw(min max sum first);
  6. use Slic3r::Flow ':roles';
  7. use Slic3r::Geometry qw(scale epsilon);
  8. use Slic3r::Geometry::Clipper qw(diff diff_ex intersection intersection_ex union union_ex
  9. offset offset_ex offset2_ex JT_MITER);
  10. use Slic3r::Print::State ':steps';
  11. use Slic3r::Surface ':types';
  12. sub layers {
  13. my $self = shift;
  14. return [ map $self->get_layer($_), 0..($self->layer_count - 1) ];
  15. }
  16. sub support_layers {
  17. my $self = shift;
  18. return [ map $self->get_support_layer($_), 0..($self->support_layer_count - 1) ];
  19. }
  20. 1;