From 94d6d1076afcac8d0df94c5ba2322ec5e97dc380 Mon Sep 17 00:00:00 2001 From: Ian Jackson Date: Fri, 23 Nov 2018 19:42:15 +0000 Subject: [PATCH] distort-stl: fixes Signed-off-by: Ian Jackson --- distort-stl | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/distort-stl b/distort-stl index dd430c9..b2f3bb1 100755 --- a/distort-stl +++ b/distort-stl @@ -50,15 +50,16 @@ sub maybe_subdivide_triangle ($$$$) { foreach my $ix (0..2) { my $jx = ($ix+1) % 3; my $kx = ($ix+2) % 3; - if ($edge_need_subdivide_fn->($t[$ix], $t[$jx])) { + if ($edge_need_subdivide_fn->($t->[$ix], $t->[$jx])) { + my @midp; foreach my $ci (0..2) { push @midp, 0.5 * ($t->[$ix][$ci] + $t->[$jx][$ci]); } # 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] ]; + [ $t->[$ix], \@midp, $t->[$kx] ], + [ $t->[$kx], \@midp, $t->[$jx] ]; return; } } @@ -121,7 +122,7 @@ sub op__project_cylinder () { $project_cylinder_radius = shift_arg; $project_cylinder_max_d_theta = $fa * TAU/360; - maybe_subdivide \&project_cylinder_triangle_need_subdivide; + maybe_subdivide \&project_cylinder_edge_need_subdivide; $output = []; foreach my $t (@$triangles) { -- 2.30.2