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

New ExPolygon::triangulate() method

Browse source
This commit is contained in:
Alessandro Ranellucci 2014-04-24 17:06:16 +02:00
parent bb0ce3cccd
commit 37c7b958d4
5 changed files with 26 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

10
xs/t/04_expolygon.t
View file

@ -3,9 +3,9 @@
use strict;
use warnings;
use List::Util qw(first);
use List::Util qw(first sum);
use Slic3r::XS;
use Test::More tests => 31;
use Test::More tests => 33;
use constant PI => 4 * atan2(1, 1);
@ -133,4 +133,10 @@ is $expolygon->area, 100*100-20*20, 'area';
is scalar(grep { $_->area == 100*200 } @$polygons), 1, 'trapezoids have expected area';
}
{
my $triangles = $expolygon->triangulate;
is scalar(@$triangles), 8, 'expected number of triangles';
is sum(map $_->area, @$triangles), $expolygon->area, 'sum of triangles area equals original expolygon area';
}
__END__