4 spoolinnerrad = 39.8 / 2;
5 spoolouterrad = spoolinnerrad + 61.5;
7 include <doveclip.scad>
22 hubbasestalkwidth = 4;
25 hubbaserad = spoolinnerrad + 10;
26 hubmainrad = spoolinnerrad - spoolradslop;
33 plugwmax = plugwmin + plugh * plugslope * 2;
42 topblockbasedepth = 5;
51 pinstraightlen = 30-pintaperlen;
53 spoolouterpad = AxlePin_holerad()*2 * 1.5;
54 spoolbarlen = spoolwidth +
55 2*(Washer_thick() + hubbasethick + AxlePin_holerad()
56 + spoolinnerslop + spoolouterpad);
58 axlepin_x = spoolwidth/2 + hubbasethick +
59 Washer_thick() + spoolinnerslop + AxlePin_holerad()*0.5;
61 trestleheight = spoolouterrad + spoolradclear - barz;
62 trestlebase = trestleheight * 1.2;
70 bdx = dw / cos(a) + bdy * plugslope;
72 tdx = bdx + tdy * plugslope;
73 translate([-d,0,0]) rotate([90,0,90]) linear_extrude(height=plugl+0.1+d*2){
74 polygon([[-(plugwmin/2 + bdx), bdy],
75 [-(plugwmax/2 + tdx), plugh + tdy],
76 [+(plugwmax/2 + tdx), plugh + tdy],
77 [+(plugwmin/2 + bdx), bdy]]);
81 module Bar(){ ////toplevel
83 biggestw = spoolw + 50;
88 translate([spoolw/2, 0, 0])
90 translate([-1, -50, -50])
91 cube([spoolw/2+1.1, 100, 100]);
95 translate([-biggestw/2, -50, 0])
96 cube([biggestw, 100, 100]);
99 translate([axlepin_x, 0, -50])
100 cylinder(r=AxlePin_holerad(), 100, $fn=15);
103 translate([0,0,barz]) {
104 translate([-100,0,0])
105 rotate([0,90,0]) cylinder(r=axlerad, h=200, $fn=60);
110 module FtAxlePin(){ ////toplevel
111 AxlePin(axlerad, (axlerad + barwasherrad*2)/3 * 2);
114 module AxleWasher(){ ////toplevel
115 Washer(axlerad, barwasherrad);
118 module Trestle(){ ////toplevel
119 legang = atan2(trestlebase/2, trestleheight);
120 eplen = sqrt(trestleheight*trestleheight + trestlebase*trestlebase*0.25);
121 topblockw = plugwmax + trestleplugd*2 + topblockthick*2;
123 pinholebasew = pinbasew + pindwidth*2;
124 pinholeh = pinmaxh + pindh;
130 rotate([0,0, -90-legang])
131 ExtenderPillars(length=eplen+trestlelegw,
136 translate([-trestlebase/2, -trestleheight, 0])
137 cylinder(r=trestlelegw/2*1.2, h=trestlefoot);
140 translate([-topblockw/2, -topblockbasedepth, 0])
142 topblockbasedepth + plugh + topblockthick
143 + (pinmaxh - pinminh)*0.5,
146 translate([-trestlebase/2, -trestleheight, 0])
147 ExtenderPillars(length=trestlebase, width=trestlebaseh*2, height=legw);
149 translate([-300, -trestleheight-50, -1])
153 Plug(d=trestleplugd);
156 translate([0,0,plugl/2]) rotate([0,rot,0]) translate([0,0,-plugl/2]) {
158 plugh - (pinmaxh - pinminh)*1.00,
159 (plugl - pinholebasew*2)/3]) {
160 translate([-(topblockw*0.25+1), 0, pinholebasew/2])
161 rotate([-90,0,0]) %Pin();
162 translate([-(topblockw+1), 0, 0]) {
164 linear_extrude(height = topblockw*2.0+2) {
165 polygon([[-1.0 * pinholebasew, -0.01],
166 [-0.5 * pinholebasew, pinholeh],
177 module Pin(){ ////toplevel
182 linear_extrude(height=0.1) {
185 [pinbasew*0.5*(pinminh/pinmaxh), 0]]);
187 translate([0,0,pintaperlen])
188 linear_extrude(height=pinstraightlen) {
199 module HubEnd(){ ////toplevel
200 thick = hubmainthick+hubbasethick;
203 for (ang=[0 : 60 : 359]) {
205 translate([hubmainrad - hubwalls/2, -hubbasestalkwidth/2, 0])
206 cube([hubbaserad - (hubmainrad - hubwalls/2),
207 hubbasestalkwidth, hubbasethick]);
208 ExtenderPillar(length = hubmainrad-hubwalls/2,
209 height = hubbasethick + hubmainthick,
210 pillarw = hubpillarw);
213 cylinder(r=axlerad+hubwalls, h=thick);
214 cylinder(r=hubmainrad-0.1, h=hubbaseweb);
216 cylinder(r=hubmainrad, h=thick, $fn=100);
218 cylinder(r=hubmainrad-hubwalls, h=thick+2);
221 cylinder(r=hubbaserad, h=hubbasethick, $fn=50);
223 cylinder(r=hubbaserad-hubwalls, h=hubbasethick+2);
227 cylinder(r=axlerad+axleslop, h=thick+2, $fn=50);
232 module TestKit(){ ////toplevel
233 translate([60,0,0]) mirror([1,0,0]) Pin();
234 translate([60,15,0]) mirror([1,0,0]) Pin();
235 translate([0,40,0]) intersection(){
237 translate([-50,-10,-1]) cube([100,100,100]);
240 translate([-60,10,0]) Bar();
241 cube(50,center=true);
243 %translate([50,40, AxlePin_zoffset()]) FtAxlePin();
244 %translate([0,-20,0]) AxleWasher();
248 rotate([0,90,0]) translate([0,0,-spoolwidth/2])
250 cylinder(r=spoolouterrad, h=spoolwidth);
251 translate([0,0,-1]) cylinder(r=spoolinnerrad, h=spoolwidth+2);
255 module Demo(){ ////toplevel
259 color("red") translate([spoolbarlen/2,0,0])
260 rotate([90,0,90]) Trestle();
262 translate([spoolwidth/2 + hubbasethick + spoolinnerslop*2/3, 0, barz])
263 rotate([0,90,0]) AxleWasher();
264 color("orange") translate([axlepin_x, 0, barz])
265 rotate([90,0,90]) FtAxlePin();
267 translate([spoolwidth/2 + hubbasethick + spoolinnerslop*1/3, 0, barz])
268 rotate([0,-90,0]) HubEnd();
271 %translate([0,0,barz]) DemoSpool();
281 //ExtenderPillars(80,12,8, baseweb=true);