sewing-table: NewArm: make longer

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

diff --git a/sewing-table.scad.m4 b/sewing-table.scad.m4
index bed22ea12da572b6ad25805b8b287d9920af2061..b5151ecb1fd192c5f5a57c5cdf59808203db189a 100644 (file)
--- a/sewing-table.scad.m4
+++ b/sewing-table.scad.m4
@@ -39,6 +39,7 @@ cutout_l_end_x_slop = 0.25;
 cutout_l_end_x = 22;
 cutout_l_end_y = machine_rear_to_front;
 cutout_l_end_curve = 1;
+cutout_l_end_new_x_slop = -1.4;
 cutout_l_end_y_total = cutout_l_end_y
   + cutout_l_end_y_front_slop + cutout_l_end_y_rear_slop;
 
@@ -483,7 +484,7 @@ module Machine_NewEndProfile(){
   sh = (0.5 * (endline[0] + endline[1])) - posbox;
 
   ellen = sc * dist2d(endline[0],endline[1]);
-  scy = cutout_l_end_y / ellen;
+  scy = cutout_l_end_y_total / ellen;
 
   scale([scy,1]) scale(sc) rotate(rot + rot_adj) translate(-[sh[0],-sh[1]]){
 
@@ -514,6 +515,20 @@ module Machine_NewEndProfileDemo(){ ////toplevel
   }
 }
 
+module Machine_NewArm(){
+  translate([0,0,-30]) linear_extrude(height=60) {
+    translate(tile01_tr + [ -cutout_l_end_x + cutout_l_end_new_x_slop,
+                           (-cutout_tile01_y + cutout_tile11_y)/2 ]){
+      rotate(-90){
+       hull(){
+         for (d=[0,400]) 
+           translate([0,d]) Machine_NewEndProfile();
+       }
+      }
+    }
+  }
+}
+
 module Machine_NewRearCurve(){
   slant = atan2(4,210-10);
   //echo("SL",slant);