flyscreen-handle: PegTestKit

diff --git a/flyscreen-handle.scad b/flyscreen-handle.scad
index 60622789b5753ccbca74fecaa1a263902acb66ff..9d3a544a3020a816781c66d7b4ad02d68a52365a 100644 (file)
--- a/flyscreen-handle.scad
+++ b/flyscreen-handle.scad
@@ -202,12 +202,24 @@ module PegSectionSlice(lambda) {
 }  
 
 module Peg(){
-  hull(){
-    PegSectionSlice(0);
-    PegSectionSlice(1);
+  iters = 20;
+  for (i = [0 : iters-1]) {
+    lambda = i/iters;
+    hull(){
+      PegSectionSlice(lambda);
+      PegSectionSlice(lambda + 1/iters);
+    }
   }
 }
 
+module PegPrintL(){
+  rotate([0,-90,0]) Peg();
+}
+
+module PegPrintR(){
+  mirror([1,0,0]) PegPrintL();
+}
+
 module Handle(){
   bs1 = retain_len + overret_gaplen + 4;
 
@@ -262,6 +274,13 @@ module Test(){
   }
 }
 
+module PegTestKit(){
+  PegPrintL();
+  translate([2,0,0]) PegPrintR();
+  translate([0,-2,0])
+    linear_extrude(height=retain_len, convexity=100) WithRetainSection();
+}
+
 //Demo();
 //HandleSection();
 //InsertSection();
@@ -269,6 +288,8 @@ module Test(){
 //BasicSection();
 //GappingSection();
 //Test();
-Peg();
+//Peg();
+//PegPrintR();
+PegTestKit();
 //Demo();
 //Handle();