From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Thu, 25 May 2017 00:28:33 +0000 (+0100)
Subject: sewing-table: wip Tile00
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?p=reprap-play.git;a=commitdiff_plain;h=5a748713c452ce58cb9797894655b7be10643da5

sewing-table: wip Tile00
---

diff --git a/sewing-table.scad.m4 b/sewing-table.scad.m4
index af5c5bf..37b46b6 100644
--- a/sewing-table.scad.m4
+++ b/sewing-table.scad.m4
@@ -97,6 +97,7 @@ reartablet_x = 5 + 1;
 reartablet_y = 5;
 
 frontcurve_side_skew = 3.5 / 72;
+frontcurve_avoid_y = 70;
 
 // calculated
 
@@ -639,12 +640,41 @@ module Tile10(){ ////toplevel
   RoundCornerAdd(rcs);
 }
 
+module Tile00(){ ////toplevel
+  sz = [250,170];
+  c0 = tile01_tr + [0,-sz[1]];
+  c = Rectangle_corners(c0, sz);
+  cnr_posts = Rectangle_corners2posts(c);
+  cty = cutout_tile01_y;
+  rcy = cty + frontcurve_avoid_y;
+  posts = [ cnr_posts[0],
+	    cnr_posts[1],
+	    cnr_posts[2] + [ 0,                             -rcy ],
+	    cnr_posts[2] + [ -sz[1] + rearedge_len - cutout_l_end_x, -cty ],
+	    cnr_posts[3] + [ 0,                             -cty ]
+	    ];
+  rcs = [R_EDGE(c,1)];
+  difference(){
+    union(){
+      Rectangle_TileBase(c);
+      Posts(posts);
+      RoundEdge(R_EDGE(c,0));
+      RoundEdge(R_EDGE(c,1));
+      InterlockEdge(tile_01_00_cnr, c[0]);
+    }
+    RoundCornerCut(rcs);
+    Machine();
+  }
+  RoundCornerAdd(rcs);
+}
+
 module Demo(){ ////toplevel
   translate(demo_slop*[-2,1]) color("blue") Tile12();
   translate(demo_slop*[-2,0]) color("red")  Tile02();
   translate(demo_slop*[-2,1]) color("orange") Tile11();
   translate(demo_slop*[-2,0]) color("purple") Tile01();
   translate(demo_slop*[-3,1]) color("blue")   Tile10();
+  translate(demo_slop*[-3,0]) color("red")    Tile00();
   %Machine();
 }