From 32b32c0f6432749938dd48e9a605921ff211070a Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sat, 27 Aug 2016 15:35:57 +0100
Subject: [PATCH] flyscreen-handle: wip, Ps etc

---
 flyscreen-handle.scad | 27 +++++++++++++++++++++++----
 1 file changed, 23 insertions(+), 4 deletions(-)

diff --git a/flyscreen-handle.scad b/flyscreen-handle.scad
index 1a8d15a..3f32c9f 100644
--- a/flyscreen-handle.scad
+++ b/flyscreen-handle.scad
@@ -11,8 +11,8 @@ inside_len = 4;
 pivoting_gap = 1;
 
 outside_gap = 3;
-outside_len = 10;
-outend_height = 4;
+outside_len = 16;
+outend_height = 3;
 
 ourcirc_r = 0.5 / 2;
 
@@ -60,8 +60,27 @@ module ExtrusionSect(){
   }
 }
 
+module PsHull(ps) {
+  hull(){
+    for (p = ps) {
+      translate(p)
+	circle(r = ourcirc_r, $fn=10);
+    }
+  }
+}
+
 module LeverSect(){
-  
+  PsHull([P2,P3,P4]);
+  //PsHull([P5,P6,P7]);
+  difference(){
+    PsHull([P0,P1,P2,//P5
+	    ,P8,P9]);
+  }
+}
+
+module Demo(){
+  color("white") ExtrusionSect();
+  LeverSect();
 }
 
-ExtrusionSect();
+Demo();
-- 
2.30.2