sewing-table: Machine: extend and fix

diff --git a/sewing-table.scad.m4 b/sewing-table.scad.m4
index 045193c98bf7ae2d75cf0e9a95b15d295d897024..13778aa360b6120de890fad670ef9082de60f0dc 100644 (file)
--- a/sewing-table.scad.m4
+++ b/sewing-table.scad.m4
@@ -391,7 +391,7 @@ module Machine_Arm(){
   translate([0,0,-30]) linear_extrude(height=60) {
     translate(tile01_tr + [0, (-cutout_tile01_y + cutout_tile11_y)/2]) {
       intersection(){
-       translate([-100, -ysz/2])
+       translate([-50, -ysz/2])
          square([400, ysz]);
        translate([ endrad - cutout_tile11_x - cutout_l_end_x_slop, 0 ])
          circle(r=endrad, $fa=0.01,$fd=5);
@@ -442,7 +442,9 @@ module Machine_NewRearCurve(){
   slant = atan2(4,210-10);
   echo("SL",slant);
   translate([0,0, rearcurve_double_inrad]) rotate([slant,0,0]){
-    translate([ rearcurve_double_inrad, 0, 10 ]){
+    translate([ rearcurve_double_inrad,
+               0,
+               -rearcurve_double_inrad + 10 ]){
       rotate([180,0,0]) rotate([0,0,90]) linear_extrude(height=30){
        hull(){
          Machine_NewRearProfile();