flyscreen-handle: tapered peg section

diff --git a/flyscreen-handle.scad b/flyscreen-handle.scad
index 5d8a65fa5d83c7163f360fceb168cc1b62f708c4..3fe695aaa2779cdf3d3d5a20cb072e08240c079a 100644 (file)
--- 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){