// Last edited on 2005-01-06 02:15:51 by stolfi
// Processed by remove-cam-lights

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

#declare cor_cinza = < 0.5, 0.5, 0.5 >;

#declare metal =
  texture {
    pigment { rgb cor_cinza }
    finish {
      ambient 0.05 diffuse 0.05
      reflection cor_cinza
      specular 0.20 roughness 0.05
    }
  }

#declare cor_azulado = <0.9,0.9,1>;

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

#declare paredao =
  plane { z, 0
    texture {
      pigment { checker <0,0,0>, <1,1,1> }
      finish { ambient 01 diffuse 0.9 }
    }
  }

#declare porta =
  union {
    box {
      <0,0,0>,
      <0.1,2.999,2.5>
      texture { vidro }
    }
    box {
      <0,3.001,0>,
      <0.1,6,2.5>
      texture { vidro }
    }
  }

#declare janela =
  box {
    <0,0,0>,
    <0.1,2,1>
    texture { vidro }
  }

#declare predio =

  #declare andar=0;
  #while (andar<4)
    union {
      box {
        <-10.5,-10.5,0>,
        <10.5,10.5,3>
        texture { metal }
      }
      #declare face=0;
      #while (face<4)
        #declare j=0;
        #while (j<7)
          #if ((andar=0) & (face=0) & (j=2))
            object { porta translate <10.5,-3,0> }
            #declare j=4;
          #else
            object { janela translate <10.5,-10+3*j,1> rotate z*90*face}
          #end
          #declare j=j+1;
        #end
        #declare face=face+1;
      #end
      translate <0,0,3*andar>
    }
  #declare andar=andar+1;
  #end

#declare esferas=

  #declare G=seed(12345);
  #declare H=seed(54321);
  #declare canto1=mod(rand(G),4);
  #declare raio1=mod(rand(G),2)+0.5;
  #declare canto2=mod(rand(H),4);
  #declare raio2=mod(rand(H),2)+0.5;
  #if (canto1=canto2)
    canto2=mod((canto2+1),4);
  #end
  #declare x1=0;
  #declare y1=0;
  #if (canto1=0)
    #declare x1=1;
    #declare y1=-1;
  #end
  #if (canto1=1)
    #declare x1=1;
    #declare y1=1;
  #end
  #if (canto1=2)
    #declare x1=-1;
    #declare y1=1;
  #end
  #if (canto1=3)
    #declare x1=-1;
    #declare y1=-1;
  #end

  union {
    sphere {
      <(x1*10.5),(y1*10.5),(12+raio1)>
      raio1
    }
  }

object { predio }
object { esferas }

#include "camlight.inc"
camlight(<0,0,6>,<40,30,20>,1.00,z,1.0)