From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Fri, 20 Oct 2017 20:56:57 +0000 (+0100)
Subject: poster-tube-lid: wip parametric integration
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?a=commitdiff_plain;h=3ed022ffa2e274f8661e2927cff49d4e8bdafbe0;p=reprap-play.git

poster-tube-lid: wip parametric integration
---

diff --git a/poster-tube-lid-parametric.scad.pl b/poster-tube-lid-parametric.scad.pl
index a2fd3a7..bbe70d9 100755
--- 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 23299df..827ca05 100644
--- 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])