From dba8ffcd438cd8fa45c137f5203b410685cd3b5b Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Fri, 26 Aug 2016 20:21:15 +0100
Subject: [PATCH] flyscreen-handle: Peg, wip

---
 flyscreen-handle.scad | 23 ++++++++++++++++++++---
 1 file changed, 20 insertions(+), 3 deletions(-)

diff --git a/flyscreen-handle.scad b/flyscreen-handle.scad
index 3fe695a..4515e11 100644
--- a/flyscreen-handle.scad
+++ b/flyscreen-handle.scad
@@ -39,6 +39,9 @@ overret_hch = 5;
 peg_width_slop = 0.5;
 peg_inner_thick = 1.0;
 
+peg_wedge_less = 1.0;
+peg_wedge_more = 1.0;
+
 // calculated
 
 ins_irad = openingcnr_dia/2 + gap;
@@ -71,6 +74,8 @@ peg_height = retain_cutout_h - (retain_rad + retain_stalk_h)
 retain1_len = retain_len + retain_stalk_len;
 retain1_base = total_len - retain1_len;
 
+peg_len = retain_len;
+
 module InsertSection(){
   hull(){
     translate([-ins_irad, -ins_irad])
@@ -134,8 +139,9 @@ module RetainSection(){
 
 module PegSection(delta){
   hull(){
-    square([0.1,
-	    peg_height + delta]);
+    translate([0, -delta/2])
+      square([0.1,
+	      peg_height + delta]);
     translate([peg_width - 0.1,
 	       peg_height/2 - peg_inner_thick/2])
       square([0.1, peg_inner_thick]);
@@ -187,6 +193,16 @@ module BasicSection(){
   HandleSection();
 }
 
+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);
+  }
+}
+
 module Handle(){
   bs1 = retain_len + overret_gaplen + 4;
 
@@ -241,12 +257,13 @@ module Test(){
   }
 }
 
-Demo();
+//Demo();
 //HandleSection();
 //InsertSection();
 //WithRetainSection();
 //BasicSection();
 //GappingSection();
 //Test();
+Peg();
 //Demo();
 //Handle();
-- 
2.30.2