include <MCAD/teardrop.scad>;

module truncated_teardrop(radius, length) {
	translate([length/2, 0, 0])
	intersection() {
		teardrop(radius, length, angle=90);

		translate([-length/2, -radius, -radius])
			cube([length, 2*radius, 2*radius]);
	}
}