sewing-table: working on test version

[reprap-play.git] / sewing-table.scad.m4

diff --git a/sewing-table.scad.m4 b/sewing-table.scad.m4
index fb8313c4305c4205d7c65c709c859b98790f0128..9d494938e1695cfd89084686465306ee897087e1 100644 (file)
--- a/sewing-table.scad.m4
+++ b/sewing-table.scad.m4
@@ -65,6 +65,13 @@ module Post(){
        cylinder(r= screw_dia/2, h= ply_th, $fn=20);
       }
     }
+    if (TEST) {
+      tsz = tile_hard_edge_hole_dist - test_edge + 1;
+      translate([0,0, tile_th/2]) {
+       cube([post_dia, tsz*2, tile_th], center=true);
+       cube([tsz*2, post_dia, tile_th], center=true);
+      }
+    }
   }
 }
 
@@ -88,6 +95,11 @@ module TileBase(botleft, topright){
       Commitid_BestCount_M( topright_post-botleft_post
                            + [-post_dia,-post_dia]
                            + [0, thehd[1]]);
+    if (TEST) {
+      mirror([0,0,1])
+       translate(concat(botleft + [test_edge,test_edge], [test_tile_th]))
+       cube(concat(size - [test_edge,test_edge]*2, [tile_th]));
+    }
   }
 }