

#declare Bouquin =
union{
    box{<E_Couverture,E_Couverture,E_Couverture>,<Lon_Livre - E_Dos - E_Couverture,Hau_Livre - E_Couverture,Lar_Livre - E_Couverture> texture{Tex_Livre_Papier rotate 90 * y}}
    difference{
       cylinder{<E_Dos * 6.05,E_Couverture,Lar_Livre / 2>,<E_Dos * 6.05,Hau_Livre - E_Couverture,Lar_Livre / 2>,E_Dos * 4 texture{Tex_Livre_Papier rotate 90 * y}}
       union{
          box{<0,-0.1,-Lar_Livre>,<Lon_Livre,Hau_Livre,E_Couverture> texture{Tex_Invisible}}
          box{<0,-0.1,Lar_Livre - E_Couverture>,<Lon_Livre,Hau_Livre,Lar_Livre * 2> texture{Tex_Invisible}}
            }
               }
    box{<0,0,0>,<Lon_Livre - E_Dos * 2,Hau_Livre,E_Couverture> texture{Tex_Livre_Couverture}}
    box{<0,0,Lar_Livre - E_Couverture>,<Lon_Livre - E_Dos * 2,Hau_Livre,Lar_Livre> texture{Tex_Livre_Couverture}}
    difference{
       union{
          box{<Lon_Livre - E_Dos * 2,0,0>,<Lon_Livre - E_Dos,Hau_Livre,E_Couverture> texture{Tex_Livre_Dos}}
          box{<Lon_Livre - E_Dos * 2,0,Lar_Livre - E_Couverture>,<Lon_Livre - E_Dos,Hau_Livre,Lar_Livre> texture{Tex_Livre_Dos}}
            }
       union{
          cylinder{<Lon_Livre - E_Dos - 0.5,-0.1,-0.25>,<Lon_Livre - E_Dos - 0.5,Hau_Livre + 0.01,-0.25>,0.75 texture{Tex_Livre_Dos}}
          cylinder{<Lon_Livre - E_Dos - 0.5,-0.1,Lar_Livre + 0.25>,<Lon_Livre - E_Dos - 0.5,Hau_Livre + 0.01,Lar_Livre + 0.25>,0.75 texture{Tex_Livre_Dos}}
            }
              }
    difference{
       cylinder{<E_Dos * 6.2,0,Lar_Livre / 2>,<E_Dos * 6.2,Hau_Livre,Lar_Livre / 2>,E_Dos * 4 + E_Couverture texture{Tex_Livre_Dos}}
       union{
          cylinder{<E_Dos * 6.1,-0.1,Lar_Livre / 2>,<E_Dos * 6.1,Hau_Livre + 0.01,Lar_Livre / 2>,E_Dos * 4 texture{Tex_Invisible}}
          box{<0,-0.1,-Lar_Livre>,<Lon_Livre,Hau_Livre + 0.01,0> texture{Tex_Livre_Dos}}
          box{<0,-0.1,Lar_Livre>,<Lon_Livre,Hau_Livre + 0.01,Lar_Livre * 2> texture{Tex_Livre_Dos}}
          box{<0,-0.1,-0.01>,<E_Dos * 4,Hau_Livre + 0.01,Lar_Livre + 0.01> texture{Tex_Livre_Dos}}
          cylinder{<Lon_Livre - E_Dos - 1.5,-0.1,-0.25>,<Lon_Livre - E_Dos - 1.5,Hau_Livre + 0.01,-0.25>,0.75 texture{Tex_Livre_Dos}}
          cylinder{<Lon_Livre - E_Dos - 1.5,-0.1,Lar_Livre + 0.25>,<Lon_Livre - E_Dos - 1.5,Hau_Livre + 0.01,Lar_Livre + 0.25>,0.75 texture{Tex_Livre_Dos}}
            }
              }
    difference{
       intersection{
          text{ttf "timrom.ttf" Titre 0.1,0 scale <Hau_Livre/9,Hau_Livre/9,25> rotate 90 * x rotate -90 * z translate <Lon_Livre - E_Couverture * 1.5 ,Hau_Livre * Y,Lar_Livre/2.8> texture{Tex_Titre}}
          cylinder{<E_Dos * 6.2,-0.1,Lar_Livre / 2>,<E_Dos * 6.2,Hau_Livre + 0.01,Lar_Livre / 2>,E_Dos * 4 + E_Couverture + 0.01 texture{Tex_Titre}}
                   }
       cylinder{<E_Dos * 6.2,-0.1,Lar_Livre / 2>,<E_Dos * 6.2,Hau_Livre + 0.01,Lar_Livre / 2>,E_Dos * 4 + E_Couverture texture{Tex_Titre}}
              }

    #declare Autre_Titre = concat("Les   ",Titre)
    text{ttf "timrom.ttf" Autre_Titre 0.1,0 scale <Hau_Livre/15,Hau_Livre/15,E_Couverture * 0.8> rotate 180 * y translate <Lon_Livre - E_Couverture * 17.5 ,Hau_Livre * 0.8,Lar_Livre + 0.01> texture{Tex_Titre}}

    plane{z,0
      clipped_by{
         box{<0,0,1>,<1,1,-1>}
                }
      texture{pigment{image_map{tga Photo map_type 0 once interpolate 2}}}
      rotate 180 * y
      scale <Lon_Livre / 2,Hau_Livre / 2,E_Couverture / 2>
      translate <Lon_Livre - E_Couverture * 18.75 ,Hau_Livre * 0.2,Lar_Livre+0.1>
         }
     }
