distort-stl: Break out project_cylinder_triangle_need_subdivide

[reprap-play.git] / distort-stl

diff --git a/distort-stl b/distort-stl
index 39e5a150512c339c38a7a635194194a95b886bce..cc03ec5e7aea0776a516e12f900159adbdb2fb6f 100755 (executable)
--- a/distort-stl
+++ b/distort-stl
@@ -77,20 +77,27 @@ sub append_triangle ($) {
 our $project_cylinder_radius;
 our $project_cylinder_max_d_theta;
 
 our $project_cylinder_radius;
 our $project_cylinder_max_d_theta;
 

-sub project_cylinder_need_subdivide () {
-    foreach my $t (@$triangles) {
-       my @thetas = map { $_->[0] / $project_cylinder_radius } @$t;
+sub project_cylinder_triangle_need_subdivide ($) {
+    my ($t) = @_;
+    my @thetas = map { $_->[0] / $project_cylinder_radius } @$t;

 
 

-       foreach my $ix (0..2) {
-           if (abs($thetas[$ix] - $thetas[($ix+1)%3])
-               > $project_cylinder_max_d_theta) {
-               return 1;
-           }
+    foreach my $ix (0..2) {
+       if (abs($thetas[$ix] - $thetas[($ix+1)%3])
+           > $project_cylinder_max_d_theta) {
+           return 1;

        }
     }
     return 0;
 }
 
        }
     }
     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) = @_;
 
 sub project_cylinder_tri {
     my ($t) = @_;