sewing-table: NewRearCurve: deploy

diff --git a/sewing-table.scad.m4 b/sewing-table.scad.m4
index 5935aaccd5e6848b84a641911b257fe4c70ea10a..8b9b2d2d2ad498a41d41ae7e5046ac3023e42526 100644 (file)
--- 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();
     }
   }
 }