3D-printing/OrcaSlicer
1
0
Fork 0
mirror of https://github.com/SoftFever/OrcaSlicer.git synced 2025-07-15 18:58:00 -06:00
Code Issues Projects Releases Packages Wiki Activity Actions 1

Replace TriangleMesh with the XS port

Browse source
This commit is contained in:
Alessandro Ranellucci 2013-09-10 00:40:46 +02:00
parent 311eda7d42
commit 566d38a472
14 changed files with 77 additions and 256 deletions
Download patch file Download diff file Expand all files Collapse all files

30
lib/Slic3r/Model.pm
View file

@ -360,10 +360,9 @@ sub mesh {
# this mesh won't be suitable for check_manifoldness as multiple
# facets from different volumes may use the same vertices
return Slic3r::TriangleMesh->new(
vertices => $self->vertices,
facets => [ map @{$_->facets}, @{$self->volumes} ],
);
my $mesh = Slic3r::TriangleMesh->new;
$mesh->ReadFromPerl($self->vertices, [ map @{$_->facets}, @{$self->volumes} ]);
return $mesh;
}
sub used_vertices {
@ -381,6 +380,11 @@ sub center {
return $self->bounding_box->center;
}
sub center_2D {
my $self = shift;
return $self->bounding_box->center_2D;
}
sub bounding_box {
my $self = shift;
@ -458,17 +462,9 @@ sub facets_count {
return sum(map $_->facets_count, @{$self->volumes});
}
sub check_manifoldness {
my $self = shift;
return (first { !$_->mesh->check_manifoldness } @{$self->volumes}) ? 0 : 1;
}
sub needed_repair {
my $self = shift;
return $self->mesh_stats
&& first { $self->mesh_stats->{$_} > 0 }
qw(degenerate_facets edges_fixed facets_removed facets_added facets_reversed backwards_edges);
return (first { !$_->mesh->needed_repair } @{$self->volumes}) ? 0 : 1;
}
sub print_info {
@ -507,10 +503,10 @@ has 'facets' => (is => 'rw', default => sub { [] });
sub mesh {
my $self = shift;
return Slic3r::TriangleMesh->new(
vertices => $self->object->vertices,
facets => $self->facets,
);
my $mesh = Slic3r::TriangleMesh->new;
$mesh->ReadFromPerl($self->object->vertices, $self->facets);
return $mesh;
}
sub facets_count {