From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sun, 4 Jun 2017 16:56:31 +0000 (+0100)
Subject: sewing-table: TestStrapPeg toplevels
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?a=commitdiff_plain;h=4a0c73c742495de6d5c191544b53450debfa54d2;p=reprap-play.git

sewing-table: TestStrapPeg toplevels
---

diff --git a/sewing-table.scad.m4 b/sewing-table.scad.m4
index 73fc015..dac94ef 100644
--- a/sewing-table.scad.m4
+++ b/sewing-table.scad.m4
@@ -534,6 +534,16 @@ module TestStrapSlots(){
   }
 }
 
+module TestStrapPeg_any(l){ cube(concat([l],teststrap_peg)); }
+
+module TestStrapPeg_Short(){ ////toplevel
+  TestStrapPeg_any(35);
+}
+
+module TestStrapPeg_Long(){ ////toplevel
+  TestStrapPeg_any(60);
+}
+
 module Machine(){ ////toplevel
   Machine_Arm();
   Machine_Curves();