mirror of
https://github.com/SoftFever/OrcaSlicer.git
synced 2025-08-08 22:35:15 -06:00
Removed ExPolygon::triangulate_pp() from Perl XS bindings and unit tests.
This commit is contained in:
parent
e1abd1256c
commit
de70b6a06a
2 changed files with 1 additions and 11 deletions
|
@ -5,7 +5,7 @@ use warnings;
|
|||
|
||||
use List::Util qw(first sum);
|
||||
use Slic3r::XS;
|
||||
use Test::More tests => 33;
|
||||
use Test::More tests => 32;
|
||||
|
||||
use constant PI => 4 * atan2(1, 1);
|
||||
|
||||
|
@ -133,10 +133,4 @@ is $expolygon->area, 100*100-20*20, 'area';
|
|||
is scalar(grep { $_->area == 100*200 } @$polygons), 1, 'trapezoids have expected area';
|
||||
}
|
||||
|
||||
{
|
||||
my $triangles = $expolygon->triangulate_pp;
|
||||
is scalar(@$triangles), 8, 'expected number of triangles';
|
||||
is sum(map $_->area, @$triangles), $expolygon->area, 'sum of triangles area equals original expolygon area';
|
||||
}
|
||||
|
||||
__END__
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue