sewing-table: Machine: extend and fix

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

diff --git a/sewing-table.scad.m4 b/sewing-table.scad.m4
index ef02acce9b03446eb27084d004c42bd6bf7312e7..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();
@@ -551,9 +553,7 @@ m4_dnl    expands to two comma-separated corners:
 m4_dnl    that denoted by ix, and the next one anticlockwise
 m4_define(`R_EDGE',`$1[$2],$1[(($2)+1)%4]')
 
-module FitTest(){ ////toplevel
-  sz = [280,180];
-  c0 = [-50,-80];
+module FitTest_general(c0,sz){
   c = Rectangle_corners(c0, sz);
   brace = [7,7,9];
   difference(){
@@ -572,6 +572,18 @@ module FitTest(){ ////toplevel
   }
 }
 
+module FitTest_Entire(){ ////toplevel
+  FitTest_general([-40,-80], [275,180]);
+}
+
+module FitTest_RearCurve(){ ////toplevel
+  FitTest_general([110,0], [170,100]);
+}
+
+module FitTest_FrontCurve(){ ////toplevel
+  FitTest_general([110,-80], [170,80]);
+}
+
 module Tile02(){ ////toplevel
   sz = [100,170];
   c0 = tile02_tr + -sz;
@@ -739,3 +751,4 @@ module Demo(){ ////toplevel
 //Machine_NewRearCurve();
 //Machine_Curves();
 //Machine();
+//FitTest();