+// -*- C -*-
+
+fdia=1.75;
slop=0.5;
bigslop=slop*2;
ratchettoothsmoothr=1;
ratchettoothslope=0.75;
overlap=0.5;
-cupbigrad=35;
+cupbigrad=20;
+
+xstraightmul = 1.75;
+
+propxshift = 0;
+
+doveclipheight = 10;
-stalklength=50;
+teethh=3;
+teethgapx=4+fdia;
+
+prongstalkxwidth=3;
+
+stalklength=35;
overclipcupgap=5;
-overclipheight=15;
+overclipdepth=15;
+overcliproundr=2.0;
+overclipthick=0.5;
+
+wingspoke=3;
+wingsize=6;
+wingthick=3;
+
+overclipsmaller=-1.0;
+overclipbigger=2.0;
armendwallthick=2.5;
armendbasethick=1.2;
include <doveclip.scad>
include <cliphook.scad>
+include <filamentteeth.scad>
channelwidth = prongthick + slop;
channeldepth = prongwidth + ratchettoothheight;
totalwidth = armendwallthick*2 + channelwidth;
totalheight = channeldepth + armendbasethick;
-
-doveclipheight = totalheight;
+stalkwidth = prongwidth + prongstalkxwidth;
module ArmEnd(length=120){
translate([ratchettoothsmoothr, channelwidth/2, -armendbasethick]) {
DoveClipPairBase(h=doveclipheight);
}
- for (dx = [0 : ratchetstep : length]) translate([dx,0,0]) {
- difference(){
- translate([0, -armendwallthick, -armendbasethick])
- cube([ratchetstep+overlap, totalwidth, totalheight]);
- translate([-1, 0, 0])
- cube([ratchetstep+overlap+2, channelwidth, channeldepth+1]);
- }
+ difference(){
+ translate([0, -armendwallthick, -armendbasethick])
+ cube([length, totalwidth, totalheight]);
+ translate([-1, 0, 0])
+ cube([length+1 - ratchettooth, channelwidth, channeldepth+1]);
+ translate([-1, 0, ratchettoothheight])
+ cube([length+2, channelwidth, channeldepth+1]);
+ }
+ for (dx = [0 : ratchetstep : length - ratchetstep]) translate([dx,0,0]) {
translate([ratchettoothsmoothr+0.5, armendwallthick/2, 0]) minkowski(){
rotate([90,0,0])
cylinder($fn=20, r=ratchettoothsmoothr, h=armendwallthick);
}
}
-module FilamentHandle(){
+module FilamentCupHandle(){
pawlusewidth = ratchetpawl-ratchettoothsmoothr*2;
mirror([0,1,0]) {
- cube([stalklength, prongwidth, prongthick]);
- translate([stalklength, prongwidth/2, 0])
- cylinder(r=prongwidth/2, h=prongthick, $fn=20);
- translate([ratchettoothsmoothr, prongwidth, 0]) {
+ cube([stalklength, stalkwidth, prongthick]);
+ translate([stalklength, stalkwidth/2, 0])
+ cylinder(r=stalkwidth/2, h=prongthick, $fn=20);
+ translate([ratchettoothsmoothr, stalkwidth, 0]) {
minkowski(){
cylinder($fn=20,r=ratchettoothsmoothr, h=1);
multmatrix([ [ 1, -ratchettoothslope, 0, 0 ],
[ 0, 0, 0, 1 ]])
cube([pawlusewidth,
ratchettoothheight - ratchettoothsmoothr,
- prongthick]);
+ prongthick - 1]);
}
}
}
}
module FilamentCupCup(){
- xstraight = cupbigrad;
+ xstraight = cupbigrad * xstraightmul;
linear_extrude(height=prongthick) {
FlatArc(0,0, cupbigrad,cupbigrad+prongwidth, 89,271, $fn=80);
}
}
module FilamentCup() {
- FilamentHandle();
+ FilamentCupHandle();
dx = cupbigrad + prongwidth;
- dy = cupbigrad + prongwidth + overclipcupgap;
+ gapy = prongwidth;
+ dy = cupbigrad + gapy + overclipcupgap;
translate([dx, dy, 0])
FilamentCupCup();
translate([0, -1, 0]);
cube([prongwidth, dy+1, prongthick]);
- propshift = stalklength - overclipheight - prongthick;
- proptaken = propshift + prongthick;
- echo(cupbigrad, dx, propshift, proptaken);
+ midrad = cupbigrad + prongwidth/2;
+
+ propshift = stalklength - overclipdepth - prongthick + propxshift;
+ proptaken = propshift;
+ echo(cupbigrad, dx, midrad, propshift, proptaken);
- translate([propshift, -1, 0])
+ translate([propshift, -1, 0]) {
+ // something is wrong with the y calculation
cube([prongwidth,
- sqrt(cupbigrad*cupbigrad - proptaken*proptaken)
- + overclipcupgap + prongthick + 1,
+ dy - sqrt(midrad*midrad - proptaken*proptaken) - prongwidth/2,
prongthick]);
+ }
+ translate([0, overclipcupgap, 0])
+ rotate([0,0, 102 + fdia])
+ FilamentTeeth(fdia=fdia, h=teethh);
+}
+
+module CupSecuringClipSolid(w,d,h1,h2){
+ rotate([0,-90,0]) translate([0,-h1/2,-w/2]) linear_extrude(height=w) {
+ polygon(points=[[0,0], [d,0], [d,h2], [0,h1]]);
+ }
+}
+
+module CupSecuringClipSolidSmooth(xrad=0, xdepth=0){
+ hbase = totalheight + prongstalkxwidth - overcliproundr*2;
+ minkowski(){
+ CupSecuringClipSolid(w=totalwidth,
+ d=overclipdepth + xdepth,
+ h1=hbase - overclipsmaller,
+ h2=hbase + overclipbigger);
+ cylinder($fn=20, h=0.01, r=overcliproundr+xrad);
+ }
+}
+
+module CupSecuringClip(){
+ wingswidth = wingspoke*2 + overclipthick*2 + overcliproundr*2 + totalwidth;
+ difference(){
+ union(){
+ CupSecuringClipSolidSmooth(xrad=overclipthick, xdepth=0);
+ translate([-wingswidth/2, -wingsize/2, 0])
+ cube([wingswidth, wingsize, wingthick]);
+ }
+ translate([0,0,-0.1])
+ CupSecuringClipSolidSmooth(xrad=0, xdepth=5);
+ }
+}
+
+module ArmDoveClipPin(){
+ DoveClipPin(h=doveclipheight);
}
//ArmEnd();
-FilamentCup();
+//FilamentCup();
+//CupSecuringClip();