// Last edited on 2005-01-06 01:35:57 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.5 > }
    finish { diffuse 0.8 specular 0.2 roughness 0.005 ambient 0.1 }
  }

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

#declare q1 =
  box {
    < -4, -4, 0 >,
    < 4, 4, 3 >
    texture { tinta_A }
  }

#declare q2 =
  box {
    < -3.9, -3.9, 0.1 >,
    < 3.9, 3.9, 2.9 >
    texture { tinta_A }
  }

#declare quadrado =
  difference {
    object {q1}
    object {q2}
  }

#declare c1 =
  cylinder {
    <0,0,0>,
    <0,0,3>,
    4
    texture{ tinta_B }
  }

#declare c2 =
  cylinder {
    <0,0,0.1>,
    <0,0,2.9>,
    3.9
    texture{ tinta_B }
  }

#declare cilindro =
  difference {
    object {c1}
    object {c2}
  }

#declare j1 =
  box {
    <-0.5,-4.4,-1>
    <0.5,4.4,1>
    texture {tinta_C}
  }

#declare j2 =
  box {
    <-0.5,-4.4,-0.5>
    <0.5,4.4,0.5>
    texture {tinta_C}
    rotate y*45
  }

#declare j3 =
  cylinder {
    <0,-4.4,0>
    <0,4.4,0>
    0.5
    texture {tinta_C}
    }

#declare gera = seed (123654);

#declare janela =
  union {
  #declare q=0;
  #while (q<4)
    #declare tipo = 3*rand(gera);
    #if (mod(int(tipo),3)=0)
      object{ j1 translate <-3+2*q,0,1.5>}
    #end
    #if (mod(int(tipo),3)=1)
      object{ j2 translate <-3+2*q,0,1.5>}
    #end
    #if (mod(int(tipo),3)=2)
      object{ j3 translate <-3+2*q,0,1.5>}
    #end
    #declare q=q+1;
  #end
    }

#declare janela2 =
  union{
  #declare q2=0;
  #while (q2<12)
    #declare tipo2 = 3*rand(gera);
    #if (mod(int(tipo2),3)=0)
      object{ j1 translate <0,0,1.5> rotate z*30*q2}
    #end
    #if (mod(int(tipo),3)=1)
      object{ j2 translate <0,0,1.5> rotate z*30*q2}
    #end
    #if (mod(int(tipo),3)=2)
      object{ j3 translate <0,0,1.5> rotate z*30*q2}
    #end
    #declare q2=q2+1;
  #end
  }

#declare predio =
  #declare i=0;
  #declare j=0;
  union {
    #while (j < 5)
      #if (i = 0)
        difference {
          object { quadrado translate <0,0,3*j>}
          object {janela translate <0,0,3*j>}
          object {janela translate <0,0,3*j> rotate z*90}
        }
      #else
        difference {
          object { cilindro translate <0,0,3*j>}
          object {janela2 translate <0,0,3*j>}
         }
      #end
      #if (i=0)
        #declare i=1;
      #else
        #declare i=0;
      #end
      #declare j= j+1;
    #end
  }

  object {predio}

#include "camlight.inc"
camlight(<0,0,5>,<20,0,10>,1.20,z,1.0)