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

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

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

#declare azul=< 0.1, 0.8, 1>;

#declare azultransp =
  texture {
 finish{
  ambient 0.1 diffuse 0.1 reflection 0.25
  specular 1 roughness 0.001
 }
 pigment {color azul filter 1}
}

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

#declare janela=
 box{<5.5,22.51,8>,<4.5,22.49,7>
 texture {azultransp}
}

#declare andar=
 union{
 #declare i=0;
 #while (i<3)
  #declare xis=7.5 - i*5;
  #declare yis=22.5;
  #declare zis=10;
  #declare j=0;
  #while (j<9)
   #declare yis=22.5 - j*5;
   #declare k=0;
   #while (k<4)
    #declare zis=10 - k*5;
    #declare sala=
     box { <xis,yis,zis>,<xis-5,yis-5,zis-5> }
     object{sala}
    #if (i=2 & j=1 & k=1)
     box{ <1.5,22.6,-10>,<-1.5,22.4,-6>
      texture{vermelho}
     }
    #else
     object  {
      janela
      translate <-5*i,0,-5*k>
     }
     object  {
      janela
      translate <-5*i,-45,-5*k>
     }
    #end
    #declare k=k+1;
   #end
   #declare j=j+1;
  #end
  #declare i=i+1;
 #end
 texture{amarelo}
 }

#declare gerador=seed(123456);
#declare sol=
sphere{<50*rand(gerador),0,45>,5
texture{amarelo}
}

union{
object {andar}
object {sol}
}

#include "camlight.inc"
camlight(<0,0,0>,<50,100,30>,0.55,z,1.0)