+//----- 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]);
+ }
+}
+
+
+//----- filament guide spacer -----
+
+guide_armdia = 15.0 + 0.75;
+guide_armwidth = 10.2 + 0.75;
+
+guidefilclip_outerdia = 22.8;
+
+guidespacer_prongprotrude = 4;
+guidespacer_thick = 1.6;
+guidespacer_len = 15.3 + 0.75;
+
+// calculated
+
+guidespacer_wingheight = (guidefilclip_outerdia - guide_armdia)/2;
+
+module FilamentGuideArmTemplate(extra=0){
+ intersection(){
+ circle(r= (guide_armdia/2) + extra);
+ square(center=true, [guide_armwidth+extra*2,
+ guide_armdia + extra*2 + 10]);
+ }
+}
+
+module FilamentGuideSpacerInnerTemplate(){
+ FilamentGuideArmTemplate();
+ translate([0, -guide_armdia/2])
+ square(center=true, [guide_armwidth - guidespacer_prongprotrude,
+ guide_armdia]);
+}
+
+module FilamentGuideSpacer(){ ////toplevel
+ difference(){
+ union(){
+ linear_extrude(height= guidespacer_len)
+ FilamentGuideArmTemplate(extra= guidespacer_thick);
+ for (angle=[26, 60]) {
+ for (m=[0,1]) {
+ mirror([m,0,0]) {
+ rotate([0,0,angle]) {
+ hull(){
+ for (t=[[0, guidespacer_wingheight],
+ [guidespacer_len-1, -guidespacer_wingheight]])
+ translate([0,0, t[0] + 0.5])
+ cube([guidespacer_thick, guide_armdia + t[1]*2,
+ 1],
+ center=true);
+ }
+ }
+ }
+ }
+ }
+ }
+ translate([0,0,-1])
+ linear_extrude(height= guidespacer_len+5)
+ FilamentGuideSpacerInnerTemplate();
+ }
+}
+
+