/*
	Amphenol CPC 9pin Connectors
*/

include <./common/common.scad>;

PART="cpc_9pin_plugx";

PlugD = 15.75;
PlugH = 11.65;
PlugGuideD = 17;
PlugPinD = 3.1;

PlugGuideRetraction = 1.25;

PinSpacing = 3.85;

SocketD = PlugD + 0.2;
SocketGuideD = PlugGuideD + 0.2;

CollarD = 19;

GuideAngles = [0,   100, 140, 220, 260];
GuideWidths = [3.2, 1.5, 1.5, 1.5, 1.5];

function arc_angle (D, W) = W / ((PI/180) * (D/2));

module guide (Diameter, Height, Angle, Width) {
	A = arc_angle(Diameter, Width);
	echo(A);
	rotate([0, 0, Angle]) difference () {
		cylinder(r = R(Diameter), h = Height, center = true, $fn = 200);
		rotate([0, 0, -A/2]) translate([Diameter / 2, 0, 0])  cube([Diameter, Diameter * 2, Height + 1], center = true);
		rotate([0, 0, A/2]) translate([-Diameter / 2, 0, 0])  cube([Diameter, Diameter * 2, Height + 1], center = true);
	}
}

module plug_pin (X, Y, H) {
	translate([X, Y, 0]) {
		cylinder(r = R(PlugPinD), h = H, center = true, $fn = 40);
	}
}

module plug_pin_voids (PinH) {
	plug_pin(0, 0, PinH);                     //5
	plug_pin(PinSpacing, 0, PinH);            //4
	plug_pin(-PinSpacing, 0, PinH);           //6
	plug_pin(0, PinSpacing, PinH);            //2
	plug_pin(0, -PinSpacing, PinH);           //8
	plug_pin(PinSpacing, PinSpacing, PinH);   //1
	plug_pin(-PinSpacing, PinSpacing, PinH);  //3
	plug_pin(-PinSpacing, -PinSpacing, PinH); //9
	plug_pin(PinSpacing, -PinSpacing, PinH);  //7
}

module cpc_9pin_plug () {
	$fn = 200;
	PinH = PlugH + 1;
	difference () {
		union () {
			cylinder(r = R(PlugD), h = PlugH, center = true);
			translate([0, 0, -(PlugH/2)+(2/2)]) cylinder(r = R(PlugD + 2), h = 2, center = true);
			translate([0, 0, -PlugGuideRetraction/2]) {
				for (i = [0 : len(GuideAngles) - 1]) {
					guide(PlugGuideD, PlugH - PlugGuideRetraction, GuideAngles[i], GuideWidths[i]);
				}
			}
		}
		plug_pin_voids(PinH);
	}

}

module cpc_9pin_plug_collar () {
	$fn = 200;
	H = 25;

	difference () {
		union () {
			cylinder(r = R(CollarD), h = H, center = true);
		}
		cylinder(r = R(SocketD), h = H, center = true);
	}
}

module cpc_9pin_plug_back () {
	//
}

module cpc_9pin_socket () {
	$fn = 200;
	PinH = PlugH + 1;

	difference () {
		union () {
			cylinder(r = R(CollarD-1), h = PlugH, center = true);
		}
		translate([0, 0, -9]) union () {
			cylinder(r = R(SocketD), h = PlugH, center = true);
			for (i = [0 : len(GuideAngles) - 1]) {
				guide(SocketGuideD, PlugH, GuideAngles[i], GuideWidths[i] + 0.1);
			}
		}

		plug_pin_voids(PinH);
	}
}

module debug () {
	difference () {
		union () {
			cpc_9pin_plug();
			translate([0, 0, 13]) cpc_9pin_socket();
		}
		translate([25, 0, 0]) cube([50, 50, 100], center = true);
	}
}

if (PART == "cpc_9pin_plug") {
	cpc_9pin_plug();
} else if (PART == "cpc_9pin_plug_collar") {
	cpc_9pin_plug_collar();
} else if (PART == "cpc_9pin_plug_back") {
	cpc_9pin_plug_back();
} else if (PART == "cpc_9pin_socket") {
	cpc_9pin_socket();
} else {
	debug();
}