sewing-table: add front curve

diff --git a/sewing-table.scad.m4 b/sewing-table.scad.m4
index 734a7a5ea64006c19a0e9d2a7b9dae0e076eac9f..76107dad047fec99ab286e3781ac2a3c3ef11de5 100644 (file)
--- 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 ]){