Removed ExPolygon::triangulate_pp() from Perl XS bindings and unit tests.
This commit is contained in:
parent
e1abd1256c
commit
de70b6a06a
@ -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__
|
||||
|
@ -31,14 +31,10 @@
|
||||
Polygons simplify_p(double tolerance);
|
||||
Polylines medial_axis(double max_width, double min_width)
|
||||
%code{% THIS->medial_axis(max_width, min_width, &RETVAL); %};
|
||||
Polygons get_trapezoids(double angle)
|
||||
%code{% THIS->get_trapezoids(&RETVAL, angle); %};
|
||||
Polygons get_trapezoids2(double angle)
|
||||
%code{% THIS->get_trapezoids2(&RETVAL, angle); %};
|
||||
Polygons triangulate()
|
||||
%code{% THIS->triangulate(&RETVAL); %};
|
||||
Polygons triangulate_pp()
|
||||
%code{% THIS->triangulate_pp(&RETVAL); %};
|
||||
%{
|
||||
|
||||
ExPolygon*
|
||||
|
Loading…
Reference in New Issue
Block a user