chiark / gitweb /
distort-stl: break out sprintf_triangle (nfc)
authorIan Jackson <ijackson@chiark.greenend.org.uk>
Fri, 23 Nov 2018 21:45:38 +0000 (21:45 +0000)
committerIan Jackson <ijackson@chiark.greenend.org.uk>
Fri, 23 Nov 2018 23:19:09 +0000 (23:19 +0000)
Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
distort-stl

index 844344c..722e4fa 100755 (executable)
@@ -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;