chiark / gitweb /
distort-stl: fix output
authorIan Jackson <ijackson@chiark.greenend.org.uk>
Sun, 7 Jan 2018 22:40:53 +0000 (22:40 +0000)
committerIan Jackson <ijackson@chiark.greenend.org.uk>
Sun, 7 Jan 2018 22:40:53 +0000 (22:40 +0000)
distort-stl

index 6931e36..f898992 100755 (executable)
@@ -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";
 }