From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Fri, 20 Oct 2017 21:36:13 +0000 (+0100)
Subject: poster-tube-lid: new shape, fix balls
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?a=commitdiff_plain;h=e5e88359262534dc61ac5335991d9c7afc335f91;p=reprap-play.git

poster-tube-lid: new shape, fix balls
---

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;