79 lines
1.7 KiB
Perl
79 lines
1.7 KiB
Perl
package Slic3r::Geometry::BoundingBox;
|
|
use Moo;
|
|
use Slic3r::Geometry qw(X Y Z MIN MAX X1 Y1 X2 Y2);
|
|
use Storable qw();
|
|
|
|
has 'extents' => (is => 'ro', required => 1);
|
|
|
|
sub clone { Storable::dclone($_[0]) }
|
|
|
|
# four-arguments 2D bb
|
|
sub bb {
|
|
my $self = shift;
|
|
my $extents = $self->extents;
|
|
return [ $extents->[X][MIN], $extents->[Y][MIN], $extents->[X][MAX], $extents->[Y][MAX] ];
|
|
}
|
|
|
|
sub polygon {
|
|
my $self = shift;
|
|
return Slic3r::Polygon->new_from_bounding_box($self->bb);
|
|
}
|
|
|
|
sub rotate {
|
|
my $self = shift;
|
|
my ($angle, $center) = @_;
|
|
|
|
# rotate the 2D bounding box polygon and leave Z unaltered
|
|
my $bb_p = $self->polygon;
|
|
$bb_p->rotate($angle, $center);
|
|
my @bb = $bb_p->bounding_box;
|
|
$self->extents->[X][MIN] = $bb[X1];
|
|
$self->extents->[Y][MIN] = $bb[Y1];
|
|
$self->extents->[X][MAX] = $bb[X2];
|
|
$self->extents->[Y][MAX] = $bb[Y2];
|
|
|
|
$self;
|
|
}
|
|
|
|
sub scale {
|
|
my $self = shift;
|
|
my ($factor) = @_;
|
|
|
|
$_ *= $factor
|
|
for map @$_[MIN,MAX],
|
|
grep $_, @{$self->extents}[X,Y,Z];
|
|
|
|
$self;
|
|
}
|
|
|
|
sub size {
|
|
my $self = shift;
|
|
|
|
my $extents = $self->extents;
|
|
return [ map $extents->[$_][MAX] - $extents->[$_][MIN], grep $extents->[$_], (X,Y,Z) ];
|
|
}
|
|
|
|
sub center {
|
|
my $self = shift;
|
|
|
|
my $extents = $self->extents;
|
|
return [ map +($extents->[$_][MAX] + $extents->[$_][MIN])/2, grep $extents->[$_], (X,Y,Z) ];
|
|
}
|
|
|
|
sub center_2D {
|
|
my $self = shift;
|
|
return Slic3r::Point->new(@{$self->center}[X,Y]);
|
|
}
|
|
|
|
sub min_point {
|
|
my $self = shift;
|
|
return Slic3r::Point->new($self->extents->[X][MIN], $self->extents->[Y][MIN]);
|
|
}
|
|
|
|
sub max_point {
|
|
my $self = shift;
|
|
return Slic3r::Point->new($self->extents->[X][MAX], $self->extents->[Y][MAX]);
|
|
}
|
|
|
|
1;
|