// TP04 - MP004 - Eduardo Kerr
// RA800271
// Last edited on 2001-06-11 12:45:21 by stolfi

global_settings { assumed_gamma 2.2 }
#include "colors.inc"

background{ color rgb < 0.7, 0.9, 1.0 > }
                             
light_source {
    < 100.0, -100.0, 100.0>
  color rgb 1.8* < 1, 1, 1 >
} 
light_source {
    < -5.0, 7.0, 200.0>
  color rgb 0.5* < 1, 1, 1 >
} 

camera {
  location  < -1.20, -13,  6.5> 
  right     < -1.00, 0.00, 0.00 >
  up        <  0.00, 0.00,  0.75 >
  sky       <  0.00, 0.00,  1.00 >
  look_at   <  8.00, 7.00,  0.50 >
} 


// variaveis      
#declare coluna = 20;

#declare altura = 1.5;
#declare gera = seed(800271);
#declare i = 0;
#declare xb = 0;
#declare yb = 0;
#declare zb = 0;
#declare xt = 0.6;
#declare yt = 0.6;
#declare xmax = xt;
#declare yvar = 19;  
#declare alta = altura;
#declare dist = 0.6;

//
box { <xb, yb, zb>, <xt, yt, altura + 1.1*rand(gera)>
      pigment { granite
                  turbulence 0.01} }
//
#while ( i < coluna)
  #declare i = i + 1;                 

  #switch (i) 
    
    #case ((int(i/6)*6))
       #declare prof= yt-yb;
       #declare yb = yt + 1.1;
       #declare yt = yb + prof;
    #break
    
    #case ((int(i/4)*4))
       #declare larg = xt - xb;
       #declare xb = xt + 1.1;
       #declare xt= xb + larg;    
    #break

    #case ((int(i/2)*2))
        #declare xb = xmax+0.4;
        #declare yb = yvar * rand(gera);
        #declare xt = xb + dist + 0.2*rand(gera);
        #declare yt = yb + dist + 0.2*rand(gera);    
    #break

    #else 
       #declare fora =0; 
       #while ( fora = 0)
          #declare xi = (xt+ 1.7) * rand(gera);
          #declare yi = yvar * rand(gera);
          #if (((xi < xt) & (yi > yt)) | (xi > xt))
              #declare fora = 1;
              #declare xb = xi;
              #declare yb = yi;
          #end
       #end
       #declare xt = xb + dist + 0.6*rand(gera);
       #declare yt = yb + dist + 0.5*rand(gera);
       #declare xmax = xt + 0.5;
  #end        
  
  #declare altb = alta; 
  #declare alta = altura + 1.1*rand(gera);
  #switch (i)
      #case ((int(i/6)*6))
          box { <xb, yb, zb>, <xt, yt, altb>
                pigment { granite turbulence 0.81}
          }
          box { <xb, yb - 1.1 - prof, altb>, <xt, yt, altb+ 0.5>
                pigment { granite turbulence 0.01} }
      #break
         
      #case ((int(i/4)*4))
          box { <xb, yb, zb>, <xt, yt, altb>
                pigment { granite turbulence 0.81}
          }
         
              box { <xb - 1.1 -larg, yb, altb>, <xt, yt, altb+ 0.5>
                pigment { granite turbulence 0.81} }

      #break
         
      #else
          box { <xb, yb, zb>, <xt, yt, alta>
                 pigment { granite turbulence 0.81} }
      #debug concat("xb = ", str(xb,6,2), " yb = ", str(yb,6,2), "\n")
   #end
#end

#declare chao =
   plane  { <0, 0, 1>, 0
      pigment {wood  frequency 1.07 turbulence 0.8 scale 0.17}
}
                                                                       
text{ttf "cyrvetic.ttf", "Flinstonehenge 4004 BC", 0.1, .1 
     translate -3*y 
     pigment { White} }     
     
object { chao }