flyscreen-handle: Peg, wip

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