/* Esquinas para el metacrilato de 3mm angulo de 90º*/

RadioPieza90=20;
RadioPieza45=22.5;
RadioTaladro=3.7/2;
x90=2;
y90=5;

x45=17.3;
y45=14.5;

esquina90();
translate ([70,0,0])		rotate ([0, 0, 135])		esquina45();
translate([0, -10,0])
	mirror ([0,1,0])
	{
		esquina90();
		translate ([70,0,0])		rotate ([0, 0, 135])		esquina45();
	}

module esquina90()
{
	difference()
	{
		union ()
		{
			intersection ()
			{
				cube ([RadioPieza90, RadioPieza90, 2.75]);
				cylinder (r=RadioPieza90, h=2.75, $fn=50);
			}
			intersection ()
			{
				translate ([-3,-3,-2.1])		cube ([RadioPieza90+4, RadioPieza90+4, 3]);
				translate ([0,0,-2])	cylinder (r=RadioPieza90, h=2, $fn=50);
			}
		}		
		translate([x90, y90, -2.1])		cylinder(r=RadioTaladro, h=6, $fn=25);
	}
}

module esquina45()
{
	difference()
	{
		difference()
		{
			union()
			{
				intersection()
				{
					rotate ([0, 0, -45])	cube([45, 45, 2.75]);
					translate ([15.9, 15.9, 0])	cylinder(r=RadioPieza45,h=2.75, $fn=50);
				}
				intersection()
				{
					translate ([-sqrt(4.5), sqrt(4.5), -2.1])rotate ([0, 0, -45])	cube([45, 45,3]);
					translate ([15.9, 15.9, -2])	cylinder(r=RadioPieza45,h=2, $fn=50);
				}
			}
			translate ([x45, y45, -2.1])	cylinder(r=RadioTaladro, h=5, $fn=25);
		}
	}
}