From 4dbc80ccc15f7880d408d9749c178b4fe759faae Mon Sep 17 00:00:00 2001 From: Ian Jackson Date: Sun, 16 Sep 2012 14:43:16 +0100 Subject: [PATCH] doveclip DoveClipExtender --- doveclip.scad | 25 +++++++++++++++++++++++++ 1 file changed, 25 insertions(+) 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); -- 2.30.2