X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?a=blobdiff_plain;f=sewing-table.scad.m4;h=5ad31f80781b26d527c3cfa80cbbdd4de3c0ca1a;hb=3106a171bdb3ac9bf9b8125f3d74c5ed092eba78;hp=bdc93a072411fa9dd7ce252ac53c5f06db12acb6;hpb=0e08c1470d155365d31aa6fdb0d3c04f8b41899f;p=reprap-play.git

diff --git a/sewing-table.scad.m4 b/sewing-table.scad.m4
index bdc93a0..5ad31f8 100644
--- a/sewing-table.scad.m4
+++ b/sewing-table.scad.m4
@@ -569,20 +569,7 @@ module Machine_Curves(){ ////toplevel
   translate([ tile01_tr[0] - cutout_l_end_x + rearedge_len,
 	      cutout_tile11_y,
 	      frontcurve_z_slop ]){
-    translate([ 0, -first_front[0] , 0 ])
-      multmatrix([[1, -frontcurve_side_skew, 0, 0],
-		  [0,  1,   0, 0],
-		  [0,  0,   1, 0],
-		  [0,  0,   0, 1]])
-      translate([ 0, first_front[0] , 0 ])
-      mirror([1,0,0]){
-      rotate([0,-90,0])rotate([0,0,-90]){
-	linear_extrude(height= 200)
-	  Machine_FrontProfile();
-      }
-    }
-
-    %translate([0, -machine_rear_to_front, 0])
+    translate([0, -machine_rear_to_front, 0])
       multmatrix([[1, -frontcurve_side_skew, 0, 0],
 		  [0,  1,   0, 0],
 		  [0,  0,   1, 0],
@@ -635,35 +622,6 @@ module Rectangle_TileBase(c) { TileBase(c[0], c[2]); }
 
 function Posts_interpolate_one(c0,c1) = [c0, (c0+c1)/2, c1];
 
-module FitTest_general(c0,sz, dobrace=false){
-  c = Rectangle_corners(c0, sz);
-  brace = [7,7,9];
-  difference(){
-    union(){
-      Rectangle_TileBase(c);
-      if (dobrace) {
-	translate(concat(c0, [-brace[2] + 0.1])){
-	  difference(){
-	    cube(concat(sz,[brace[2]]) - [5,0,0]);
-	    translate(brace + [0,0, -25])
-	      cube(concat(sz, [50]) - brace*2 + [10,0,0]);
-	  }
-	}
-      }
-      RoundEdge(R_EDGE(c,1));
-    }
-    Machine();
-  }
-}
-
-module FitTest_Entire(){ ////toplevel
-  FitTest_general([-40,-80], [275,180], dobrace=true);
-}
-
-module FitTest_RearCurve(){ ////toplevel
-  FitTest_general([110,0], [170,100]);
-}
-
 module Tile02(){ ////toplevel
   sz = [100,170];
   c0 = tile02_tr + -sz;
@@ -830,6 +788,35 @@ module Tile00(){ ////toplevel
   RoundCornerAdd(rc2);
 }
 
+module FitTest_general(c0,sz, dobrace=false){
+  c = Rectangle_corners(c0, sz);
+  brace = [7,7,9];
+  difference(){
+    union(){
+      Rectangle_TileBase(c);
+      if (dobrace) {
+	translate(concat(c0, [-brace[2] + 0.1])){
+	  difference(){
+	    cube(concat(sz,[brace[2]]) - [5,0,0]);
+	    translate(brace + [0,0, -25])
+	      cube(concat(sz, [50]) - brace*2 + [10,0,0]);
+	  }
+	}
+      }
+      RoundEdge(R_EDGE(c,1));
+    }
+    Machine();
+  }
+}
+
+module FitTest_Entire(){ ////toplevel
+  FitTest_general([-40,-80], [275,180], dobrace=true);
+}
+
+module FitTest_RearCurve(){ ////toplevel
+  FitTest_general([110,0], [170,100]);
+}
+
 module FitTest_FrontCurve(){ ////toplevel
   p0 = [110,-80];
   sz = [170,80];
@@ -841,6 +828,74 @@ module FitTest_FrontCurve(){ ////toplevel
   }
 }
 
+module FitTest_PairLink(cut=false){ ////toplevel
+  cy0=-55; cy1=85; cx=127;
+  bar = [10,10];
+  legrad = 12;
+  footrad_min = 1; footrad_max = 4; footrad_depth = 5;
+  strap = [3,5];
+  adj_neg_slop = 1.0;
+
+  // calculated
+  straphole_x_max = legrad/sqrt(2) + footrad_max;
+  dz = cut ? adj_neg_slop : 0;
+
+  translate([cx - bar[0]/2, cy0, dz])
+    cube([bar[0], cy1-cy0, bar[1]]);
+
+  for (endy=[cy0,cy1]) {
+    $fn=32;
+    translate([cx,endy,dz]){
+      // feet
+      for (rot=[45:90:315]) rotate(rot) {
+	translate([legrad,0,0]){
+	  hull(){
+	    cylinder(r= footrad_max, h=1);
+	    translate([0,0,-footrad_depth])
+	      cylinder(r= footrad_min, h=1);
+	  }
+	}
+      }
+      // legs
+      for (rot=[45,135]) rotate(rot) {
+	hull(){
+	  for (s=[-1,+1]){
+	    translate([s*legrad,0,0])
+	      cylinder(r= footrad_max, h=bar[1]);
+	  }
+	}
+      }
+      // strap holes
+      if (cut) {
+	for (rot=[0,180]) rotate(rot) {
+	    translate([ straphole_x_max - strap[0]/2, 0,0 ])
+	      cube(concat(strap,[20]), center=true);
+	  }
+      }
+    }
+  }
+}
+
+module FitTest_PairDemo(){ ////toplevel
+  sh=[-100,-15,0];
+  translate(sh){
+    FitTest_PairLink();
+    %FitTest_FrontCurve();
+    %FitTest_RearCurve();
+  }
+  rotate([0,0,180]){
+    translate(sh){
+      difference(){
+	union(){
+	  FitTest_FrontCurve();
+	  FitTest_RearCurve();
+	}
+	#FitTest_PairLink(true);
+      }
+    }
+  }
+}
+
 module RoundCornerDemo_plat(cnr){
   mirror([0,0,1]) linear_extrude(height=1) polygon(cnr);
 }