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 bdbdd49c42db60fbbee7a3514c79736c86970ca7..6dcd23ce3d79c72e02892efece297be2a8bd43b4 100755 (executable)
--- 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
            }
            # 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;
        }
     }
            return;
        }
     }