// -*- C -*-

fdia=2.85;
lightduty=false;

slop=0.5;
bigslop=slop*2;

function selsz(sm,lt,lg) = fdia < 2 ? sm : lightduty ? lt : lg;
function usedove() = selsz(true,false,false);

num_arms = selsz(3,4,4);

exteffrad = 70;
hubeffrad = selsz(30, 40, 40);
hubbigrad = selsz(20, 38, 38);
hublwidth = selsz(3, 4, 4);
hubstemwidth = 2;
hublthick = 10;
hubaxlerad = selsz(5, 28/2, 28/2);
totalheightfromtower = 240;
axletowerfudgebend = 0;
axleaxlefudgebend = 3;
axlepadlen = 1.0;

armend_length = 120;

prongthick=selsz(5,5,5);
prongwidth=selsz(5,5,5);
prongribwidth=3;
prongribheight=selsz(0,4,4);
ratchetstep=15;
ratchettooth=3;
ratchettoothheight=5;
ratchettoothsmoothr=1;
ratchettoothslope=0.75;
overlap=0.5;
cupwidth=selsz(40,50,50);
cupheight=selsz(55,55,55);

cupstrong_dx=selsz(0,-10,-10);

propxshift = -6;

doveclipheight = 10;

teethh=3;
teethgapx=4+fdia;

prongstalkxwidth=3;

stalklength=selsz(35,55,55);
overclipcupgap=5;
overclipdepth=15;
overcliproundr=2.0;
overclipthick=1.0;
overclipcupnextgap=selsz(20,20,20);

hubaxlelen = selsz(25, 87.5, 87.5);
echo(hubaxlelen);

overclipsmaller=-2.5;
overclipbigger=0.0;

wingspoke=2.5;
wingsize=6;
wingthick=3;

armendwallthick=selsz(2.5, 2.5, 2.5);
armendbasethick=selsz(1.2, 1.2, 1.2);

axlehorizoffset = 12.5;
axlevertheight = 100;
towercliph = 16;
towerclipcount = 3;
towerpillarw = 5;

axlepinrad = 2;
axlepintabrad = 5;

washerthick = 1.2;
washerthinthick = 0.8;
washerverythinthick = 0.4;
washerrad = hubaxlerad + 7.5;
frictionwasherarmwidth = 3;
frictionwasherextrapush = 1.0;

ratchetpawl=ratchetstep-ratchettooth-bigslop*2;

nondove_armhole_x = 32;
nondove_armhole_hole = 4 + 0.8;
nondove_armhole_support = 7;
nondove_armhole_wall = 3.2;
nondove_armhole_slop = 0.5;
nondove_armhole_slop_x = 0.5;

nondove_armbase = nondove_armhole_x + nondove_armhole_hole/2 +
  nondove_armhole_support;
echo(nondove_armbase);

include <doveclip.scad>
include <cliphook.scad>
include <filamentteeth.scad>
include <axlepin.scad>

channelwidth = prongthick + slop;
channeldepth = prongwidth + ratchettoothheight;
totalwidth = armendwallthick*2 + channelwidth;
totalheight = channeldepth + armendbasethick;
stalkwidth = prongwidth + prongstalkxwidth;

module ArmEnd(length=armend_length){ ////toplevel
  if (usedove()) {
    translate([ratchettoothsmoothr, channelwidth/2, -armendbasethick]) {
      rotate([0,0,-90])
	DoveClipPairBase(h=doveclipheight);
    }
  } else {
    difference(){
      translate([1, -armendwallthick, -armendbasethick])
	mirror([1,0,0])
	cube([nondove_armbase+1, totalwidth, totalheight]);
      translate([-nondove_armbase + nondove_armhole_x,
		 -armendwallthick + totalwidth/2,
		 -armendbasethick -1])
	cylinder(r= nondove_armhole_hole/2, h=totalheight+2, $fn=10);
    }
  }

  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);
      multmatrix([	[	1, 0, ratchettoothslope, 0	],
			[	0,	1,	0,	0	],
			[	0,	0,	1,	0	],
			[	0,	0,	0,	1	]])
	cube([ratchettooth - ratchettoothsmoothr*2,
	      channelwidth, ratchettoothheight - ratchettoothsmoothr]);
    }
  }
}

module FilamentCupHandle(){
  pawlusewidth = ratchetpawl-ratchettoothsmoothr*2;
  mirror([0,1,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,	1,	0,	0	],
			[	0,	0,	1,	0	],
			[	0,	0,	0,	1	]])
	  cube([pawlusewidth,
		ratchettoothheight - ratchettoothsmoothr,
		prongthick - 1]);
      }
    }
  }
}

module FilamentCupCup(){
  for (my=[0,1]) mirror([0,my,0]) {
    translate([0, cupwidth/2, 0])
      cube([cupheight + prongwidth, prongwidth, prongthick]);
  }
}

module FilamentCup() { ////toplevel
  FilamentCupHandle();

  gapy = prongwidth;
  dy = cupwidth/2 + gapy + overclipcupgap;
  baselen = dy+cupwidth/2;

  translate([0, dy, 0])
    FilamentCupCup();
  cube([prongwidth, baselen+1, prongthick]);

  translate([cupstrong_dx, prongwidth, 0]) {
    cube([prongwidth, baselen-prongwidth, prongthick]);
    for (y = [0, .33, .67, 1])
      translate([0, (baselen - prongwidth) * y, 0])
	cube([-cupstrong_dx + 1, prongwidth, prongthick]);
  }
  if (cupstrong_dx != 0) {
    rotate([0,0,45])
      translate([-prongwidth*.55, -prongwidth*2.1, 0])
      cube([prongwidth*(2.65), prongwidth*4.2, prongthick]);
  }

  translate([0, -0.2, 0])
    cube([prongribwidth, baselen, prongthick + prongribheight]);

  if (prongribheight > 0) {
    translate([-prongwidth, baselen, 0])
      cube([cupheight/2, prongwidth + prongribheight, prongribwidth]);
  }

  midrad = cupwidth/2 + prongwidth/2;

  propshift = stalklength - overclipdepth - prongthick + propxshift;
  proptaken = propshift;
  echo(midrad, propshift, proptaken);

  translate([propshift, -1, 0]) {
    // something is wrong with the y calculation
    cube([prongwidth,
	  gapy+2,
	  prongthick]);
  }
  for (y = [overclipcupgap, overclipcupgap+overclipcupnextgap]) {
    translate([cupstrong_dx, y + prongwidth, 0])
      rotate([0,0, 102 + fdia])
      FilamentTeeth(fdia=fdia, h=teethh);
  }
  for (x = [-0.3, -1.3]) {
    translate([cupheight + overclipcupnextgap*x, baselen + prongwidth, 0])
      rotate([0,0, 12 + 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(){ ////toplevel
  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([-wingsize/2, -wingswidth/2, 0])
	cube([wingsize, wingswidth, wingthick]);
    }
    translate([0,0,-0.1])
      CupSecuringClipSolidSmooth(xrad=0, xdepth=0.2);
  }
}

module ArmDoveClipPin(){ ////toplevel
  DoveClipPin(h=doveclipheight);
}

module TowerDoveClipPin(){ ////toplevel
  DoveClipPin(h=towercliph/2);
}

module Hub(){ ////toplevel
  axlerad = hubaxlerad + slop;
  xmin = axlerad+hublwidth/2;
  xmax = hubbigrad-hublwidth/2;
  hole = hubeffrad - hubbigrad - DoveClip_depth() - hublwidth*2;
  holewidth = DoveClipPairSane_width() - hubstemwidth*2;
  nondove_allwidth = nondove_armhole_wall*2 + totalwidth;
  difference(){
    union(){
      difference(){
	cylinder($fn=60, h=hublthick, r=hubbigrad);
	translate([0,0,-1])
	  cylinder($fn=30, h=hublthick+2, r=(hubbigrad-hublwidth));
      }
      cylinder(h=hubaxlelen, r=axlerad+hublwidth);
      for (ang=[0 : 360/num_arms : 359])
	rotate([0,0,ang]) {
	  difference() {
	    if (usedove()){
	      translate([hubeffrad,0,0])
		DoveClipPairSane(h=doveclipheight,
				 baseextend = (hubeffrad - DoveClip_depth()
					       - hubbigrad + hublwidth));
	      if (hole>hublwidth && holewidth > 2) {
		translate([hubbigrad + hublwidth, -holewidth/2, -1])
		  cube([hole, holewidth, hublthick+2]);
	      }
	    } else {
	      difference(){
		translate([0,
			   -nondove_allwidth/2,
			   0])
		  cube([hubeffrad + nondove_armhole_x
			+ nondove_armhole_hole/2 + nondove_armhole_support,
			nondove_allwidth,
			nondove_armhole_wall + totalheight]);
		translate([hubeffrad - nondove_armhole_slop_x,
			   -nondove_allwidth/2
			   + nondove_armhole_wall - nondove_armhole_slop,
			   nondove_armhole_wall])
		  cube([nondove_armhole_x + 50,
			totalwidth + nondove_armhole_slop*2,
			totalheight + 1]);
		translate([hubeffrad + nondove_armhole_x, 0, -20])
		   cylinder(r= nondove_armhole_hole/2, h=50, $fn=10);
	      }
	    }
	  }
	}
      for (ang = [0 : 180/num_arms : 359])
	rotate([0,0,ang]) rotate([90,0,0]) {
	  translate([0,0,-hublwidth/2])
	    linear_extrude(height=hublwidth)
	    polygon([[xmin,0.05], [xmax,0.05],
		     [xmax,hublthick-0.2], [xmin, hubaxlelen-0.2]]);
	}
    }
    translate([0,0,-1]) cylinder($fn=60, h=hubaxlelen+2, r=axlerad);
  }
}

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([cupheight + prongthick*3,
	     cupwidth/2*1.7,
	     0])
    rotate([0,0,180]) FilamentCup();
}

//ArmEnd();
//FilamentCup();
//FilamentCupPair();
//CupSecuringClip();
//Hub();
//ArmExtender();
//Axle();
//AxleWasher();
//AxlePin();
//AxleFrictionWasher();