// Last edited on 2007-07-23 00:25:47 by stolfi
// Processed by remove-cam-lights

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

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

#declare amarelo = 
  texture {
    pigment { color rgb < 1.0, 0.8, 0.0 > }
    finish { diffuse 0.8 specular 0.2 roughness 0.005 ambient 0.2 }
  }

#declare peca_marrom =
 box {
   <0.0,0.0,0.0>,<2.0,0.5,2.0> texture{marrom}
}

#declare peca_amarela =
 box {
   <0.0,0.0,0.0>,<2.0,0.5,2.0> texture{amarelo}
}

#declare peca1 =
  cone{<1.0,0.0,1.0>, 0.5, <1.00, 1.00,1.00>, 1.0 
}

#declare peca2 =
  cylinder{<1.0,0.0,1.0>, <1.00, 1.00,1.00>, 1.0 
}

#declare peca3 =
  sphere {<1.0,0.0,1.0>, 1.0 
}

#declare i=0;
#declare fim=20;
#declare fim2=20;
#while(i < fim)
  #if (mod(i,2.0) = 0) 
   #declare j=0.0;
  #else
   #declare j=1.0;   
  #end
  
  #while(j < fim2)
    object { peca_marrom translate<-j*2.0,0,i*2> }
    #declare j=j+2;
  #end
 #declare i = i+1;
#end

#declare i=0;
#declare fim=20;
#declare fim2=20;
#while(i < fim)
  #if (mod(i,2.0) = 0) 
   #declare j=1.0;
  #else
   #declare j=0.0;   
  #end
  
  #while(j < fim2)
    object { peca_amarela translate<-j*2.0,4.0,i*2> }
    #declare j=j+2;
  #end
 #declare i = i+1;
#end

#declare prim  = seed(12345);
#declare prim2 = seed(54321);

#declare i=0;
#declare fim=20;
#declare fim2=20;
#while(i < fim)
  #if (mod(i,2.0) = 0) 
   #declare j=1.0;
  #else
   #declare j=0.0;   
  #end
  #while(j < fim2)

    #declare aleat=int(10*rand(prim));
    #declare aleat2=int(10*rand(prim2));
    #if (aleat = 1)
      #if (aleat2 < 5.0)
        object { peca1 texture{amarelo} translate<-j*2.0,4.5,i*2> }
      #else
        object { peca1 texture{marrom} translate<-j*2.0,4.5,i*2> }
      #end
    #else 
    #if (aleat = 5)
      #if (aleat2 < 5.0)
        object { peca2 texture{amarelo} translate<-j*2.0,4.5,i*2> }
      #else
        object { peca2 texture{marrom} translate<-j*2.0,4.5,i*2> }
      #end
    #else
    #if (aleat = 9)
      #if (aleat2 < 5.0)
        object { peca3 texture{amarelo} translate<-j*2.0,5.5,i*2> }
      #else
 object { peca3 texture{marrom} translate<-j*2.0,5.5,i*2> }
      #end
    #end
    #end
    #end
    #declare j=j+2;
  #end
 #declare i = i+1;
#end

#declare i=0;
#declare fim=20;
#declare fim2=20;
#while(i < fim)
  #if (mod(i,2.0) = 0) 
   #declare j=0.0;
  #else
   #declare j=1.0;   
  #end
  #while(j < fim2)

    #declare aleat=int(10*rand(prim));
    #declare aleat2=int(10*rand(prim2));
    #if (aleat = 1)
      #if (aleat2 < 5.0)
        object { peca1 texture{amarelo} translate<-j*2.0,0.5,i*2> }
      #else
        object { peca1 texture{marrom} translate<-j*2.0,0.5,i*2> }
      #end
    #else 
    #if (aleat = 5)
      #if (aleat2 < 5.0)
        object { peca2 texture{amarelo} translate<-j*2.0,0.5,i*2> }
      #else
        object { peca2 texture{marrom} translate<-j*2.0,0.5,i*2> }
      #end
    #else
    #if (aleat = 9)
      #if (aleat2 < 5.0)
        object { peca3 texture{amarelo} translate<-j*2.0,1.5,i*2> }
      #else
 object { peca3 texture{marrom} translate<-j*2.0,1.5,i*2> }
      #end
    #end
    #end
    #end
    #declare j=j+2;
  #end
 #declare i = i+1;
#end

// Original camera parameters:
// #local cam_ctr = <-17.00,0.00,0.00>
// #local cam_vec = (<-17.00,15.00,80.00>-<-17.00,0.00,0.00>)
// #local cam_sky = y

#include "camlight.inc"
camlight(<-17.00,0.00,0.00>,<0,2,10>,90.0,y,1.0)