#debug "\nCreation de l'Etagere .......\n"
#declare Z_Position = Z_Piece / 1.75;
#declare X_Position = 0;


#declare V_Decoupe =
union{
   box{<0, - E_Decoupe,0>,<H_Lar_Etagere / 4 + E_Decoupe,E_Etagere + E_Decoupe * 2,E_Etagere> texture{Tex_Invisible}}
   box{<V_Lar_Etagere - H_Lar_Etagere / 4 - E_Decoupe, - E_Decoupe,0>,<V_Lar_Etagere,E_Etagere + E_Decoupe * 2,E_Etagere> texture{Tex_Invisible}}
     }

#declare V_Etagere =
union{
   difference{
      box{<0,0,0>,<V_Lar_Etagere,V_Lon_Etagere,E_Etagere> texture{Tex_Etagere scale <1,4,1> rotate<-90,90,>}}
      union{
         object{V_Decoupe translate<0,Bord_Etagere - E_Decoupe,0>}
         object{V_Decoupe translate<0,Bord_Etagere * 5 + E_Etagere - E_Decoupe,0>}
         object{V_Decoupe translate<0,V_Lon_Etagere - Bord_Etagere - E_Etagere - E_Decoupe,0>}
           }
             }
   difference{
      box{<V_Lar_Etagere + Joint_Etagere,0,0>,<V_Lar_Etagere * 2 + Joint_Etagere,V_Lon_Etagere,E_Etagere> texture{Tex_Etagere scale <1,5,1> rotate<90,-90,0>}}
      union{
         object{V_Decoupe translate<V_Lar_Etagere + Joint_Etagere,Bord_Etagere - E_Decoupe,0>}
         object{V_Decoupe translate<V_Lar_Etagere + Joint_Etagere,Bord_Etagere * 5 + E_Etagere - E_Decoupe,0>}
         object{V_Decoupe translate<V_Lar_Etagere + Joint_Etagere,V_Lon_Etagere - Bord_Etagere - E_Etagere - E_Decoupe,0>}
           }
             }
     }


#declare H_Etagere =
union{
   difference{
      box{<0,0,0>,<H_Lar_Etagere / 2 + 0.01,E_Etagere,H_Lon_Etagere> texture{Tex_Etagere scale<3.5,1,1> rotate -0.05 * y}}
      union{
         box{<H_Lar_Etagere / 4 - E_Decoupe,-E_Decoupe,Bord_Etagere - E_Decoupe>,<H_Lar_Etagere / 2,E_Etagere + E_Decoupe * 2,Bord_Etagere + E_Etagere + E_Decoupe> texture{Tex_Invisible rotate 2 * y}}
         box{<H_Lar_Etagere / 4 - E_Decoupe,-E_Decoupe,H_Lon_Etagere - Bord_Etagere + E_Decoupe>,<H_Lar_Etagere / 2,E_Etagere + E_Decoupe * 2,H_Lon_Etagere - Bord_Etagere - E_Etagere - E_Decoupe> texture{Tex_Invisible}}
           }
             }
   difference{
      box{<H_Lar_Etagere / 2 + Joint_Etagere,0,0>,<H_Lar_Etagere / 2 + Joint_Etagere + H_Lar_Etagere + 0.01,E_Etagere,H_Lon_Etagere> texture{Tex_Etagere scale<3,1,1> rotate 180 * y}}
      union{
         box{<H_Lar_Etagere / 2 + Joint_Etagere - E_Decoupe,-E_Decoupe,Bord_Etagere - E_Decoupe>,<H_Lar_Etagere / 2 + Joint_Etagere + H_Lar_Etagere / 4 + E_Decoupe,E_Etagere + E_Decoupe * 2,Bord_Etagere + E_Etagere + E_Decoupe> texture{Tex_Invisible}}
         box{<H_Lar_Etagere / 2 + Joint_Etagere + H_Lar_Etagere - H_Lar_Etagere / 4 - E_Decoupe,-E_Decoupe,Bord_Etagere - E_Decoupe>,<H_Lar_Etagere / 2 + Joint_Etagere + H_Lar_Etagere,E_Etagere + E_Decoupe * 2,Bord_Etagere + E_Etagere + E_Decoupe> texture{Tex_Invisible}}
         box{<H_Lar_Etagere / 2 + Joint_Etagere - E_Decoupe,-E_Decoupe,H_Lon_Etagere - Bord_Etagere + E_Decoupe>,<H_Lar_Etagere / 2 + Joint_Etagere + H_Lar_Etagere / 4 + E_Decoupe,E_Etagere + E_Decoupe * 2,H_Lon_Etagere - Bord_Etagere - E_Etagere - E_Decoupe> texture{Tex_Invisible}}
         box{<H_Lar_Etagere / 2 + Joint_Etagere + H_Lar_Etagere - H_Lar_Etagere / 4 - E_Decoupe,-E_Decoupe,H_Lon_Etagere - Bord_Etagere + E_Decoupe>,<H_Lar_Etagere / 2 + Joint_Etagere + H_Lar_Etagere,E_Etagere + E_Decoupe * 2,H_Lon_Etagere - Bord_Etagere - E_Etagere - E_Decoupe> texture{Tex_Invisible}}
           }
             }

   difference{
      box{<H_Lar_Etagere / 2 + Joint_Etagere  * 2 + H_Lar_Etagere,0,0>,<H_Lar_Etagere * 2 + Joint_Etagere * 2 + 0.01,E_Etagere,H_Lon_Etagere> texture{Tex_Etagere scale<3.5,1,1> rotate 0 * y}}
      union{
         box{<H_Lar_Etagere / 2 + Joint_Etagere  * 2 + H_Lar_Etagere,-E_Decoupe,Bord_Etagere - E_Decoupe>,<H_Lar_Etagere / 2 + Joint_Etagere  * 2 + H_Lar_Etagere + H_Lar_Etagere / 4 + E_Decoupe,E_Etagere + E_Decoupe * 2,Bord_Etagere + E_Etagere + E_Decoupe> texture{Tex_Invisible}}

         box{<H_Lar_Etagere / 2 + Joint_Etagere  * 2 + H_Lar_Etagere,-E_Decoupe,H_Lon_Etagere - Bord_Etagere + E_Decoupe>,<H_Lar_Etagere / 2 + Joint_Etagere  * 2 + H_Lar_Etagere + H_Lar_Etagere / 4 + E_Decoupe,E_Etagere + E_Decoupe * 2,H_Lon_Etagere - Bord_Etagere - E_Etagere - E_Decoupe> texture{Tex_Invisible}}

           }
             }
     }


#declare Etagere =
union{
   object{V_Etagere translate <X_Position,Haut_Etagere,Z_Position + Bord_Etagere>}
   object{V_Etagere translate <X_Position,Haut_Etagere,Z_Position + H_Lon_Etagere - Bord_Etagere - E_Etagere>}
   object{H_Etagere translate <X_Position,Haut_Etagere + Bord_Etagere,Z_Position>}
   object{H_Etagere translate <X_Position,Haut_Etagere + V_Lon_Etagere / 2 - E_Etagere / 2,Z_Position>}
   object{H_Etagere translate <X_Position,Haut_Etagere + V_Lon_Etagere - Bord_Etagere - E_Etagere,Z_Position>}
     }
