From 4527cef73e6a79c08ae2f2c3e9bf8bf01265cb14 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Fri, 26 Aug 2016 00:32:34 +0100
Subject: [PATCH] flyscreen-handle: wip, InsertSection

---
 flyscreen-handle.scad | 33 +++++++++++++++++++++++++++++++++
 1 file changed, 33 insertions(+)
 create mode 100644 flyscreen-handle.scad

diff --git a/flyscreen-handle.scad b/flyscreen-handle.scad
new file mode 100644
index 0000000..2802077
--- /dev/null
+++ b/flyscreen-handle.scad
@@ -0,0 +1,33 @@
+// -*- C -*-
+
+opening_height = 7.84;
+opening_depth = 7.88;
+openingcnr_dia = 2.75;
+opening_topprotr = 1.54;
+
+gap = 0.25;
+
+bot_overlap = 5;
+bot_w = 3;
+
+// calculated
+
+ins_irad = openingcnr_dia/2 + gap;
+ins_orad = openingcnr_dia/2 + opening_height - gap;
+ins_th = ins_orad - ins_irad;
+
+module InsertSection(){
+  translate([-ins_orad, 0]) square([ins_th, opening_topprotr]);
+  translate([0, -ins_orad]) square([ins_irad+1, ins_th]);
+  translate([ins_irad, -ins_orad-bot_overlap])
+    square([bot_w, bot_overlap + ins_th]);
+  intersection(){
+    translate([0.1,0.1]) mirror([1,1]) square([100,100]);
+    difference(){
+      circle(r= ins_orad);
+      circle(r= ins_irad, $fn=10);
+    }
+  }
+}
+
+InsertSection();
-- 
2.30.2