From bfbd832853d40c8064d604a8b13b90373fd62d73 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sun, 18 Jun 2017 11:05:43 +0100
Subject: [PATCH] sewing-table: PostTestPiece: forest of posts

---
 sewing-table.scad.m4 | 17 ++++++++++++-----
 1 file changed, 12 insertions(+), 5 deletions(-)

diff --git a/sewing-table.scad.m4 b/sewing-table.scad.m4
index 19ab138..9f701f2 100644
--- a/sewing-table.scad.m4
+++ b/sewing-table.scad.m4
@@ -484,17 +484,24 @@ module TestDemo(){ ////toplevel
 }
 
 module PostTestPiece(){ ////toplevel
-  holes = [ [   0, 0] ];
-  holes_forcnrs = concat(holes, [ [1, 0] ]);
-  corners = TestPiece_holes2corners(holes_forcnrs);
+  hole_sizes = [2.8, 3.0, 3.1, 3.134, 3.168, 3.2, 3.3, 3.5];
+  nholes = len(hole_sizes)*2;
+  nrows = 4;
+  stride = post_dia*1.5;
+  rect_sz = stride * [ nrows,
+		       ceil(nholes/nrows) ];
+  corners = Rectangle_corners(-stride * 0.5 * [1,1], rect_sz);
   difference(){
     union(){
       TileBase(corners[0], corners[2]);
-      Posts(holes);
       RoundEdge(corners[0], corners[1]);
       InterlockEdge(corners[3], corners[0], 0, nlobes=1);
+      for (i= [ 0: nholes-1 ]) {
+	$screw_dia = hole_sizes[ floor(i/2) ];
+	Posts([ stride * [ (i % nrows),
+			   floor(i / nrows) ] ]);
+      }
     }
-    PostHoles(holes);
   }
 }
 
-- 
2.30.2