From b92f50a2bbede792f1fd171591a45681a467ad7d Mon Sep 17 00:00:00 2001 From: Ian Jackson Date: Sun, 25 Nov 2018 14:39:50 +0000 Subject: [PATCH] distort-stl: fix for triangle source notation Seems to work now! Signed-off-by: Ian Jackson --- distort-stl | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/distort-stl b/distort-stl index d893057..b5ccb99 100755 --- a/distort-stl +++ b/distort-stl @@ -180,7 +180,7 @@ sub project_cylinder_tri { my $radius = $project_cylinder_radius; my @ot; - foreach my $p (@$t) { + foreach my $p (@$t[0..2]) { my ($x,$y,$z) = @$p; my $r = $radius - $y; my $theta = $x / $radius; @@ -188,6 +188,7 @@ sub project_cylinder_tri { -$r * cos($theta), $z ]; } + push @ot, $t->[3].'P'; append_triangle \@ot; } @@ -275,8 +276,8 @@ print "solid distort-stl\n"; foreach my $t (@$triangles) { print " facet normal 0 0 0\n"; print " outer loop\n"; - die unless @$t==3; - foreach my $p (@$t) { + die unless @$t==4; + foreach my $p (@$t[0..2]) { die unless @$p==3; print " vertex"; printf " %.18g", $_ foreach @$p; -- 2.30.2