X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?p=reprap-play.git;a=blobdiff_plain;f=flyscreen-handle.scad;h=60622789b5753ccbca74fecaa1a263902acb66ff;hp=3fe695aaa2779cdf3d3d5a20cb072e08240c079a;hb=4515eb62a740a1c33403e30bb80be04912140734;hpb=94c6cc4ac55fa846260ad3c2e122a5fcef921b0b

diff --git a/flyscreen-handle.scad b/flyscreen-handle.scad
index 3fe695a..6062278 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,21 @@ 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(){
+    PegSectionSlice(0);
+    PegSectionSlice(1);
+  }
+}
+
 module Handle(){
   bs1 = retain_len + overret_gaplen + 4;
 
@@ -241,12 +262,13 @@ module Test(){
   }
 }
 
-Demo();
+//Demo();
 //HandleSection();
 //InsertSection();
 //WithRetainSection();
 //BasicSection();
 //GappingSection();
 //Test();
+Peg();
 //Demo();
 //Handle();