From 6368f6ce5e837e44faaa7b20da662d492644d55b Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sun, 8 Oct 2017 00:20:23 +0100
Subject: [PATCH] poster-tube-lid: wip bayonet

---
 poster-tube-lid.scad.pl | 29 +++++++++++++++++++++++++----
 1 file changed, 25 insertions(+), 4 deletions(-)

diff --git a/poster-tube-lid.scad.pl b/poster-tube-lid.scad.pl
index 2bb7d1d..acca643 100755
--- a/poster-tube-lid.scad.pl
+++ b/poster-tube-lid.scad.pl
@@ -4,7 +4,7 @@
 use strict;
 use autodie;
 
-print <<'END' or die $!;
+my $settings = <<'END';
 
 main_dia = 71.2 + 0.50;
 top_thick = 4;
@@ -16,7 +16,7 @@ rivet_thick = 1.67;
 rivet_width = 4.15 + 1.0;
 rivet_tall = 5.51 + 0.49;
 
-over_rivet = 0.5;
+over_rivet_gap = 0.5;
 
 bayo_interf = 0.75;
 bayo_behind = 3.5;
@@ -26,16 +26,32 @@ seal_recess = [ 2.0, 2.0 ]; // recess depth, recess height
 
 side_taper = 1.0;
 
+bayo_above_gap = 1.0;
+
 // calculated
 
 side_height = rivet_posn + bayo_behind;
-side_thick = rivet_tall + over_rivet;
+side_thick = rivet_tall + over_rivet_gap;
 
 top_z = top_thick + seal_thick;
 
+bayo_entry = bayo_behind / 3.0;
+bayo_top_z = bayo_behind + rivet_thick + over_rivet_gap;
+
 $fs=0.5;
 $fa=5;
 
+// bayonet definition
+
+bayo_polygon = [[ -bayo_entry,        -5             ],
+		[ -bayo_entry,        0              ],
+		[ 0,                  bayo_entry     ],
+		[ bayo_entry,         bayo_entry     ]];
+
+END
+
+my $mainbody = <<'END';
+
 module MainProfile(){
   main_cnr_pos = [ side_thick, top_z ] - [1,1]*main_cnr;
   translate(main_cnr_pos){
@@ -60,6 +76,11 @@ module MainProfile(){
 	   ]);
 }
 
-MainProfile();
+translate([-20,0]) MainProfile();
+
+polygon(bayo_polygon);
 
 END
+
+print $settings, $mainbody or die $!;
+
-- 
2.30.2