chiark / gitweb /
sewing-table: NewRearCurve: slant
authorIan Jackson <ijackson@chiark.greenend.org.uk>
Sat, 3 Jun 2017 12:58:37 +0000 (13:58 +0100)
committerIan Jackson <ijackson@chiark.greenend.org.uk>
Sat, 3 Jun 2017 16:50:37 +0000 (17:50 +0100)
sewing-table.scad.m4

index 3259920..c8757a5 100644 (file)
@@ -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