+module ArmExtender(){ ////toplevel
+ DoveClipExtender(length=exteffrad-hubeffrad,
+ ha=doveclipheight,
+ hb=doveclipheight);
+}
+
+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([xstraight + cupbigrad + prongthick*3,
+ cupbigrad*1.7,
+ 0])
+ rotate([0,0,180]) FilamentCup();
+}
+