/* ENTONNOIR  ROND  OU  CARRé
---------------------------------------------------------
Paramétrable pour divers usage

 Carrefour Numérique² La Villette PARIS - avec  OpenSCAD 2015.03
   BERNARD le 05/11/2018
    
Fichier : EntonnoirPent.scad
*/

//-----       VARIABLES
Dbas=5;  // Pour carré *1.414 ; rond *0
Dhaut=Dbas*2.5;
haut=Dbas*3;
face=5;  // Pour carré=4 ; rond=>30
cote=Dbas/1.414;
echo ("Bout carré de",cote);
Htotal=haut*3.5;
echo ("Hauteur total",Htotal);

//-----      PROGRAMME

difference () {
   union() {
   cylinder (h=haut,d1=Dbas, d2=Dhaut, $fn=face);
   translate ([0,0,haut-0.1]) {
      cylinder (h=haut*2,d1=Dhaut, d2=Dhaut*5, $fn=face);
   }
}  // Fin union 
translate ([0,0,-0.1]) {
   cylinder (h=haut+0.2,d1=Dbas-1, d2=Dhaut-2 , $fn=face);  }
   translate ([0,0,haut-0.1]) {
   cylinder (h=haut*2+0.2,d1=Dhaut-2, d2=Dhaut*5-3 , $fn=face);  }
    /// cube(haut*5);  //  Pour coupe
}