From de70b6a06a535d822934d5588a9f5ecc4ebf2c42 Mon Sep 17 00:00:00 2001
From: bubnikv <bubnikv@gmail.com>
Date: Thu, 24 Jan 2019 19:22:35 +0100
Subject: [PATCH] Removed ExPolygon::triangulate_pp() from Perl XS bindings and
 unit tests.

---
 xs/t/04_expolygon.t  | 8 +-------
 xs/xsp/ExPolygon.xsp | 4 ----
 2 files changed, 1 insertion(+), 11 deletions(-)

diff --git a/xs/t/04_expolygon.t b/xs/t/04_expolygon.t
index 5c10651f8..0ad36f5b5 100644
--- a/xs/t/04_expolygon.t
+++ b/xs/t/04_expolygon.t
@@ -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__
diff --git a/xs/xsp/ExPolygon.xsp b/xs/xsp/ExPolygon.xsp
index d45b7f6b1..bb138732f 100644
--- a/xs/xsp/ExPolygon.xsp
+++ b/xs/xsp/ExPolygon.xsp
@@ -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*