sewing-table: NewRearCurve: slant

diff --git a/sewing-table.scad.m4 b/sewing-table.scad.m4
index 3259920ab14e01d23d40190ec58392016bfb4830..c8757a583f3f632ff5a8fcec335e3027728a7ad4 100644 (file)
--- a/sewing-table.scad.m4
+++ b/sewing-table.scad.m4
@@ -439,28 +439,32 @@ module Machine_NewRearProfile(){
 }
 
 module Machine_NewRearCurve(){
 }
 
 module Machine_NewRearCurve(){

-  translate([ rearcurve_double_inrad, 0, 10 ]){
-    rotate([180,0,0]) rotate([0,0,90]) linear_extrude(height=30){
-      hull(){
-       Machine_NewRearProfile();
-      translate([0,-100]) Machine_NewRearProfile();
+  slant = atan2(4,210-10);
+  echo("SL",slant);
+  rotate([slant,0,0]){
+    translate([ rearcurve_double_inrad, 0, 10 ]){
+      rotate([180,0,0]) rotate([0,0,90]) linear_extrude(height=30){
+       hull(){
+         Machine_NewRearProfile();
+         translate([0,-100]) Machine_NewRearProfile();
+       }

       }
     }
       }
     }

-  }
-  rotate([0,90,0]) rotate([90,0,0]) {
-    intersection(){
-      rotate_extrude(convexity=10, $fn=64)
-       rotate(90)
-       translate([ 0, -rearcurve_double_inrad ])
-       Machine_NewRearProfile();
-      translate([0,0,-500])
-       cube([500,500,1000]);
+    rotate([0,90,0]) rotate([90,0,0]) {
+      intersection(){
+       rotate_extrude(convexity=10, $fn=64)
+         rotate(90)
+         translate([ 0, -rearcurve_double_inrad ])
+         Machine_NewRearProfile();
+       translate([0,0,-500])
+         cube([500,500,1000]);
+      }

     }
     }

+    translate([1,0,-rearcurve_double_inrad])
+      rotate([0,-90,0]) rotate([0,0,-90])
+      linear_extrude(height= rearcurve_strt_len + 1)
+      Machine_NewRearProfile();

   }
   }

-  translate([1,0,-rearcurve_double_inrad])
-    rotate([0,-90,0]) rotate([0,0,-90])
-    linear_extrude(height= rearcurve_strt_len + 1)
-    Machine_NewRearProfile();

 }
 
 module Machine_RearProfile(){ ////toplevel
 }
 
 module Machine_RearProfile(){ ////toplevel