poster-tube-lid: wip parametric integration, rework

[reprap-play.git] / poster-tube-lid-parametric.scad.pl

diff --git a/poster-tube-lid-parametric.scad.pl b/poster-tube-lid-parametric.scad.pl
index 9fa0b2e1cdbd5c02e8c9ad229d36c4e812a4046a..a2fd3a7e8bcc9c21b5d292698cd117299f4fab16 100755 (executable)
--- 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 {