sewing-table: FitTest_PairLink: wip

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

diff --git a/sewing-table.scad.m4 b/sewing-table.scad.m4
index c3e670dc8e7f9a2b153260eb7b8acca979317962..7c95db9682b16029b972a150ad1a2e3e69b6f219 100644 (file)
--- 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);
 }