From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Fri, 26 Aug 2016 19:25:35 +0000 (+0100)
Subject: flyscreen-handle: Peg, wip, PegSectionSlice (not much functional change)
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?p=reprap-play.git;a=commitdiff_plain;h=4515eb62a740a1c33403e30bb80be04912140734

flyscreen-handle: Peg, wip, PegSectionSlice (not much functional change)
---

diff --git a/flyscreen-handle.scad b/flyscreen-handle.scad
index 4515e11..6062278 100644
--- a/flyscreen-handle.scad
+++ b/flyscreen-handle.scad
@@ -193,13 +193,18 @@ module BasicSection(){
   HandleSection();
 }
 
+module PegSectionSlice(lambda) {
+  delta = peg_wedge_more * (1-lambda) + -peg_wedge_less * lambda;
+  z = peg_len * lambda;
+  translate([0,0, z])
+    linear_extrude(height=0.1)
+    PegSection(delta);
+}  
+
 module Peg(){
   hull(){
-    linear_extrude(height=0.1)
-      PegSection(+peg_wedge_more);
-    translate([0,0, peg_len - 0.1])
-      linear_extrude(height=0.1)
-      PegSection(-peg_wedge_less);
+    PegSectionSlice(0);
+    PegSectionSlice(1);
   }
 }