From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sun, 21 May 2017 23:47:44 +0000 (+0100)
Subject: sewing-table: Tile10, MachineRear: wip fixing
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?p=reprap-play.git;a=commitdiff_plain;h=d551840ca58a1f088fbfe86d98fe6238fe438105

sewing-table: Tile10, MachineRear: wip fixing
---

diff --git a/sewing-table.scad.m4 b/sewing-table.scad.m4
index 0a8fb4a..7094f91 100644
--- 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();
 }