distort-stl: delete now-unused subdivision function

[reprap-play.git] / distort-stl

diff --git a/distort-stl b/distort-stl
index 7a0ebeec8a7a36ac80c8046d5c526886d22fc10c..1c6066352fc048459ebc1e373dbbc4d855bc209c 100755 (executable)
--- a/distort-stl
+++ b/distort-stl
@@ -90,14 +90,6 @@ sub project_cylinder_triangle_need_subdivide ($) {
     return 0;
 }
 
-sub project_cylinder_need_subdivide () {
-    foreach my $t (@$triangles) {
-       next unless project_cylinder_triangle_need_subdivide $t;
-       return 1;
-    }
-    return 0;
-}
-
 sub project_cylinder_tri {
     my ($t) = @_;