10 ratchettoothsmoothr=1;
11 ratchettoothslope=0.75;
22 ratchetpawl=ratchetstep-ratchettooth-bigslop*2;
24 include <doveclip.scad>
25 include <cliphook.scad>
27 channelwidth = prongthick + slop;
28 channeldepth = prongwidth + ratchettoothheight;
29 totalwidth = armendwallthick*2 + channelwidth;
30 totalheight = channeldepth + armendbasethick;
32 doveclipheight = totalheight;
34 module ArmEnd(length=120){
35 translate([ratchettoothsmoothr, channelwidth/2, -armendbasethick]) {
37 DoveClipPairBase(h=doveclipheight);
41 translate([0, -armendwallthick, -armendbasethick])
42 cube([length, totalwidth, totalheight]);
44 cube([length+2, channelwidth, channeldepth+1]);
46 for (dx = [0 : ratchetstep : length - stalklength]) translate([dx,0,0]) {
47 translate([ratchettoothsmoothr+0.5, armendwallthick/2, 0]) minkowski(){
49 cylinder($fn=20, r=ratchettoothsmoothr, h=armendwallthick);
50 multmatrix([ [ 1, 0, ratchettoothslope, 0 ],
54 cube([ratchettooth - ratchettoothsmoothr*2,
55 channelwidth, ratchettoothheight]);
60 module FilamentCupHandle(){
61 pawlusewidth = ratchetpawl-ratchettoothsmoothr*2;
63 cube([stalklength, prongwidth, prongthick]);
64 translate([stalklength, prongwidth/2, 0])
65 cylinder(r=prongwidth/2, h=prongthick, $fn=20);
66 translate([ratchettoothsmoothr, prongwidth, 0]) {
68 cylinder($fn=20,r=ratchettoothsmoothr, h=1);
69 multmatrix([ [ 1, -ratchettoothslope, 0, 0 ],
74 ratchettoothheight - ratchettoothsmoothr,
81 module FilamentCupCup(){
82 xstraight = cupbigrad;
83 linear_extrude(height=prongthick) {
84 FlatArc(0,0, cupbigrad,cupbigrad+prongwidth, 89,271, $fn=80);
86 for (my=[0,1]) mirror([0,my,0]) {
87 translate([0,cupbigrad,0])
88 cube([xstraight, prongwidth, prongthick]);
92 module FilamentCup() {
95 dx = cupbigrad + prongwidth;
96 dy = cupbigrad + prongwidth + overclipcupgap;
98 translate([dx, dy, 0])
100 translate([0, -1, 0]);
101 cube([prongwidth, dy+1, prongthick]);
103 propshift = stalklength - overclipheight - prongthick;
104 proptaken = propshift + prongthick;
105 echo(cupbigrad, dx, propshift, proptaken);
107 translate([propshift, -1, 0])
109 sqrt(cupbigrad*cupbigrad - proptaken*proptaken)
110 + overclipcupgap + prongthick + 1,