From 6562f4b2558c850a0c98b71971b2569b401d4a95 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Fri, 23 Nov 2018 23:19:17 +0000
Subject: [PATCH] distort-stl: debugging

Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
---
 distort-stl | 13 ++++++++++---
 1 file changed, 10 insertions(+), 3 deletions(-)

diff --git a/distort-stl b/distort-stl
index 722e4fa..68b7e28 100755
--- a/distort-stl
+++ b/distort-stl
@@ -73,16 +73,23 @@ sub maybe_subdivide_triangle ($$$$) {
 	    foreach my $ci (0..2) {
 		push @midp, 0.5 * ($t->[$ix][$ci] + $t->[$jx][$ci]);
 	    }
+
+	    printf STDERR
+		" midp %11.6f,%11.6f,%11.6f\n",
+		@midp;
+
 	    # triangle i-j-k, splitting edge i-m
 	    # gives    i-m-k, k-m-j
 	    my $n = [ @$t ]; $n->[$ix] = \@midp;  $n->[3] = "$t->[3]a$ix$jx";
 	    unshift @$changed, $n;
 
+	    printf STDERR "%s\n", sprintf_triangle $n;
+
 	    my $n = [ @$t ]; $n->[$jx] = \@midp;  $n->[3] = "$t->[3]b$ix$jx";
 	    unshift @$changed, $n;
-	    printf STDERR
-		" midp %11.6f,%11.6f,%11.6f\n",
-		@midp;
+
+	    printf STDERR "%s\n", sprintf_triangle $n;
+
 	    return;
 	}
     }
-- 
2.30.2