poster-tube-lid: wip parametric integration

[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 a2fd3a7e8bcc9c21b5d292698cd117299f4fab16..bbe70d93ad7c195288fdbf1066ceedc62c748333 100755 (executable)
--- a/poster-tube-lid-parametric.scad.pl
+++ b/poster-tube-lid-parametric.scad.pl
@@ -16,12 +16,14 @@ my $slope_angle = 45 * TAU/360;
 my $jcurverad = 5;
 my $tall = 50;
 
-my $lin_len = 5;
+my $lin_len = 4;
 my $sine_size = 10;
-my $sine_angle = TAU/8;
+my $sine_angle = 1.2 * TAU/8;
 
 my $ballend_xr = $thick/2;
 
+my $skew_slope = 0.7;
+
 my @i_sections = qw(ball0  -6
                    sine0  -10
                    -
@@ -120,6 +122,13 @@ sub point ($$$$) {
        die "$jp ?";
     }
 
+    if ($i_offset->[0] < 0) {
+       my $base = $large_dia/2 + 3.0*($large_dia - $small_dia)/2;
+       $i_offset->[0] *=
+           ($base - $j_x) /
+           ($base - $small_dia/2);
+    }
+
 #    print STDERR "@_ $j_x $j_y $i_offset $i_outward\n";
     return
        $i_offset +