// TP04 - MP004 - Eduardo Kerr
// RA800271
// Last edited on 2001-06-09 22:04:40 by stolfi

#include "colors.inc"

background{ color rgb < 0.8, 0.8, 0.8 > }

light_source {
    <100.0, -100.0, 200.0>
  color rgb 1.5*< 1, 0.80, 1 >
} 

camera {
  location  1.3*< 8.0, -20.0, 20.0 >
  right     < -0.80, 0.00, 0.00 >
  up        <  0.00, 0.00, 0.60 >
  sky       <  0.00, 0.00, 1.00 >
  look_at   < 12.00, 5.00, 0.00 >
} 

//sphere{ <0,0,0>, 1 pigment{ color rgb <0,1,0> } }

// variaveis
#declare coluna = 11;
#declare fora = 0;
#declare altura = 5;
#declare gera = seed(800271);
#declare i = 0;
#declare xb = 0;
#declare yb = 0;
#declare zb = 0;
#declare xt = 2;
#declare yt = 2;
#declare xmax = xt;
#declare ymax = yt;
//

#while ( i < coluna)
  #declare i = i + 1;
  box { <xb, yb, zb>, <xt, yt, 1 + altura*rand(gera)>
        pigment { granite
                  turbulence 1} }
  #if (int(i/2)*2 != i)
    #while ( fora = 0)
      #declare xi = xb + 3*rand(gera);
      #declare yi = yb + 4*rand(gera);
      #if (((xi < xt) & (yi > yt)) | (xi >= xt))
         #declare fora = 1;
         #declare xb = xi;
         #declare yb = yi;
      #else 
         #declare fora = 0;
      #end
    #end
//
    #declare xmax = xt;
    #declare xt = xb + 2*(1+ rand(gera));
    #declare yt = yb + 1.5*(1 + rand(gera));
    #if (xmax < xt)
       #declare xmax = xt + 1;
    #end
  #else
      #declare xb = xmax;
      #declare yb = 1 + rand(gera);
      #declare xt = xb + 1.5*(1 + rand(gera));
      #declare yt = yb + 2*(1+ rand(gera));
  #end
#end

//#declare fundoy =
//   plane  { <0, 1, 0>, -15
//      pigment { rgb <0.1, 0.1, 1.0> }
//}

#declare chao =
   plane  { <0, 0, 1>, 0
      pigment {checker Red, White   }
}

object { chao }