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

---
 sewing-table.scad.m4 | 25 ++++++++++++++++++-------
 1 file changed, 18 insertions(+), 7 deletions(-)

diff --git a/sewing-table.scad.m4 b/sewing-table.scad.m4
index cf85e35..7c95db9 100644
--- a/sewing-table.scad.m4
+++ b/sewing-table.scad.m4
@@ -828,23 +828,34 @@ module FitTest_FrontCurve(){ ////toplevel
   }
 }
 
-module FitTest_PairLink(adjust=0){ ////toplevel
-  cy0=-55; cy1=85; cx=130;
+module FitTest_PairLink(cut=false){ ////toplevel
+  cy0=-55; cy1=85; cx=127;
   bar = [10,10];
-  legrad = 15;
+  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=[0:90:270]) {
+      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, height=1);
+	      cylinder(r= footrad_max, h=1);
 	      translate([0,0,-footrad_depth])
-		cylinder(r= footrad_min, height=1);
+		cylinder(r= footrad_min, h=1);
 	    }
 	  }
 	}
@@ -854,9 +865,9 @@ module FitTest_PairLink(adjust=0){ ////toplevel
 }
 
 module FitTest_PairDemo(){ ////toplevel
+  FitTest_PairLink();
   %FitTest_FrontCurve();
   %FitTest_RearCurve();
-  FitTest_PairLink();
 }
 
 module RoundCornerDemo_plat(cnr){
-- 
2.30.2