From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Fri, 26 Aug 2016 19:33:47 +0000 (+0100)
Subject: flyscreen-handle: PegTestKit
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?p=reprap-play.git;a=commitdiff_plain;h=c04e85ae295ab6a27bbbbaafd93d0b9537587a27

flyscreen-handle: PegTestKit
---

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();