From c04e85ae295ab6a27bbbbaafd93d0b9537587a27 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Fri, 26 Aug 2016 20:33:47 +0100
Subject: [PATCH] flyscreen-handle: PegTestKit

---
 flyscreen-handle.scad | 29 +++++++++++++++++++++++++----
 1 file changed, 25 insertions(+), 4 deletions(-)

diff --git a/flyscreen-handle.scad b/flyscreen-handle.scad
index 6062278..9d3a544 100644
--- 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();
-- 
2.30.2