From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Fri, 23 Nov 2018 20:09:58 +0000 (+0000)
Subject: distort-stl: slight rework to make debug output better
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?a=commitdiff_plain;h=573444bfc2940c43a6109095813c8e35d12f425b;hp=9b3087a6117d4143978dad2af8901be6de9bcd15;p=reprap-play.git

distort-stl: slight rework to make debug output better

Calculation ordering changed but answers should be the same.

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

diff --git a/distort-stl b/distort-stl
index bdbdd49..6dcd23c 100755
--- a/distort-stl
+++ b/distort-stl
@@ -68,9 +68,8 @@ sub maybe_subdivide_triangle ($$$$) {
 	    }
 	    # triangle i-j-k, splitting edge i-m
 	    # gives    i-m-k, k-m-j
-	    push @$changed,
-		[ $t->[$ix], \@midp, $t->[$kx] ],
-		[ $t->[$kx], \@midp, $t->[$jx] ];
+	    my $n = [ @$t ]; $n->[$ix] = \@midp; unshift @$changed, $n;
+	    my $n = [ @$t ]; $n->[$jx] = \@midp; unshift @$changed, $n;
 	    return;
 	}
     }