sewing-table: PostTestPiece

diff --git a/sewing-table.scad.m4 b/sewing-table.scad.m4
index f2449a8c36fabf177ff27871d0afb0861a9ae284..fa7116f6f7537ff6bb7106f4b04e1d8b0cf535a7 100644 (file)
--- a/sewing-table.scad.m4
+++ b/sewing-table.scad.m4
@@ -483,6 +483,21 @@ module TestDemo(){ ////toplevel
     TestPiece2();
 }
 
+module PostTestPiece(){ ////toplevel
+  holes = [ [   0, 0] ];
+  holes_forcnrs = concat(holes, [ [1, 0] ]);
+  corners = TestPiece_holes2corners(holes_forcnrs);
+  difference(){
+    union(){
+      TileBase(corners[0], corners[2]);
+      Posts(holes);
+      RoundEdge(corners[0], corners[1]);
+      InterlockEdge(corners[3], corners[0], 0, nlobes=1);
+    }
+    PostHoles(holes);
+  }
+}
+
 module Machine_NewRearProfile(){
   // figures copied out of xfig edit boxes
   // best not to edit the posbox size if poss - just move it