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

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

#declare peaum =
  merge {
    cylinder { <0.5, -0.5, 0.1>, <0.5, -0.5, 0.2>, 0.4 }
    cone { <0.5, -0.5, 0.2>, 0.25, <0.5, -0.5, 1.2>, 0.05 }
    sphere { <0.5, -0.5, 1.4>, 0.2 }
  }

#declare rei =
  merge {
    cylinder { <0.5, -0.5, 0.1>, <0.5, -0.5, 0.2>, 0.4 }
    cone { <0.5, -0.5, 0.2>, 0.25, <0.5, -0.5, 1.2>, 0.05 }
    box { <0.45, -0.45, 1.2>, <0.55, -0.55, 1.6> }
    box { <0.30, -0.45, 1.35>, <0.70, -0.55, 1.45> }
  }

#declare torre =
  merge {
    cylinder { <0.5, -0.5, 0.1>, <0.5, -0.5, 0.2>, 0.4 }
    cone { <0.5, -0.5, 0.2>, 0.25, <0.5, -0.5, 1.2>, 0.05 }
    difference {
      cylinder { <0.5, -0.5, 1.2>, <0.5, -0.5, 1.4>, 0.2 }
      cylinder { <0.5, -0.5, 1.25>, <0.5, -0.5, 1.5>, 0.15 }
    }
  }

plane {
  z, 0
  pigment {
    color rgb <1, 1, 0>
  }
} 

#declare roleta = seed(4675);
#declare peoes = 0;
#declare torres = 0;
#declare pecas = 0;
#declare aleatorio = 0;
#declare aleatorio2 = 0;

#declare i=0;
#declare j=0;
#declare k=1;
#while (i<30)
  #while (j<30)
    box {
      <j, -i, 0>, <j+1, -(i+1), 0.1>
      texture{
        #if (mod(k,2) = 0)
          pigment { color rgb <1, 1, 1> }
        #else
          pigment {color rgb <0, 0, 0> }
        #end
        finish { diffuse 0.8 specular 0.3 roughness 0.05 }
      }
    #declare k = k + 1;
    }
    #declare j = j + 1;
    #end
  #declare j=0;
  #declare i = i + 1;
  #declare k = k + 1;
#end

#declare posicaox = int(30*rand(roleta));
#declare posicaoy = int(30*rand(roleta));
object { rei pigment { color rgb < 0.00, 0.90, 0.00 > } translate <posicaox, -posicaoy, 0> }

#declare posicaox = int(30*rand(roleta));
#declare posicaoy = int(30*rand(roleta));
object { rei pigment { color rgb < 0.10, 0.30, 1.00 > } translate <posicaox, -posicaoy, 0> }

#while (pecas < 98)
  #declare aleatorio = int(2*rand(roleta)+1);
  #declare aleatorio2 = int(2*rand(roleta)+1);
  #declare posicaox = int(30*rand(roleta));
  #declare posicaoy = int(30*rand(roleta));
  #if (aleatorio = 1)
    #declare cor = color rgb < 0.00, 1.00, 0.00 >;
  #else #declare cor = color rgb < 0.10, 0.30, 1.00 >;
  #end
  #if (aleatorio2 = 1)
    object { peaum pigment { cor } translate <posicaox, -posicaoy, 0> }
  #else
    object { torre pigment { cor } translate <posicaox, -posicaoy, 0> }
  #end
  #declare pecas = pecas + 1;
#end

// Original camera parameters:
// #local cam_ctr = <15,-15,0>
// #local cam_vec = (<40,-40,10>-<15,-15,0>)
// #local cam_sky = z

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