From 212feaadbc567d65f00feec3063affef746b7332 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Fri, 26 Aug 2016 00:54:18 +0100
Subject: [PATCH] flyscreen-handle: wip, Retain

---
 flyscreen-handle.scad | 34 +++++++++++++++++++++++++++++++++-
 1 file changed, 33 insertions(+), 1 deletion(-)

diff --git a/flyscreen-handle.scad b/flyscreen-handle.scad
index 3a7e7f9..26fa92c 100644
--- a/flyscreen-handle.scad
+++ b/flyscreen-handle.scad
@@ -7,6 +7,10 @@ opening_topprotr = 1.54;
 
 gap = 0.25;
 
+retain_empir_angle = 20;
+retain_empir_stalkw = 1.0;
+retain_rad = 1.5;
+
 bot_overlap = 5;
 bot_w = 3;
 
@@ -15,6 +19,8 @@ handle_w = 8;
 handle_rh = 2;
 handle_rcut = 3;
 
+cutout_gap = 1.5;
+
 // calculated
 
 ins_irad = openingcnr_dia/2 + gap;
@@ -59,7 +65,33 @@ module HandleSection(){
       }
     }
   }
+  hull(){
+    for (y= [handle_y1 -   handle_rh/2,
+	     handle_y1 - 3*handle_rh/2])
+      translate([handle_x1 - handle_rh/2, y])
+	circle(r = handle_rh/2, $fn=20);
+  }
+}
+
+module RetainSection(){
+  rotate(180-retain_empir_angle)
+    translate([0,ins_orad]) circle(r=retain_rad, $fn=20);
 }
 
-InsertSection();
+module RetainCutout(){
+  rotate(180-retain_empir_angle)
+    translate([0,ins_orad]) {
+    difference(){
+      circle(r=retain_rad + cutout_gap, $fn=20);
+      rotate(180 + retain_empir_angle/2)
+	square([100, retain_empir_stalkw]);
+    }
+  }
+}  
+
+difference(){
+  InsertSection();
+  RetainCutout();
+}
 HandleSection();
+color("red") RetainSection();
-- 
2.30.2