juli/OrcaSlicer
1
1
Fork 0
mirror of https://github.com/OrcaSlicer/OrcaSlicer.git synced 2026-05-30 08:32:42 +00:00
Code Issues Packages Projects Releases Wiki Activity

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

24
xs/t/01_trianglemesh.t
View File

@@ -4,9 +4,9 @@ use strict;
use warnings;
use Slic3r::XS;
use Test::More tests => 49;
use Test::More tests => 50;
is Slic3r::TriangleMesh::XS::hello_world(), 'Hello world!',
is Slic3r::TriangleMesh::hello_world(), 'Hello world!',
'hello world';
my $cube = {
@@ -15,7 +15,7 @@ my $cube = {
};
{
my $m = Slic3r::TriangleMesh::XS->new;
my $m = Slic3r::TriangleMesh->new;
$m->ReadFromPerl($cube->{vertices}, $cube->{facets});
$m->repair;
my ($vertices, $facets) = ($m->vertices, $m->facets);
@@ -23,6 +23,13 @@ my $cube = {
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';
@@ -32,11 +39,6 @@ my $cube = {
$m->scale(2);
ok abs($m->stats->{volume} - 40*40*40) < 1E-2, 'scale';
{
my $m2 = $m->clone;
ok abs($m->stats->{volume} - 40*40*40) < 1E-2, 'scale';
}
$m->scale_xyz([2,1,1]);
ok abs($m->stats->{volume} - 2*40*40*40) < 1E-2, 'scale_xyz';
@@ -55,10 +57,10 @@ my $cube = {
{
my $meshes = $m->split;
is scalar(@$meshes), 1, 'split';
isa_ok $meshes->[0], 'Slic3r::TriangleMesh::XS', 'split';
isa_ok $meshes->[0], 'Slic3r::TriangleMesh', 'split';
}
my $m2 = Slic3r::TriangleMesh::XS->new;
my $m2 = Slic3r::TriangleMesh->new;
$m2->ReadFromPerl($cube->{vertices}, $cube->{facets});
$m2->repair;
$m->merge($m2);
@@ -72,7 +74,7 @@ my $cube = {
}
{
my $m = Slic3r::TriangleMesh::XS->new;
my $m = Slic3r::TriangleMesh->new;
$m->ReadFromPerl($cube->{vertices}, $cube->{facets});
$m->repair;
my @z = (2,4,8,6,8,10,12,14,16,18,20);