mirror of
https://github.com/SoftFever/OrcaSlicer.git
synced 2025-11-02 20:51:23 -07:00
8a2a9dba2f
TriangleMesh newly only holds indexed_triangle_set and
TriangleMeshStats. TriangleMeshStats contains an excerpt of stl_stats.
TriangleMeshStats are updated when initializing with indexed_triangle_set.
Admesh triangle mesh fixing is newly only used when loading an STL.
AMF / 3MF / OBJ file formats are already indexed triangle sets, thus
they are no more converted to admesh stl_file format, nor fixed
through admesh repair machinery. When importing AMF / 3MF / OBJ files,
volume is calculated and if negative, all faces are flipped. Also
a bounding box and number of open edges is calculated.
Implemented its_number_of_patches(), its_num_open_edges()
Optimized its_split(), its_is_splittable() using a visitor pattern.
Reworked QHull integration into TriangleMesh:
1) Face normals were not right.
2) Indexed triangle set is newly emitted instead of duplicating
vertices for each face.
Fixed cut_mesh(): Orient the triangulated faces correctly.
35 lines
1.1 KiB
Perl
35 lines
1.1 KiB
Perl
#!/usr/bin/perl
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
use Slic3r::XS;
|
|
use Test::More tests => 5;
|
|
|
|
my $cube = {
|
|
vertices => [ [20,20,0], [20,0,0], [0,0,0], [0,20,0], [20,20,20], [0,20,20], [0,0,20], [20,0,20] ],
|
|
facets => [ [0,1,2], [0,2,3], [4,5,6], [4,6,7], [0,4,7], [0,7,1], [1,7,6], [1,6,2], [2,6,5], [2,5,3], [4,0,3], [4,3,5] ],
|
|
};
|
|
|
|
{
|
|
my $m = Slic3r::TriangleMesh->new;
|
|
$m->ReadFromPerl($cube->{vertices}, $cube->{facets});
|
|
my ($vertices, $facets) = ($m->vertices, $m->facets);
|
|
|
|
is_deeply $vertices, $cube->{vertices}, 'vertices arrayref roundtrip';
|
|
is_deeply $facets, $cube->{facets}, 'facets arrayref roundtrip';
|
|
|
|
{
|
|
my $m2 = $m->clone;
|
|
is_deeply $m2->vertices, $cube->{vertices}, 'cloned vertices arrayref roundtrip';
|
|
is_deeply $m2->facets, $cube->{facets}, 'cloned facets arrayref roundtrip';
|
|
$m2->scale(3); # check that it does not affect $m
|
|
}
|
|
|
|
{
|
|
my $stats = $m->stats;
|
|
is $stats->{number_of_facets}, scalar(@{ $cube->{facets} }), 'stats.number_of_facets';
|
|
}
|
|
}
|
|
|
|
__END__
|