92 lines
2.8 KiB
Perl
92 lines
2.8 KiB
Perl
#!/usr/bin/perl
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
use Slic3r::XS;
|
|
use Test::More tests => 51;
|
|
|
|
is Slic3r::TriangleMesh::hello_world(), 'Hello world!',
|
|
'hello world';
|
|
|
|
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});
|
|
$m->repair;
|
|
my ($vertices, $facets) = ($m->vertices, $m->facets);
|
|
|
|
is_deeply $vertices, $cube->{vertices}, 'vertices arrayref roundtrip';
|
|
is_deeply $facets, $cube->{facets}, 'facets arrayref roundtrip';
|
|
is scalar(@{$m->normals}), scalar(@$facets), 'normals returns the right number of items';
|
|
|
|
{
|
|
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';
|
|
ok abs($stats->{volume} - 20*20*20) < 1E-2, 'stats.volume';
|
|
}
|
|
|
|
$m->scale(2);
|
|
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';
|
|
|
|
$m->translate(5,10,0);
|
|
is_deeply $m->vertices->[0], [85,50,0], 'translate';
|
|
|
|
$m->align_to_origin;
|
|
is_deeply $m->vertices->[2], [0,0,0], 'align_to_origin';
|
|
|
|
is_deeply $m->size, [80,40,40], 'size';
|
|
|
|
$m->scale_xyz([0.5,1,1]);
|
|
$m->rotate(45, Slic3r::Point->new(20,20));
|
|
ok abs($m->size->[0] - sqrt(2)*40) < 1E-4, 'rotate';
|
|
|
|
{
|
|
my $meshes = $m->split;
|
|
is scalar(@$meshes), 1, 'split';
|
|
isa_ok $meshes->[0], 'Slic3r::TriangleMesh', 'split';
|
|
}
|
|
|
|
my $m2 = Slic3r::TriangleMesh->new;
|
|
$m2->ReadFromPerl($cube->{vertices}, $cube->{facets});
|
|
$m2->repair;
|
|
$m->merge($m2);
|
|
$m->repair;
|
|
is $m->stats->{number_of_facets}, 2 * $m2->stats->{number_of_facets}, 'merge';
|
|
|
|
{
|
|
my $meshes = $m->split;
|
|
is scalar(@$meshes), 2, 'split';
|
|
}
|
|
}
|
|
|
|
{
|
|
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);
|
|
my $result = $m->slice(\@z);
|
|
my $SCALING_FACTOR = 0.000001;
|
|
for my $i (0..$#z) {
|
|
is scalar(@{$result->[$i]}), 1, 'number of returned polygons per layer';
|
|
is $result->[$i][0]->area, 20*20/($SCALING_FACTOR**2), 'size of returned polygon';
|
|
ok $result->[$i][0]->is_counter_clockwise, 'orientation of returned polygon';
|
|
}
|
|
}
|
|
|
|
__END__
|