From e5e88359262534dc61ac5335991d9c7afc335f91 Mon Sep 17 00:00:00 2001 From: Ian Jackson Date: Fri, 20 Oct 2017 22:36:13 +0100 Subject: [PATCH] poster-tube-lid: new shape, fix balls --- poster-tube-lid-parametric.scad.pl | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/poster-tube-lid-parametric.scad.pl b/poster-tube-lid-parametric.scad.pl index a6ffaf2..be5f17b 100755 --- a/poster-tube-lid-parametric.scad.pl +++ b/poster-tube-lid-parametric.scad.pl @@ -81,18 +81,18 @@ sub point ($$$$) { $i_j_y_angle = $sine_angle; my $angle = $it * TAU/4; my $dx = sin($angle) * $ballend_xr; - $i_offset = V( -$lin_len -$sine_len - $dx, + $i_offset = V( -$lin_len -$sine_len - $dx * cos($sine_angle), 0, - +$sine_height + +$sine_height + $dx * sin($sine_angle) ); $i_thickscale = cos($angle); } else { die "$ip ?"; } - $i_j_y_vect = V( sin($i_j_y_angle), - 0, - cos($i_j_y_angle )); + my $i_j_y_vect = V( sin($i_j_y_angle), + 0, + cos($i_j_y_angle )); my $j_plus_th = $jp =~ m/2$/ ? $thick : 0; -- 2.30.2