// Exemplo de arquivo de descricao de cena para POV-ray
// Last edited on 2023-09-14 18:16:01 by stolfilocal

// ======================================================================
// CORES E TEXTURAS

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



#declare branco = 
  texture{
    pigment{ color rgb < 1, 1, 1 > }
    finish{ diffuse 0.9 ambient 0.1 }
  }
#declare preto = 
  texture{
    pigment{ color rgb < 0, 0, 0 > }
    finish{ diffuse 0.9 ambient 0.1 }
  }
  
#declare tx_dama = 
  texture{
    pigment{ color rgb < 1, 0, 0 > }
    finish{ diffuse 0.9 ambient 0.1 }
  }
  
#declare tx_peao = 
  texture{
    pigment{ color rgb < 0, 0.8, 0 > }
    finish{ diffuse 0.9 ambient 0.1 }
  }


// ======================================================================

#declare raio = 2.000;


#declare cubo =  
  box{ 
    <0,0,0>,<1,1,1> 
  }
#declare esfera =
  sphere{ 
    <0.5,0.5,0.5>,0.5 
  }
#declare meu_cone =
  cone{
    <0.5,0.5,0>,0.5,<0.5,0.5,1>,0 
  }
#declare base=
  cylinder{
    <0,0,0>,<0,0,0.5>,1.5 texture{preto}
  }
#declare cilindro=
  cylinder{
    <0.5,0.5,0>,<0.5,0.5,1>,0.5 
  }
#declare dama=
  union{
    object{esfera}
    object{cilindro translate<0,0,1>}
    object{cubo translate<0,0,2>}
    texture{ tx_dama }
  }
  
#declare peao=
  union{
    object{meu_cone}
    object{object{meu_cone rotate 180*y} translate<1,0,2>}
    object{esfera translate<0,0,2> }
    texture{ tx_peao }
  }
  
#macro tabuleiro(m,n)
  object{cylinder{<0,0,0>,<0,0,-1>,10*m} texture{branco}}
  #declare i=1;
  #while(i<=m)
  #declare j=1;
    #while(j<=n)
      #if(i+j<6)
        union{object{base} object{peao translate<0,0,0.5>}translate<i*10,0,0> rotate z*(j*360/n)}
      #else
        #if(i+j>12)
          union{object{base} object{dama translate<0,0,0.5>}translate<i*10,0,0> rotate z*(j*360/n)}
        #else
          union{object{base} translate<i*10,0,0> rotate z*(j*360/n)}

        #end
      #end
      #declare j=j+1;
    #end
    #declare i=i+1;
  #end
  
#end
#include "eixos.inc"

#local fileiras = 7;
#local casas = 25;

tabuleiro(fileiras,casas)

#include "camlight.inc"
#declare centro_cena = < 0 ,0, 5 >;
#declare raio_cena = 13*fileiras + 3;
#declare dir_camera = < 14, 7, 8 >;
#declare dist_camera = 7*raio_cena;
#declare intens_luz = 1.20;
camlight(centro_cena, raio_cena, dir_camera, dist_camera , z, intens_luz)