// -*- C -*-

arm_depth = 25;
arm_pindepth = (16.15 + 18.00)/2;
arm_innerwidth = 9.60 - 0.50;
arm_innerheight = 8.90 - 0.50;

armpart_hex_rad = 15;
armpart_hex_thick = 8;

hingepin_dia = 3;

headpart_main_dia = 15 - 0.3;
headpart_main_len = 14;
headpart_stub_protrude = 2;
headpart_stub_width = 11.7 - 0.3;

headpart_flatten_angle = 45;

// computed

armpart_x_unit = armpart_hex_rad * tan(30);
headpart_flatten_z = headpart_main_dia/2 * cos(headpart_flatten_angle);
headpart_stub_support_x = headpart_stub_width * cos(59) / 2;
headpart_stub_len = headpart_stub_protrude + headpart_main_dia/2;

module ArmPart(){ ////toplevel
  translate([-arm_innerwidth/2, 1, 0])
    mirror([0,-1,0])
    cube([arm_innerwidth, arm_depth+1, arm_innerheight]);
  rotate([90,0,180])
    linear_extrude(height=armpart_hex_thick)
    for (mir=[0,1])
      mirror([mir,0,0])
	difference(){
	  polygon([[-1, 0],
		   [armpart_x_unit, 0],
		   [armpart_x_unit*2, armpart_hex_rad],
		   [armpart_x_unit, armpart_hex_rad*2],
		   [-1, armpart_hex_rad*2]]);
	  translate([0,armpart_hex_rad])
	    circle(hingepin_dia/2, $fn=20);
        }
}

module HeadPart(){ ////toplevel
  difference(){
    union(){
      translate([-headpart_main_len/2, 0,0])
	rotate([0,90,0])
	cylinder(r=headpart_main_dia/2, h=headpart_main_len, $fn=40);
      rotate([90,0,0])
	cylinder(h = headpart_stub_len,
		 r = headpart_stub_width/2,
		 $fn = 6);
      translate([-headpart_stub_support_x,
		 -headpart_stub_len,
		 -headpart_main_dia/2])
	cube([headpart_stub_support_x*2,
	      headpart_stub_len,
	      headpart_main_dia/2]);
    }
    translate([-100,-100,-100])
      cube([200,200, 100 - headpart_flatten_z]);
  }
}

//ArmPart();
HeadPart();