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

sewing-table: NewRearCurve: deploy
---

diff --git a/sewing-table.scad.m4 b/sewing-table.scad.m4
index 5935aac..8b9b2d2 100644
--- a/sewing-table.scad.m4
+++ b/sewing-table.scad.m4
@@ -516,31 +516,7 @@ module Machine_Curves(){ ////toplevel
     translate([ rearcurve_strt_len,
 		0,
 		rearcurve_z_slop ]){
-      translate([ 1,
-		  0,
-		  0
-		  ]){
-	rotate([0,-90,0])rotate([0,0,-90]){
-	  linear_extrude(height= rearcurve_strt_len + 1)
-	  Machine_RearProfile();
-	}
-      }
-      translate([ 0,
-		  0,
-		  rearcurve_double_inrad ]) {
-	intersection(){
-	  rotate([90,0,0]){
-	    rotate_extrude(convexity=10, $fn=32) {
-	      rotate([0,0,90]) translate([ 0,
-			  -rearcurve_double_inrad ]) {
-		Machine_RearProfile();
-	      }
-	    }
-	  }
-	  mirror([0,0,1])
-	    translate([0,-75,0]) cube([150,150,150]);
-	}
-      }
+      Machine_NewRearCurve();
     }
   }
 }