X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?p=reprap-play.git;a=blobdiff_plain;f=sewing-table.scad.m4;h=7c95db9682b16029b972a150ad1a2e3e69b6f219;hp=c3e670dc8e7f9a2b153260eb7b8acca979317962;hb=62ab81705a1d49b4b39ed7c5a565e4fd1b9fb787;hpb=94dee60bcd19b466f66923da98b5e92ab2112ce5

diff --git a/sewing-table.scad.m4 b/sewing-table.scad.m4
index c3e670d..7c95db9 100644
--- a/sewing-table.scad.m4
+++ b/sewing-table.scad.m4
@@ -828,6 +828,48 @@ module FitTest_FrontCurve(){ ////toplevel
   }
 }
 
+module FitTest_PairLink(cut=false){ ////toplevel
+  cy0=-55; cy1=85; cx=127;
+  bar = [10,10];
+  legrad = 12;
+  footrad_min = 4; footrad_max = 6; footrad_depth = 3;
+
+  translate([cx - bar[0]/2, cy0, 0])
+    cube([bar[0], cy1-cy0, bar[1]]);
+  for (endy=[cy0,cy1]) {
+    $fn=32;
+    translate([cx,endy,0]){
+      for (rot=[45,135]) {
+	rotate(rot){
+	  hull(){
+	    for (s=[-1,+1]){
+	      translate([s*legrad,0,0])
+		cylinder(r= footrad_max, h=bar[1]);
+	    }
+	  }
+	}
+      }
+      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);
+	    }
+	  }
+	}
+      }
+    }
+  }
+}
+
+module FitTest_PairDemo(){ ////toplevel
+  FitTest_PairLink();
+  %FitTest_FrontCurve();
+  %FitTest_RearCurve();
+}
+
 module RoundCornerDemo_plat(cnr){
   mirror([0,0,1]) linear_extrude(height=1) polygon(cnr);
 }