7 nomrad = height/2 - toothheight;
8 minrad = nomrad - 0.75;
9 maxrad = nomrad + 0.25;
15 toothgap = webthick + webgap*2;
16 basethick = toothheight;
18 module DoveClipPin(h=height) {
19 pinh = h * pinlengthfact;
20 pinheight = nomrad*2 + jawthick*2;
21 translate([0,0, pinheight/2]) intersection(){
24 mirror([0,0,m]) translate([0,0,pinheight/2]) rotate([90,0,0])
25 cylinder($fn=20, r1=minrad, r2=maxrad, h=pinh);
27 translate([-webthick/2, -pinh, -pinheight/2-1])
28 cube([webthick, pinh, pinheight+2]);
30 translate([-maxrad-1, -pinh-1, -pinheight/2])
31 cube([maxrad*2+2, pinh+2, pinheight]);
35 function DoveClip_depth() =
36 basethick + nomrad*2 + toothheight;
38 module DoveClipEnd(baseextend=1, h=7) {
39 cubex = nomrad*2 + jawthick*2;
40 cube0y = -basethick-nomrad*2-toothheight;
41 centrey = -basethick-nomrad;
43 translate([-cubex/2, cube0y, 0])
44 cube([cubex, -cube0y+baseextend, h]);
45 translate([0, centrey, -1])
46 cylinder($fn=20, r=nomrad, h=h+2);
47 translate([-toothgap/2, cube0y-1, -1])
48 cube([toothgap, toothheight+nomrad+1, h+2]);
52 module DoveClipPair(baseextend=1, h=7) {
53 delta = nomrad*2 + jawthick*2 + toothgap;
54 for (x=[-delta/2,delta/2])
56 DoveClipEnd(baseextend=baseextend, h=h);
59 module DoveClipPairBase(baseextend=0.1, h=7, count=2) {
60 delta = nomrad*2 + jawthick;
61 intrude = nomrad + basethick - basepinclear;
63 translate([(i - (count-1)/2) * delta, 0, 0])
64 DoveClipEnd(baseextend=baseextend, h=h);
66 translate([-delta * count/2, -intrude, 0])
67 cube([delta * count, intrude+0.1, h]);
70 module DoveClipPairSane(baseextend=0, h=7, count=2) {
72 translate([0, DoveClip_depth(), 0])
73 DoveClipPairBase(baseextend=baseextend, h=h, count=count);
76 function DoveClipPairSane_width(count=2) =
77 2 * (nomrad + jawthick + ((nomrad*2 + jawthick) * (count-1)/2));