From adcac9c280177b3ab66d62ec697e1baab94ff367 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sat, 27 Aug 2016 16:54:57 +0100
Subject: [PATCH] flyscreen-handle: bot adj cutout is better

---
 flyscreen-handle.scad | 17 ++++++++++-------
 1 file changed, 10 insertions(+), 7 deletions(-)

diff --git a/flyscreen-handle.scad b/flyscreen-handle.scad
index bdae865..0b0e415 100644
--- a/flyscreen-handle.scad
+++ b/flyscreen-handle.scad
@@ -110,15 +110,17 @@ module LeverSect(top, inadj=false){
   P6 = inadj ? P6a : P6t;
   P8 = top ? P8t : P8b;
   P9 = top ? P9t : P9b;
-  PsHull([P2,P3,P4]);
   difference(){
-    PsHull([P0,P1,P2,P5,P8,P9]);
+    union(){
+      PsHull([P2,P3,P4]);
+      PsHull([P0,P1,P2,P5,P8,P9]);
+    }
     hull(){
-      for (p = [ Q0,
-		 Q0 + (P6-P5),
-		 Q0 + (P3-P4)
-		 ]) {
-	translate(p) circle(r=edge_or, $fn=20);
+      for (dp = [ [0,0],
+		  (P6-P5),
+		  (P3-P4)
+		  ]) {
+	translate(Q0 + 5*dp) circle(r=edge_or, $fn=20);
       }
     }
   }
@@ -179,5 +181,6 @@ module Test(){
   translate([0,-opening_height - 2,0]) LeverBot(true);
 }
 
+//LeverSectBot(true);
 Demo();
 //Test();
-- 
2.30.2