From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sat, 27 Aug 2016 14:35:57 +0000 (+0100)
Subject: flyscreen-handle: wip, Ps etc
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?p=reprap-play.git;a=commitdiff_plain;h=32b32c0f6432749938dd48e9a605921ff211070a;ds=sidebyside

flyscreen-handle: wip, Ps etc
---

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();