From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sun, 7 Jan 2018 22:40:53 +0000 (+0000)
Subject: distort-stl: fix output
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?p=reprap-play.git;a=commitdiff_plain;h=724e5ab69049a06164482b91a5312d243314388d

distort-stl: fix output
---

diff --git a/distort-stl b/distort-stl
index 6931e36..f898992 100755
--- a/distort-stl
+++ b/distort-stl
@@ -28,6 +28,7 @@ use autodie;
 use List::Util;
 use POSIX;
 use File::Temp ();
+use Data::Dumper;
 
 sub TAU () { M_PI * 2; }
 
@@ -170,9 +171,11 @@ print "solid distort-stl\n";
 foreach my $t (@triangles) {
     print "  facet normal 0 0 0\n";
     print "    outer loop\n";
-    print "      vertex";
-    printf " %.18g", $_ foreach @$t;
-    print "\n";
+    foreach my $p (@$t) {
+	print "      vertex";
+	printf " %.18g", $_ foreach @$p;
+	print "\n";
+    }
     print "    endloop\n";
     print "  endfacet\n";
 }