From 4515eb62a740a1c33403e30bb80be04912140734 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Fri, 26 Aug 2016 20:25:35 +0100
Subject: [PATCH] flyscreen-handle: Peg, wip, PegSectionSlice (not much
 functional change)

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

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);
   }
 }
 
-- 
2.30.2