bishop_head.scad

module bishop_head(head_ratio, neck_radius) {
  translate([0, 0, neck_radius])
    difference() {
      // the bishop head with a dollop on top
      union() {
        teardrop(head_ratio, neck_radius)
          translate([0, 0, -neck_radius / 3]) sphere(neck_radius / 3);
      }

      // the bishop slot
      rotate(a = -45, v=[0, 1, 0]) 
        translate([neck_radius / 4, -neck_radius, 0]) 
          cube([neck_radius * 2, neck_radius * 2, neck_radius / 4]);
    }
}