2013-07-16 09:49:34 +02:00
|
|
|
package Slic3r::ExPolygon;
|
2011-10-15 11:36:05 +02:00
|
|
|
use strict;
|
|
|
|
use warnings;
|
|
|
|
|
|
|
|
# an ExPolygon is a polygon with holes
|
|
|
|
|
2011-11-13 18:14:02 +01:00
|
|
|
sub bounding_box {
|
|
|
|
my $self = shift;
|
2013-06-16 12:21:25 +02:00
|
|
|
return $self->contour->bounding_box;
|
2012-02-25 14:46:21 +01:00
|
|
|
}
|
|
|
|
|
2012-11-24 00:13:04 +01:00
|
|
|
package Slic3r::ExPolygon::Collection;
|
|
|
|
|
|
|
|
sub size {
|
|
|
|
my $self = shift;
|
2013-07-14 00:38:01 +02:00
|
|
|
return [ Slic3r::Geometry::size_2D([ map @$_, map @$_, @$self ]) ];
|
2012-11-24 00:13:04 +01:00
|
|
|
}
|
|
|
|
|
2011-10-15 11:36:05 +02:00
|
|
|
1;
|