// Last edited on 2007-04-01 19:47:10 by stolfi
// Processed by remove-cam-lights

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

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

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

#declare azul = 
  texture {
    pigment { color rgb < 0.3 0.5 0.95 > }
    finish { diffuse 0.8 specular 0.2 roughness 0.005 ambient 0.2 }
  } 

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


#declare tCasa = 1.5; 
#declare cCasa = tCasa/2; 
#declare tam=30; 
#declare roleta = seed(342588);



#declare peao =
union {
 #declare base = tCasa*0.3;  
 cone { 
  <0,0,0>, base
  <0,0,base>, base*0.3 
 }
 sphere { <0,0,base*1.2> base*0.7 }
 translate < cCasa, cCasa, 0>
}

#declare torre=
union {
 #declare base = tCasa*0.7;
 box { <0,0,0>, <base,base,base*0.2> }
 cylinder { <base/2,base/2,0>, <base/2,base/2,base*1.5>, base*0.35 }
 box { <0,0,0>, <base,base,base*0.2> translate <0,0,base*1.5> }
 #declare desloca = (tCasa-base)/2;
 translate <desloca, desloca, 0>
}

#declare rei =
union {
 #declare base = tCasa*0.4;
 cone { 
   <0,0,0>, base
   <0,0,2>, base*0.3 
  }
 sphere { <0,0,2.2> base*0.6 }
 torus { base*0.4, 0.1 rotate 90*x translate 2.6*z }
 translate < cCasa, cCasa, 0>
}



#declare casa =
box { <0, 0, 0>, <tCasa, tCasa, -0.5> }

#declare linha=0;
#declare coluna=0;
#declare contador=0;

#while (linha<tam)
 #declare coluna=0;
 #while (coluna<tam)
  
  object { 
   casa 
   texture { #if (mod(coluna+linha,2)=0) preto #else branco #end } 
   translate <linha*tCasa, coluna*tCasa, 0> 
  }
  
  #declare n = int(100*rand(roleta));
  #if (n<=30)  
   object {   
    #if (n<=5) rei 
    #else
     #if (n>=6 & n<=17) torre
     #else peao
     #end    
    #end
    texture { #if (mod(contador,2)=0) amarelo #else azul #end }
    translate <linha*tCasa, coluna*tCasa, 0> 
   }
   #declare contador = contador+1;
  #end    
  #declare coluna = coluna+1;
 #end
 #declare linha = linha+1;
#end 

// Original camera parameters:
// #local cam_ctr = <30.00,30.00,0.00>
// #local cam_vec = (<75.00,75.00,55.00>-<30.00,30.00,0.00>)
// #local cam_sky = z

#include "camlight.inc"
camlight(<30.00,30.00,0.00>,<10,10,10>,40.0,z,1.0)