From 2b2c787099b30fdbdc9598e1b15e79ed4d0dc2ad Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Fri, 26 Aug 2016 00:56:52 +0100
Subject: [PATCH] flyscreen-handle: wip, extrude

---
 flyscreen-handle.scad | 32 ++++++++++++++++++++++++++------
 1 file changed, 26 insertions(+), 6 deletions(-)

diff --git a/flyscreen-handle.scad b/flyscreen-handle.scad
index 26fa92c..6892339 100644
--- a/flyscreen-handle.scad
+++ b/flyscreen-handle.scad
@@ -84,14 +84,34 @@ module RetainCutout(){
     difference(){
       circle(r=retain_rad + cutout_gap, $fn=20);
       rotate(180 + retain_empir_angle/2)
-	square([100, retain_empir_stalkw]);
+	translate([0, -retain_empir_stalkw])
+	square([100, retain_empir_stalkw*2]);
     }
   }
 }  
 
-difference(){
-  InsertSection();
-  RetainCutout();
+module WithRetainSection(){
+  difference(){
+    InsertSection();
+    RetainCutout();
+  }
+  HandleSection();
+  RetainSection();
 }
-HandleSection();
-color("red") RetainSection();
+
+module Demo(){
+  difference(){
+    InsertSection();
+    RetainCutout();
+  }
+  HandleSection();
+  color("red") RetainSection();
+}
+
+module Test(){
+  linear_extrude(height=2) WithRetainSection();
+}
+
+//Demo();
+//WithRetainSection();
+Test();
-- 
2.30.2