From 5313ab38847582570faf12759411d3b1d3a7e701 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sun, 4 Jun 2017 12:14:17 +0100
Subject: [PATCH] sewing-table: FitTest_PairLink: wip

---
 sewing-table.scad.m4 | 31 +++++++++++++++++++++++++++++++
 1 file changed, 31 insertions(+)

diff --git a/sewing-table.scad.m4 b/sewing-table.scad.m4
index c3e670d..fcc722a 100644
--- 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);
 }
-- 
2.30.2