From 0afcda856208de52fc634ce0c5af334aaefdea56 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Fri, 20 Oct 2017 20:26:48 +0100
Subject: [PATCH] poster-tube-lid: wip parametric integration

---
 poster-tube-lid-parametric.scad.pl | 10 +++++++---
 poster-tube-lid.scad               |  4 ++++
 2 files changed, 11 insertions(+), 3 deletions(-)

diff --git a/poster-tube-lid-parametric.scad.pl b/poster-tube-lid-parametric.scad.pl
index 353c712..f30aea4 100755
--- a/poster-tube-lid-parametric.scad.pl
+++ b/poster-tube-lid-parametric.scad.pl
@@ -8,7 +8,7 @@ use Data::Dumper;
 
 sub TAU () { pi*2; }
 
-my $thick = 4;
+my $thick = 2.5;
 
 my $small_dia = 20;
 my $large_dia = 30;
@@ -16,9 +16,9 @@ my $slope_angle = 45 * TAU/360;
 my $jcurverad = 5;
 my $tall = 50;
 
-my $lin_len = 10;
+my $lin_len = 5;
 my $lin2_len = 9;
-my $sine_len = 8;
+my $sine_len = 6;
 my $sine_height = 6;
 
 my $ballend_xr = $thick/2;
@@ -202,6 +202,10 @@ sub write_out () {
     print "],faces=[\n" or die $!;
     print pv($_),",\n" or die $! foreach @triangles;
     print "],convexity=10); }\n" or die $!;
+    print <<END or die $!;
+implheadcup_large_dia = $large_dia;
+implheadcup_thick     = $thick;
+END
 }
 
 make_sheet();
diff --git a/poster-tube-lid.scad b/poster-tube-lid.scad
index 6cacb68..23299df 100644
--- a/poster-tube-lid.scad
+++ b/poster-tube-lid.scad
@@ -341,6 +341,10 @@ module Cover(){ ////toplevel
       }
     }
   }
+  translate([-implheadcup_large_dia * .5 - implheadcup_thick,
+	     -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])
-- 
2.30.2