poster-tube-lid: minor edit to ImplHeadCup

[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 be5f17ba4c5afa15d1335e75b64c92f4edbadf93..c4d105cb415f53bc9e0db9cf390e8a0eed6e464b 100755 (executable)
--- a/poster-tube-lid-parametric.scad.pl
+++ b/poster-tube-lid-parametric.scad.pl
@@ -16,9 +16,9 @@ my $slope_angle = 45 * TAU/360;
 my $jcurverad = 5;
 my $tall = 50;
 
-my $lin_len = 4;
+my $lin_len = 2;
 my $sine_size = 5;
-my $sine_angle = 1.2 * TAU/8;
+my $sine_angle = 1.20 * TAU/8;
 
 my $ballend_xr = $thick/2;
 
@@ -26,12 +26,10 @@ my $skew_slope = 0.7;
 
 my @i_sections = qw(ball0  -6
                    sine0  -10
-                   -
-                   lin0    2
-                   circle 20
+                   lin0    -2
+                   circle 40
                    lin1    2
                    sine1  10
-                   -
                    ball2   6
                    -
                    );