From 94c6cc4ac55fa846260ad3c2e122a5fcef921b0b Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Fri, 26 Aug 2016 20:17:18 +0100
Subject: [PATCH] flyscreen-handle: tapered peg section

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

diff --git a/flyscreen-handle.scad b/flyscreen-handle.scad
index 5d8a65f..3fe695a 100644
--- a/flyscreen-handle.scad
+++ b/flyscreen-handle.scad
@@ -37,6 +37,7 @@ basics_len = 8;
 overret_hch = 5;
 
 peg_width_slop = 0.5;
+peg_inner_thick = 1.0;
 
 // calculated
 
@@ -132,8 +133,13 @@ module RetainSection(){
 }
 
 module PegSection(delta){
-  square([peg_width,
-	  peg_height + delta]);
+  hull(){
+    square([0.1,
+	    peg_height + delta]);
+    translate([peg_width - 0.1,
+	       peg_height/2 - peg_inner_thick/2])
+      square([0.1, peg_inner_thick]);
+  }
 }
 
 module PegSectionForDemo(delta){
-- 
2.30.2