poster-tube-lid: wip parametric integration

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 +

diff --git a/poster-tube-lid.scad b/poster-tube-lid.scad
index 23299df350bbe43877a38e3e12bdbc7f1a8ca188..827ca0563c11934ca294d5f5c2048edd86cf19a2 100644 (file)
--- a/poster-tube-lid.scad
+++ b/poster-tube-lid.scad
@@ -341,10 +341,12 @@ module Cover(){ ////toplevel
       }
     }
   }
-  translate([-implheadcup_large_dia * .5 - implheadcup_thick,
-            -implheadcup_large_dia * .0,
-            middle_bot_z])
-    ImplHeadCup();
+  for (r=[0,180])
+    rotate([0,0,r])
+      translate([-implheadcup_large_dia * .5 - implheadcup_thick/2,
+                -implheadcup_large_dia * .0,
+                middle_bot_z])
+      ImplHeadCup();
 //  translate(strap_hoop_thick * [-0.5, 0, +1])
 //    translate([handling_dia/2, 0, -side_height])
 //    rotate([0,180,0]) rotate([0,0,90])