sewing-table: TestStrapPeg toplevels

diff --git a/sewing-table.scad.m4 b/sewing-table.scad.m4
index 73fc015ff43aacc298a2892b086fb6646709277a..dac94efd7cf2fb1deace976c0cdd5c9dc72579de 100644 (file)
--- 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();