X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?p=reprap-play.git;a=blobdiff_plain;f=doveclip.scad;h=cc2a02bcacd12c1554f66afae98bd6d78636e137;hp=6e9bb1d5d1b940c7eaaaa16d205eac426ec58c17;hb=4dbc80ccc15f7880d408d9749c178b4fe759faae;hpb=3abca14fd1398de93282f7177aeebcaeb5afb897

diff --git a/doveclip.scad b/doveclip.scad
index 6e9bb1d..cc2a02b 100644
--- a/doveclip.scad
+++ b/doveclip.scad
@@ -75,3 +75,28 @@ module DoveClipPairSane(baseextend=0, h=7, count=2) {
 
 function DoveClipPairSane_width(count=2) =
   2 * (nomrad + jawthick + ((nomrad*2 + jawthick) * (count-1)/2));
+
+module DoveClipExtender(length, ha=7, hb=7, counta=2, countb=2,
+			pillarw=3, pillarh=6, webthick=1) {
+  mirror([1,0,0])
+    DoveClipPairSane(h=ha, count=counta);
+  translate([length,0,0])
+    DoveClipPairSane(h=hb, count=countb);
+  pillarlen = length - DoveClip_depth() * 2 + 2;
+  pilesw =
+    min(DoveClipPairSane_width(counta), DoveClipPairSane_width(countb)) - 0.5;
+  pilesh = min(ha, hb) - 0.5;
+  d = 0.25;
+  echo(pilesh);
+  translate([DoveClip_depth() - 1, 0, 0]) {
+    for (mir=[0,1]) mirror([0,mir,0]) translate([0,-pilesw/2,0]) {
+      mirror([1,0,0]) rotate([0,-90,0]) linear_extrude(height=pillarlen){
+	polygon([[0,0], [pillarh,0], [0,pillarw]]);
+	polygon([[pilesh,0], [pilesh-pillarh,0], [pilesh,pillarw]]);
+	polygon([[0,d], [0,webthick], [pilesh-d,webthick], [pilesh-d,0]]);
+      }
+    }
+  }
+}
+
+//DoveClipExtender(length=100, ha=16, hb=12, counta=3, countb=4);