distort-stl: fix output

diff --git a/distort-stl b/distort-stl
index 6931e36989b134d0d8a76b504b0f9dac1d4b3b5c..f8989923b6809d763ffbeeb4fb7172dcdb1210ba 100755 (executable)
--- 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";
 }