PrusaSlicer-NonPlainar/lib/Slic3r/TriangleMesh.pm

33 lines
677 B
Perl
Raw Normal View History

package Slic3r::TriangleMesh;
2013-09-09 22:40:46 +00:00
use strict;
use warnings;
2013-09-09 22:40:46 +00:00
use List::Util qw(first);
use Slic3r::Geometry qw(X Y);
2013-08-05 18:21:08 +00:00
use Slic3r::Geometry::Clipper qw(union_ex offset);
2013-09-09 22:40:46 +00:00
sub needed_repair {
my $self = shift;
2013-09-09 22:40:46 +00:00
my $stats = $self->stats;
return (first { $stats->{$_} > 0 }
qw(degenerate_facets edges_fixed facets_removed facets_added facets_reversed backwards_edges)) ? 1 : 0;
}
sub center {
my $self = shift;
return $self->bounding_box->center;
}
sub facets_count {
my $self = shift;
return $self->stats->{number_of_facets};
}
sub bounding_box {
my $self = shift;
return Slic3r::Geometry::BoundingBox->new_from_bb($self->bb3);
}
1;