From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Thu, 22 Nov 2018 00:22:44 +0000 (+0000)
Subject: distort-stl: Break out project_cylinder_triangle_need_subdivide
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?a=commitdiff_plain;h=6db9e531dbae0b0a6d381509788b1f386dcef0bc;hp=79d5150badad5200aa0d637479d4458ff129ba55;p=reprap-play.git

distort-stl: Break out project_cylinder_triangle_need_subdivide

Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
---

diff --git a/distort-stl b/distort-stl
index 39e5a15..cc03ec5 100755
--- a/distort-stl
+++ b/distort-stl
@@ -77,20 +77,27 @@ sub append_triangle ($) {
 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;
 }
 
+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) = @_;