// Last edited on 2005-01-06 01:38:03 by stolfi
// Processed by remove-cam-lights

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

#declare raio = 2.000;

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

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

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

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

#declare sala_e =
 box{
 <0.00, 0.00, 0.00>,
 <2,2,2>
 }

#declare sala_q1 =
 box{
 <3, 0.50, 0.50>,
 <-1,1.50,1.50>
 }

#declare sala_q2 =
 box{
 <0.50, -1, 0.50>,
 <1.50, 3, 1.50>
 }

#declare sala_c1 =
 cone{
 <3,1,1>,0.75
 <-1,1,1>,0.75
}

#declare sala_c2 =
 cone{
 <1,-1,1>,0.75
 <1,3,1>,0.75
}

#declare terreo =
 box{
 <0,2,0>,
 <14,12,-2>
 texture{tinta_D}
}

#declare terreo2 =
 box{
 <-1,6,-0.5>,
 <15,8,-2>
 texture{tinta_D}
}

#declare porta =
 box{
 <13.5,6,-0.5>,
 <14,8,-2>
 texture{tinta_C}
}

#declare janela1 =
 box{
 <-1,2.5,-0.5>,
 <15,5.5,-1.5>
}

#declare janela2 =
 box{
 <-1,8.5,-0.5>,
 <15,11.5,-1.5>
}

#declare cor_cristal = <0.7 0.7 0.7>;

#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 vidro1 =
 box{
 <13.5, 2.5, -0.5>,
 <14, 5.5, -1.5>
 texture{tx_cristal}
 interior{ior 1.5}
}

#declare vidro2 =
 box{
 <13.5, 8.5, -0.5>,
 <14, 11.5, -1.5>
 texture{tx_cristal}
 interior{ior 1.5}
}

#declare predio =
#declare gerador = seed(12345);
#declare eixo_x = 0;
#while(eixo_x < 13)
 #declare eixo_z = 0;
 #while(eixo_z < 5)
  #declare i = 1;
  #while(i < 6)
   #declare sala =
     #if (rand(gerador) < 0.5)
     difference{
      object {sala_e}
      object {sala_q1}
      object {sala_q2}
     }
     #else
     difference{
      object {sala_e}
      object {sala_c1}
      object {sala_c2}
     }
     #end
   object {sala
    #if(rand(gerador)<0.5) texture{tinta_A}
    #else texture{tinta_B}
    #end
    translate <eixo_x, 2*i, eixo_z>}
   #declare i = i+1;
  #end
  #declare eixo_z = eixo_z+2;
 #end
 #declare eixo_x = eixo_x+2;
#end

union {
 object{predio}
 object{vidro1}
 object{vidro2}
 object{porta}
 difference{
  object{terreo}
  object{terreo2}
  object{janela1}
  object{janela2}
 }
}

plane {z,0
 texture{
  pigment{checker <0.2,0.1,0.1>,<0.3,0.3,0.5>}
  finish{ambient 0.1 diffuse 0.9}
  scale 2
  }
 translate <0,0,-2>
 }

#include "camlight.inc"
camlight(<0,0,0>,<30,30,4>,0.85,z,1.0)