sewing-table: FitTest_PairLink: wip

diff --git a/sewing-table.scad.m4 b/sewing-table.scad.m4
index c3e670dc8e7f9a2b153260eb7b8acca979317962..fcc722a60aa0766537629d5ec11eb00d061f1252 100644 (file)
--- a/sewing-table.scad.m4
+++ b/sewing-table.scad.m4
@@ -828,6 +828,37 @@ module FitTest_FrontCurve(){ ////toplevel
   }
 }
 
+module FitTest_PairLink(adjust=0){ ////toplevel
+  cy0=-55; cy1=85; cx=125;
+  bar = [10,10];
+  legrad = 15;
+  footrad_min = 4; footrad_max = 6; footrad_depth = 3;
+
+  translate([cx,cy0,0])
+    cube([bar[0], cy1-cy0, bar[1]]);
+  for (endy=[cy0,cy1]) {
+    translate([cx,endy,0]){
+      for (rot=[0:90:270]) {
+       rotate(rot){
+         translate([legrad,0,0]){
+           hull(){
+             cylinder(r= footrad_max, height=1);
+             translate([0,0,-footrad_depth])
+               cylinder(r= footrad_min, height=1);
+           }
+         }
+       }
+      }
+    }
+  }
+}
+
+module FitTest_PairDemo(){ ////toplevel
+  %FitTest_FrontCurve();
+  %FitTest_RearCurve();
+  FitTest_PairLink();
+}
+
 module RoundCornerDemo_plat(cnr){
   mirror([0,0,1]) linear_extrude(height=1) polygon(cnr);
 }