sewing-table: NewRearCurve: slant

[reprap-play.git] / sewing-table.scad.m4

diff --git a/sewing-table.scad.m4 b/sewing-table.scad.m4
index d52e773416938156b80ac91d66c91d6c18d6a157..c8757a583f3f632ff5a8fcec335e3027728a7ad4 100644 (file)
--- a/sewing-table.scad.m4
+++ b/sewing-table.scad.m4
@@ -439,28 +439,32 @@ module Machine_NewRearProfile(){
 }
 
 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