// Support pour seche cheveux
//
//	(C) 2015 E.Chamouard
//	(Libre de droits pour utilisation non commerciale et à vos propres risques)
//

// Objectif : pouvoir accrocher un sèche cheveux sur une surface verticale
//
// On définit :
//		- la taille du support de soutien (idem que sur le porte support standard), 

// Parametres
hsupport=30;			// Hauteur du support
lsupport=70;			// Largeur du support
esupport=5;				// Epaisseur du support
henclenc=5;				// debordement en hauteur du support

dmin=74;					// Diametre intérieur bas (une fois monté donc haut ici)
dmax=78;					// Diametre intérieur haut (idem)
corx=82/74;				// facteur de dilatation en x si seche cheveux ovoide
emurs=5;					// Epaisseur des murs

deport=10;				// Deport du porte serviette vers l'avant (0=tangeant au support)

ecart=40;				// Ecartement entre les raccord support/porte seche cheveux

difference()
{
	union()
	{
		translate([-lsupport/2, -esupport, 0])
			cube([lsupport,esupport, hsupport], center=false);
		scale([corx, 1, 1])
			translate([0, -(dmax+2*emurs)/2-deport-esupport, 0])
				cylinder(h=hsupport-henclenc, r1=(dmax+2*emurs)/2, r2=(dmin+2*emurs)/2, $fa=6);
		translate([-emurs/2+ecart/2, -esupport-deport-dmax/2, 0])
			cube([emurs, esupport+deport+dmax/2, hsupport-henclenc], center=false);
		translate([-emurs/2-ecart/2, -esupport-deport-dmax/2, 0])
			cube([emurs, esupport+deport+dmax/2, hsupport-henclenc], center=false);
 	}
	union()
	{
		scale([corx, 1, 1])
			translate([0, -(dmax+2*emurs)/2-deport-esupport, -.1])
				cylinder(h=hsupport-henclenc+.2, r1=dmax/2, r2=dmin/2, $fa=6);
	}
}