From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sat, 3 Jun 2017 12:58:37 +0000 (+0100)
Subject: sewing-table: NewRearCurve: slant
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?p=reprap-play.git;a=commitdiff_plain;h=f9286e4b5677b3b0bd178a9ce3a5e5d4e5555778

sewing-table: NewRearCurve: slant
---

diff --git a/sewing-table.scad.m4 b/sewing-table.scad.m4
index 3259920..c8757a5 100644
--- 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