+module FsAxlePin(){ ////toplevel
+ AxlePin(hubaxlerad, washerrad*2, axlepinrad, axlepintabrad, slop);
+}
+
+module Axle(){ ////toplevel
+ pillarswidth = DoveClipPairSane_width(towerclipcount);
+
+ rotate([0,0, -( axleaxlefudgebend + atan(slop/hubaxlelen) ) ])
+ translate([-axlehorizoffset, -axlevertheight, 0]) {
+ rotate([0,0,-axletowerfudgebend])
+ rotate([0,0,-90])
+ DoveClipPairSane(h=towercliph, count=towerclipcount, baseextend=3);
+ translate([0, DoveClip_depth(), 0])
+ rotate([0,0,90])
+ ExtenderPillars(axlevertheight - DoveClip_depth(),
+ pillarswidth, towercliph,
+ pillarw=towerpillarw);
+ }
+
+ axleclearlen = hubaxlelen + slop*4 + washerthick*2 + axlepadlen;
+ axlerad = hubaxlerad-slop;
+ bump = axlerad * 0.2;
+ shift = axlerad-bump;
+ joinbelowallow = 3;
+
+ intersection(){
+ translate([0, 0, shift]) {
+ difference() {
+ union(){
+ translate([-1, 0, 0])
+ rotate([0,90,0])
+ cylinder($fn=60,
+ r = axlerad,
+ h = 1 + axleclearlen + axlepinrad*2 + 2);
+ mirror([1,0,0]) rotate([0,90,0])
+ cylinder(r = axlerad*1.75, h = 3);
+ intersection(){
+ mirror([1,0,0])
+ translate([axlehorizoffset - pillarswidth/2, 0, 0])
+ rotate([0,90,0])
+ cylinder($fn=60,
+ r = towercliph - shift,
+ h = pillarswidth);
+ translate([-50, -joinbelowallow, -50])
+ cube([100, joinbelowallow+50, 100]);
+ }
+ }
+ rotate([90,0,0])
+ translate([axleclearlen + axlepinrad/2, 0, -25])
+ cylinder(r = axlepinrad + slop, h=50);
+ }
+ }
+ translate([-50,-50,0]) cube([100,100,100]);
+ }
+}
+
+module washer(thick){
+ Washer(hubaxlerad, washerrad, thick, slop);
+}
+
+module AxleWasher(){ ////toplevel
+ washer(thick=washerthick);
+}
+
+module AxleThinWasher(){ ////toplevel
+ washer(thick=washerthinthick);
+}
+
+module AxleVeryThinWasher(){ ////toplevel
+ washer(thick=washerverythinthick);
+}
+
+module AxleFrictionWasher(){ ////toplevel
+ difference(){
+ cylinder(h=washerthick, r=washerrad);
+ translate([0,0,-1]) cylinder(h=washerthick+2, r=hubaxlerad+slop);
+ }
+ frarmr = hubbigrad;
+ frarmw = frictionwasherarmwidth;
+ frarmpawlr = hublwidth;
+ frarmpawlpush = slop*4 + frictionwasherextrapush;
+ for (ang=[0,180]) rotate([0,0,ang]) {
+ translate([washerrad-1, -frarmw/2, 0])
+ cube([frarmr - washerrad + 1, frarmw, washerthick]);
+ intersection(){
+ translate([frarmr - frarmpawlr, -50, 0])
+ cube([frarmpawlr, 100, 50]);
+ rotate([0,90,0])
+ cylinder(h = 50, r = frarmpawlpush, $fn=36);
+ }
+ }
+}
+
+module TowerExtender(){ ////toplevel
+ l = totalheightfromtower - axlevertheight;
+ echo("TowerExtender",l);
+ DoveClipExtender(length = l,
+ ha = towercliph, hb = towercliph,
+ counta = towerclipcount, countb = towerclipcount,
+ pillarw = towerpillarw);
+}
+
+module FilamentCupPair(){ ////toplevel
+ FilamentCup();
+ translate([cupheight + prongthick*3,
+ cupwidth/2*1.7,
+ 0])
+ rotate([0,0,180]) FilamentCup();
+}
+
+//----- storarm -----
+
+storarm_hooklen = 8;
+storarm_hookheight = 5;
+storarm_thick = 10;
+storarm_axleslop = 4;
+
+storarm_base_w = 30;
+storarm_base_h = 100;
+storarm_base_d = 15;
+storarm_base_mind = 2;
+
+storarm_cope_hubaxle_mk1 = true;
+
+storarm_screw_hole = 4;
+storarm_screw_hole_slop = 0.5;
+storarm_besides_hole = 4;
+
+storarm_under_hole = 5;
+storarm_screw_hole_head = 8.8;
+storarm_screw_hole_head_slop = 1.5;
+
+// calculated
+
+storarm_axlerad = hubaxlerad - storarm_axleslop;
+storarm_mainlen = hubaxlelen*2 + storarm_axleslop
+ + (storarm_cope_hubaxle_mk1 ? 10 : 0);
+storarm_totlen = storarm_mainlen + storarm_hooklen;
+
+storarm_mid_off_y = storarm_axlerad;
+
+storarm_base_off_y = storarm_mid_off_y + storarm_base_h/2;
+
+module StorageArmDiagPartSide(xmin, xmax){
+ xsz = xmax-xmin;
+ yuse = storarm_thick/2;
+
+ intersection(){
+ translate([xmin-1, -storarm_axlerad, storarm_thick/2])
+ rotate([0,90,0])
+ cylinder(r=storarm_axlerad, h=xsz+2, $fn=60);
+ translate([xmin, -yuse, 0])
+ cube([xsz, yuse, storarm_thick]);
+ }
+}
+
+module StorageArmDiagPart(xmin, xmax, shear, adjbot){
+ hull(){
+ StorageArmDiagPartSide(xmin,xmax);
+
+ multmatrix([[1,0,0,0],
+ [shear,1,0,0],
+ [0,0,1,0],
+ [0,0,0,1]])
+ translate([0, -storarm_axlerad*2 + adjbot, 0])
+ mirror([0,1,0])
+ StorageArmDiagPartSide(xmin,xmax);
+ }
+}
+
+module StorageArmBaseTemplate(){
+ square([storarm_base_w, storarm_base_h]);
+}
+
+module StorageArmAtMountingHoles(){
+ bes = storarm_besides_hole + storarm_screw_hole;
+
+ x0 = bes;
+ x1 = storarm_base_w-bes;
+ y1 = storarm_base_h - bes;
+ y0 = bes;
+
+ for (pos=[ [x0, y1],
+ [x1, y1],
+ [x1, y0] ]) {
+ rotate([0,90,0])
+ translate([pos[0] - storarm_base_w,
+ pos[1] - storarm_base_off_y, -storarm_base_d])
+ children();
+ }
+}
+
+module StorageArmRight(){ ////toplevel
+ shear = storarm_hookheight / (storarm_mainlen/2);
+
+ StorageArmDiagPart(-1, storarm_mainlen/2+1, shear, 0);
+ StorageArmDiagPart(storarm_mainlen/2-1, storarm_mainlen+1, shear/2,
+ storarm_hookheight/2);
+
+ translate([0, storarm_hookheight, 0])
+ StorageArmDiagPart(storarm_mainlen, storarm_totlen,
+ shear/2, -storarm_hookheight/2);
+
+ difference(){
+ union(){
+ hull(){
+ translate([-storarm_base_d, -storarm_base_off_y, storarm_base_w])
+ rotate([0,90,0])
+ linear_extrude(height=storarm_base_mind)
+ StorageArmBaseTemplate();
+ StorageArmDiagPart(-1, 0, shear, 0);
+ }
+ StorageArmAtMountingHoles(){
+ cylinder(r= storarm_screw_hole_head/2,
+ h=10);
+ }
+ }
+ StorageArmAtMountingHoles(){
+ translate([0,0,-1])
+ cylinder(r= (storarm_screw_hole + storarm_screw_hole_slop)/2 ,
+ h=20);
+ translate([0,0,storarm_under_hole])
+ cylinder(r= (storarm_screw_hole_head + storarm_screw_hole_head_slop)/2,
+ h=20);
+ }
+ }
+}
+
+module StorageArmLeft(){ ////toplevel
+ mirror([1,0,0]) StorageArmRight();
+}
+
+module StorArmHoleTest(){ ////toplevel
+ sz = storarm_screw_hole_head + storarm_besides_hole*2;
+ intersection(){
+ StorageArmRight();
+ translate([-50, -storarm_base_off_y, -1])
+ cube([100, sz, sz+1]);
+ }
+}
+
+
+module Demo(){
+ translate([-hubeffrad-30,50,0]) Hub();
+ ArmEnd();
+ translate([0,50,0]) FilamentCup();
+}
+