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

Implemented TriangleMesh->merge

Browse Source
This commit is contained in:
Alessandro Ranellucci
2013-09-09 22:45:22 +02:00
parent 27e7c6b9f7
commit 3919ba83d8
6 changed files with 29 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
xs/t/01_trianglemesh.t
View File

@@ -4,7 +4,7 @@ use strict;
use warnings;
use Slic3r::XS;
use Test::More tests => 45;
use Test::More tests => 46;
is Slic3r::TriangleMesh::XS::hello_world(), 'Hello world!',
'hello world';
@@ -46,6 +46,11 @@ my $cube = {
my $result = $m->split;
is scalar(@$result), 1, 'split';
isa_ok $result->[0], 'Slic3r::TriangleMesh::XS', 'split';
my $m2 = Slic3r::TriangleMesh::XS->new;
$m2->ReadFromPerl($cube->{vertices}, $cube->{facets});
$m->merge($m2);
is $m->stats->{number_of_facets}, 2 * $m2->stats->{number_of_facets}, 'merge';
}
{