// Last edited on 2005-01-11 14:46:46 by stolfi
// Processed by remove-cam-lights

#include "textures.inc"

background{ color rgb < 0.75, 0.80, 0.85 > }

#declare raio = 2.000;

#declare cor_espelho = <.7,.3,.6>;
#declare tx_espelho =
  texture{
    pigment{rgb cor_espelho}
    finish{
      ambient 0.05 diffuse 0.05
      reflection cor_espelho
      specular 0.2 roughness 0.05
 }
}
#declare cor_espelho2 = <1,.8,.1>;
#declare tx_espelho2 =
  texture{
    pigment{rgb cor_espelho2}
    finish{
      ambient 0.05 diffuse 0.05
      reflection cor_espelho2
      specular 0.2 roughness 0.05
 }
}

#declare cor_cristal = < 0.1,0.5,0.1>;
#declare tx_cristal =
   texture {
     finish{
      ambient 0.1 diffuse 0.1 reflection 0.25
      specular 1 roughness 0.001
     }
   pigment{color cor_cristal filter 1}
  }

#declare tinta1 =
  texture {
    pigment { color rgb < 0.10, 0.80, 1.00 > }
    finish { diffuse 0.8 specular 0.2 roughness 0.005 ambient 0.1 }
  }

#declare tinta2 =
  texture {
    pigment { color rgb < 0.40, 0.10, 0.70 > }
    finish { diffuse 0.8 specular 0.2 roughness 0.005 ambient 0.1 }
  }

#declare tinta3 =
  texture {
    pigment { color rgb < 0, 0, 0 > }
    finish { diffuse 0.8 specular 0.2 roughness 0.005 ambient 0.1 }
  }

#declare tinta4 =
  texture {
    pigment { color rgb < 0.0, 0.0, 0.0 > }
    finish { diffuse 0.8 specular 0.2 roughness 0.005 ambient 0.1 }
  }

#declare tinta5 =
  texture {
    pigment { color rgb < 1, 1, 1 > }
    finish { diffuse 0.8 specular 0.2 roughness 0.005 ambient 0.1 }
  }

#declare tinta6 =
  texture {
    pigment { color rgb < 1, 1, 0 > }
    finish { diffuse 0.8 specular 0.2 roughness 0.005 ambient 0.1 }
  }
#declare tinta7 =
  texture {
    pigment { color rgb < 1, 1, 1 > }
    finish { diffuse 0.8 specular 0.2 roughness 0.005 ambient 0.1 }
  }

#declare quarto1 =

  union{
    box { < 0,0,0>, <2,2,.5>
       texture {Chrome_Metal}
    }
    box{ <-.01,0.3,.15>, <2.1,1.7,.35>
       texture {DMFWood3}
    }
    box{ <.3,-.01,.15><1.7,2.1,.35>
       texture {DMFWood3}
    }
  }

#declare quarto2 =
  union{
    box { < 0,0,0>, <2,2,.5>
       texture {Chrome_Metal}
    }
    box{ <-.01,0.3,0>, <2.01,.7,.35>
       texture {tinta3}
    }
    box{ <.3,-.01,0><.7,2.1,.35>
       texture {tinta3}
    }
  }

#declare quarto3 =
  difference{
   union{
     box { < 0,0,0>, <2,2,.5>
       texture {Chrome_Metal}
     }
     box{ <-.01,0.3,.15>, <2.1,1,.35>
       texture {DMFWood3}
     }
     box{ <.3,-.01,.15><1,2.1,.35>
       texture {DMFWood3}
     }
    }
    union{
     box{ <-.01,1,.15>, <2.1,1.7,.35>
        texture {tinta7}
     }
     box{ <1,-.01,.15><1.7,2.1,.35>
        texture {tinta7}
     }
    }

  }

#declare fundo =
  plane {z,0
  texture{Jade}
  scale 0.5
 }

#declare gerador = seed(10);

union{
 #declare a=0;
 #while(a<10)
  #declare j=0;
  #while(j<10)
   #declare i=0;
   #while(i<10)
     #if(a = 0)
      #if(rand(gerador)>.6)
       object{quarto2 translate <2*i,2*j,a*.5>}
      #else
       object{quarto1 translate <2*i,2*j,a*.5>}
      #end
     #else
      #if(rand(gerador)>.8)
       object{quarto3 translate <2*i,2*j,a*.5>}
      #else
       object{quarto1 translate <2*i,2*j,a*.5>}
      #end
     #end

     #declare i=i+1;
   #end
   #declare j=j+1;
  #end
 #declare a=a+1;
 #end

  #while(a<15)
  #declare j=3;
  #while(j<7)
   #declare i=3;
   #while(i<7)
     #if(a = 0)
      #if(rand(gerador)>.3)
       object{quarto2 translate <2*i,2*j,a*.5>}
      #else
       object{quarto1 translate <2*i,2*j,a*.5>}
      #end
     #else

      object{quarto1 translate <2*i,2*j,a*.5>}
     #end
     #declare i=i+1;
   #end
   #declare j=j+1;
  #end
 #declare a=a+1;
 #end

 object{fundo}
}

#include "camlight.inc"
camlight(<10,10,0>,<-5,-16,3>,2.50,z,1.0)