From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Fri, 23 Nov 2018 21:45:38 +0000 (+0000)
Subject: distort-stl: break out sprintf_triangle (nfc)
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?a=commitdiff_plain;h=21b648131bf1bb8c1d0f40ea1110178011cbcd1e;p=reprap-play.git

distort-stl: break out sprintf_triangle (nfc)

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

diff --git a/distort-stl b/distort-stl
index 844344c..722e4fa 100755
--- a/distort-stl
+++ b/distort-stl
@@ -44,10 +44,10 @@ sub shift_arg () {
 
 #no warnings qw(recursion);
 
-sub maybe_subdivide_triangle ($$$$) {
-    my ($t, $ok, $changed, $edge_need_subdivide_fn) = @_;
+sub sprintf_triangle ($) {
+    my ($t) = @_;
 
-    printf STDERR
+    sprintf
 	"%11.6f,%11.6f,%11.6f / ".
 	"%11.6f,%11.6f,%11.6f / ".
 	"%11.6f,%11.6f,%11.6f  %-40s ",
@@ -55,6 +55,12 @@ sub maybe_subdivide_triangle ($$$$) {
 		$t->[1][0], $t->[1][1], $t->[1][2],
 		$t->[2][0], $t->[2][1], $t->[2][2],
 		$t->[3];
+}
+
+sub maybe_subdivide_triangle ($$$$) {
+    my ($t, $ok, $changed, $edge_need_subdivide_fn) = @_;
+
+    print STDERR sprintf_triangle $t;
     
     foreach my $ix (0..2) {
 	my $jx = ($ix+1) % 3;