From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Thu, 25 May 2017 00:07:12 +0000 (+0100)
Subject: sewing-table: add front curve
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?p=reprap-play.git;a=commitdiff_plain;h=21687fed09da3315f9cb43cf2fdce35487b540b3

sewing-table: add front curve
---

diff --git a/sewing-table.scad.m4 b/sewing-table.scad.m4
index 734a7a5..76107da 100644
--- a/sewing-table.scad.m4
+++ b/sewing-table.scad.m4
@@ -96,6 +96,8 @@ reartablet_z = 2.54;
 reartablet_x = 5 + 1;
 reartablet_y = 5;
 
+frontcurve_side_skew = 3.5 / 72;
+
 // calculated
 
 TEST = false;
@@ -418,6 +420,15 @@ module Machine_RearProfile(){
   }
 }
 
+module Machine_FrontProfile(){
+  intersection(){
+    Machine_Profile();
+    translate([ machine_rear_to_front/2, -100 ]) {
+      square([200,200]);
+    }
+  }
+}
+
 module Machine_Curves(){ ////toplevel
   translate([ tile01_tr[0] - cutout_l_end_x + rearedge_len,
 	      cutout_tile11_y,
@@ -434,6 +445,18 @@ module Machine_Curves(){ ////toplevel
   translate([ tile01_tr[0] - cutout_l_end_x + rearedge_len,
 	      cutout_tile11_y,
 	      0 ]){
+    translate([ 0, -first_front[0] , 0 ])
+      multmatrix([[1, -frontcurve_side_skew, 0, 0],
+		  [0,  1,   0, 0],
+		  [0,  0,   1, 0],
+		  [0,  0,   0, 1]])
+      translate([ 0, first_front[0] , 0 ])
+      mirror([1,0,0]){
+      rotate([0,-90,0])rotate([0,0,-90]){
+	linear_extrude(height= 200)
+	  Machine_FrontProfile();
+      }
+    }
     translate([ rearcurve_strt_len,
 		0,
 		rearcurve_z_slop ]){