chiark / gitweb /
doveclip DoveClipExtender
authorIan Jackson <ijackson@chiark.greenend.org.uk>
Sun, 16 Sep 2012 13:43:16 +0000 (14:43 +0100)
committerIan Jackson <ijackson@chiark.greenend.org.uk>
Sun, 16 Sep 2012 13:43:16 +0000 (14:43 +0100)
doveclip.scad

index 6e9bb1d..cc2a02b 100644 (file)
@@ -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);