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


#declare tx_fosca = 
  texture{
    pigment{ color rgb < 1.00, 0.80, 0.10 > }
    finish{ diffuse 0.9 ambient 0.1 }
  }

#declare tx_branco = 
  texture{
    pigment{ color rgb < 1.00, 1, 1 > }
    finish{ diffuse 0.9 ambient 0.1 }
  }



#declare raio = 0.500;


#declare caixa = box { < -1, -1, 0  >, < 1, 1, 1> }

#declare caixa2 = box { < -1, -1, 0  >, < 1, 1, 2> }


#declare con = 
 cone {
    <0, 0, 0>, 0
    <0, 0, 2>, 1.3 
  }

#declare con2 = 
 cone {
    <0, 0, 0>, 1.3
    <0, 0, 2>, 0 
  }


#declare bola = sphere{ < 0,0,0 >, 1 }



#include "eixos.inc"


#declare peao = union{
  object{ eixos(4) }
  object{ caixa }
  object{ con  translate <0, 0, 1 >} 
  object{ bola translate <0, 0, 4 >} 

  texture{ tx_fosca }

}

#declare rainha = union {
  object{ eixos(4) }
  object{ caixa2 translate <0, 0, 2> }
  object{ con2 } 
  object{ bola  translate <0, 0, 5>} 

  texture{ tx_fosca }
}


#declare cilindro = cylinder{
    < 0, 0, 0 >,
    < 0, 0, 1 >,
    1
  }


#declare disco = difference {

  object { cilindro scale <2, 2, 1> }

  object { cilindro scale <1, 1, 1.5> translate <0, 0 ,-0.1> }

  texture{ tx_branco }
}

#macro Fileira(m) 
  object { cilindro scale <m + 1, m + 1, 1> }

  object { cilindro scale <m, m, 1.5> translate <0, 0 ,-0.1> }


#end


#macro tabuleiro(m)
    #declare Index = 1;

    #while(Index <= m)

      Fileira(m)

      #declare Index = Index + 1;
    #end
  
#end

union {
  object { disco translate <8, 0 , 0>}
  object { peao translate <0, 5 ,0>}
  object { rainha translate <0, 0 , 10>}
  tabuleiro(5)
}

#include "camlight.inc"
#declare centro_cena = < 0.00, 0.00, 4.00 >;
#declare raio_cena = 20.0;
#declare dir_camera = < 7, 70, 70 >;
#declare dist_camera = 5*raio_cena;
#declare intens_luz = 1.20;
camlight(centro_cena, raio_cena, dir_camera, dist_camera , z, intens_luz)