PrusaSlicer-NonPlainar/lib/Slic3r/TriangleMesh.pm
2014-01-06 18:29:10 +01:00

28 lines
566 B
Perl

package Slic3r::TriangleMesh;
use strict;
use warnings;
use List::Util qw(first);
use Slic3r::Geometry qw(X Y);
use Slic3r::Geometry::Clipper qw(union_ex offset);
sub needed_repair {
my $self = shift;
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};
}
1;