X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?p=reprap-play.git;a=blobdiff_plain;f=poster-tube-lid-parametric.scad.pl;fp=poster-tube-lid-parametric.scad.pl;h=a2fd3a7e8bcc9c21b5d292698cd117299f4fab16;hp=9fa0b2e1cdbd5c02e8c9ad229d36c4e812a4046a;hb=136a8badbe3c1373c491b4cd1b26dbf3b0fd5892;hpb=b28141e959f59d188e7003849d8923fa951d66a4

diff --git a/poster-tube-lid-parametric.scad.pl b/poster-tube-lid-parametric.scad.pl
index 9fa0b2e..a2fd3a7 100755
--- a/poster-tube-lid-parametric.scad.pl
+++ b/poster-tube-lid-parametric.scad.pl
@@ -74,10 +74,10 @@ sub point ($$$$) {
 		     );
     } elsif ($ip =~ m/^ball[02]$/) {
 	my $angle = $it * TAU/4;
-	$i_offset = V( -$lin_len -$sine_len
-		       -sin($angle) * $ballend_xr,
+	my $dx = sin($angle) * $ballend_xr;
+	$i_offset = V( -$lin_len -$sine_len - $dx,
 		       0,
-		       +$sine_height
+		       +$sine_height + $dx * tan($sine_angle)
 		     );
 	$i_thickscale = cos($angle);
     } else {