//SOPORTE BOLA LOCA

//radio canica: RAD;

//altura: A;

//grueso del cilindro: G;

//altura tornillo: hto;
//radio tornillo: rto;


//altura tuerca: htu;
//radio tuerca: rtu;

bola(8.2, 25, 3, 10, 1.7, 2.7, 3.4);

module bola(RAD, A, G, hto, rto, htu, rtu)
{
	difference()
	{
		//cilindro principal
		color("red")
		cylinder(r=RAD+G, h=A-RAD/1.5,$fn=100);
	
		//hueco canica
		color("blue")
		translate([0,0,A-RAD])
		sphere(r=RAD,$fn=100);
		
		//huecos laterales
		color("lime")
		translate([0,0,A-RAD])
		{
		cube(size=[G,3*RAD,2*RAD], center=true);
		cube(size=[3*RAD,G,2*RAD], center=true);
		}
	
		//cilindro interior
		color("green")
		translate([0,0,4])
		cylinder(r=RAD/2, h=A,$fn=100);
	
		//hueco tornillo
		color("gray")
		translate([0,0,-3])
		cylinder(h =hto, r=rto,$fn=100);
	
		//hueco tuerca
		color("gray")
		translate([0,0,4-htu])
		cylinder(h =htu+1, r=rtu,$fn=6);
	}

}