#debug "\nCreation du Bougeoir ........\n"
#declare X_Position    = 200;//200
#declare Z_Position    = 800;//820


#declare Chandelier=
union{
   cylinder{<0,1,0>,<0,1.1,0>,Dia_Chandelier}
   sor{20
      <12, 0>,<15, 0>,<15,1.5>,
      <14, 2.5>,<12.5, 3.5>,
      <7.5, 4.5>,< 4,9>,
      < 2.5,11>,
      < 2.5,36>,< 2.5,38>,
      < 4, 45>,<3,47>
      <4,48>,< 3,49>,<4,51>,
      <3,53>,
      <2.5,55>,<2.5,60>,<5,Hau_Chandelier>,<5,Hau_Chandelier>
      sturm
   }
   intersection {
      sphere{<0,Hau_Chandelier + Dia_Bougie * 1.2,0>,Dia_Bougie * 1.2}
      sphere{<0,Hau_Chandelier + Dia_Bougie * 1.1,0>,Dia_Bougie * 1.1 inverse}
      plane { y, 0 translate<0,Hau_Chandelier + Dia_Bougie * 0.8,0>}
                }
   texture{Tex_Chandelier}
        }


#declare Bougie=
   intersection{
      sphere{<0,Hau_Chandelier + Dia_Bougie * 1.1,0>,Dia_Bougie}
      sphere{<0,Hau_Chandelier + Dia_Bougie * 2,0>,Dia_Bougie / 3 inverse}
       texture{Tex_Bougie}
               }


#declare Meche=
   union{
      cylinder{<0,Hau_Chandelier + Dia_Bougie * 1.8,0>,<0,Hau_Chandelier + Dia_Bougie * 2,0>,0.5 texture{Tex_Blanche}}
      cylinder{<0,Hau_Chandelier + Dia_Bougie * 2,0>,<0,Hau_Chandelier + Dia_Bougie * 2.35,0>,0.5 texture{Tex_Noire}}
        }

#declare Flamme=
object {
   sphere{<0,0,0>,2}
   rotate -90 * z
   scale <1.2,2.5,1.2>
   translate <0,Hau_Chandelier + Dia_Bougie * 2.35,0>
   texture{Tex_Flamme}
       }


#declare Bougeoir=
union{
   object{Chandelier}
   object{Bougie}
   object{Meche translate 1.5*y}
   object{Flamme translate 1.5*y}
translate<X_Position,Haut_Gueridon,Z_Position>
        }
