From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sat, 3 Jun 2017 13:58:51 +0000 (+0100)
Subject: sewing-table: Machine: extend and fix
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?p=reprap-play.git;a=commitdiff_plain;h=72cf60c00c4c6113d2f3e8cc471aa8d8942ca1a1

sewing-table: Machine: extend and fix
---

diff --git a/sewing-table.scad.m4 b/sewing-table.scad.m4
index 045193c..13778aa 100644
--- 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();