// Trabalho de Laboratorio 7
// 2000-11-16

background{ color rgb < 1.00, 1.0, 1.00 > }

light_source {
  < -50.00, -100.00, 125.00 >
  color rgb < 1.00, 1.00, 1.00 >
}

camera {
  location  <  -30.00, -75.00, 100.00 >
  sky       <  0.00, 0.00, 1.00 >
  look_at   <  0.00, 0.00, 0.00 >
}

#declare raio = 2.000;

#declare tinta_A =
  texture {
    pigment { color rgb < 0,0,1 > }
  }

#declare tinta_B =
  texture {
    pigment { color rgb < 1.00, 0, 0 > }
  }

#declare i=1;
#declare g = seed(pi);
//#declare n = int(rand(g));
#declare n = 15;
#warning concat("n = ",str(n,1,3),"\n")
//#declare r = int(rand(g));
#declare r = 6;
#warning concat("r = ",str(r,1,3),"\n")
//#declare s = int(rand(g));
#declare s = 4;
#warning concat("s = ",str(s,1,3),"\n")
#declare a = 3;
#declare b = 1;
#declare c = 2;
#declare d = 1;
#declare base= 1.0;
#declare h2 = 1;

#declare estrutura=
      box{<0,0,0>,<((r*a)+(r*c)+c),((s*b)+(s*d)+d),(b+(n*(a+h2)))>
      texture { pigment{ color rgb<1,0,0>} }
      //color rgb<1,0,0>
      }

#declare estrutura2=
      box { <0,0,0>, <5,5,5>
      texture { tinta_B }
      }


#declare janelaf=
      box {<0,0,0>,<a,0,a>
      texture { tinta_A }
      //color rgb<1,0,0>
      }

#declare predio =
   union
   {
      object{estrutura}
      #while (i<n)
         #declare j=1;
         #while(j<r)
            object{ janelaf
                  translate < (c+a)*j, 0 , (h2+a)*i>}
//translate < 2*j, 0 , 2*i>}
            #declare j=j+1;
         #end
         #declare i = i+1;
      #end
   }

// Aqui está a cena, finalmente:
#warning concat("Arox = ","Ola Enfermeira!!!","\n")
//object {estrutura2}
object{predio}