sewing-table: Tile10, MachineRear: wip fixing

diff --git a/sewing-table.scad.m4 b/sewing-table.scad.m4
index 0a8fb4aeddd629da32ed050e8a0fe3ce005c561b..7094f914a5e5ab30f820794df41d3d8b8ac74c8b 100644 (file)
--- a/sewing-table.scad.m4
+++ b/sewing-table.scad.m4
@@ -56,6 +56,8 @@ rearcurve_total_len = 84;
 
 rearcurve_rad_slop = 0.5;
 
+rearcurve_avoid_y = rearcurve_rad + 10;
+
 // calculated
 
 TEST = false;
@@ -379,7 +381,11 @@ module Machine_Rear(){
 
 module Machine(){ ////toplevel
   Machine_Arm();
-  Machine_Rear();
+  minkowski(){
+    Machine_Rear();
+    translate([0,-5,-5])
+      cube([50,5,5]);
+  }
 }
   
 function Rectangle_corners(c0, sz) =
@@ -501,11 +507,35 @@ module Tile01(){ ////toplevel
   }
 }    
 
+module Tile10(){ ////toplevel
+  sz = [250,250];
+  c0 = [sz[0],0];
+  c = Rectangle_corners(c0, sz);
+  cnr_posts = Rectangle_corners2posts(c);
+  posts = [ cnr_posts[0],
+           cnr_posts[1] + [ -rearedge_len + cutout_l_end_x, 0 ],
+           cnr_posts[1] + [ 0, rearcurve_avoid_y ],
+           cnr_posts[2],
+           cnr_posts[3] ];
+  difference(){
+    union(){
+      Rectangle_TileBase(c);
+      Posts(posts);
+      RoundEdge(R_EDGE(c,2));
+      //InterlockEdge(tile_01_11_cnr, c[3]);
+      //InterlockEdge(R_EDGE(c,3));
+    }
+    //InterlockEdge(c[1], tile_01_00_cnr, 1);
+    Machine();
+  }
+}
+
 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();
   %Machine();
 }