// CORES E TEXTURAS

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

#declare tx_forma = 
  texture{
    pigment{ color rgb < 0.00, 0.85, 0.10 > }
    finish{ diffuse 0.8 ambient 0.1 specular 0.5 roughness 0.005 }
  }

#declare tx_cano = 
    texture{
        pigment{ color rgb < 1.00, 0.50, 0.00 > }
        finish{ diffuse 0.8 ambient 0.1 specular 0.5 roughness 0.005 }
  }

#declare tx_xadrez =
  texture{
    pigment{ checker color rgb < 1.00, 0.00, 0.00 >, color rgb < 0.00, 0.00, 0.00 > }
    finish{ diffuse 0.9 ambient 0.1 }
    scale 2.0
  }

#declare tanque1 = 
    union{
        box{ <-0.25,-0.25,-0.25>, <0.25,0.25,0.25> texture{ tx_forma }}
        sphere{ < 0,0,0.5 >, 0.25 texture{ tx_forma }}
        cylinder{
            < 0, 0.25, 0.125 >,
            < 0, 0.5, 0.125 >,
            0.05
            texture{ tx_cano }
        }
        cylinder{
            < 0, -0.25, 0.125 >,
            < 0, -0.5, 0.125 >,
            0.05
            texture{ tx_cano }
        }
        cylinder{
            < 0, 0, 0.5 >,
            < 0, 0, 1.0 >,
            0.05
            texture{ tx_cano }
        }
    }

#declare tanque2 = 
    union{
        cylinder{
            < 0, 0, -0.25 >,
            < 0, 0, 0.25 >,
            0.25
            texture{ tx_forma }
        }
        sphere{ < 0,0,0.5 >, 0.25 texture{ tx_forma }}
        cylinder{
            < 0, 0.25, 0.125 >,
            < 0, 0.5, 0.125 >,
            0.05
            texture{ tx_cano }
        }
        cylinder{
            < 0, -0.25, 0.125 >,
            < 0, -0.5, 0.125 >,
            0.05
            texture{ tx_cano }
        }
        cylinder{
            < 0, 0, 0.5 >,
            < 0, 0, 1.0 >,
            0.05
            texture{ tx_cano }
        }
        cylinder{
            < 0, 0, 0.5 >,
            < 0, 0.5, 0.5 >,
            0.05
            texture{ tx_cano }
        }
        cylinder{
            < 0, 0, 0.5 >,
            < 0, -0.5, 0.5 >,
            0.05
            texture{ tx_cano }
        }
    }

#declare tanque3 = 
    union{
        cone {
            <0, 0, -0.25>, 0.25 // <x, y, z>, center & radius of one end
            <0, 0, 0.25>, 0.0 // <x, y, z>, center & radius of the other end
            texture{ tx_forma }
        }
        sphere{ < 0,0,0.5 >, 0.25 texture{ tx_forma }}
        cylinder{
            < 0, 0, 0.5 >,
            < 0, 0.5, 0.5 >,
            0.05
            texture{ tx_cano }
        }
        cylinder{
            < 0, 0, 0.5 >,
            < 0, -0.5, 0.5 >,
            0.05
            texture{ tx_cano }
        }
        cylinder{
            < 0, 0, 0.5 >,
            < 0, 0, 1.0 >,
            0.05
            texture{ tx_cano }
        }
    }


#declare chao = 
  box{ <-20,-20,-1>, <+20,+20,0> }
  
#macro gera_tanques(m, n)
    #local qtde = m*n;
    #declare pontos = array[qtde]               
    #declare index_m = 1;  
    #declare roleta1 = seed(qtde);    
    union{       
    #while (index_m <= m)        
        #declare index_n = 1;        
        #while (index_n <= n)                          
            #local prob = 3*rand(roleta1);
            #switch(prob)
                #range (0, 1)
                    object{ tanque1 translate < index_m-1,index_n-1,0 > }
                #break
                #range (1, 2)
                    object{ tanque2 translate < index_m-1,index_n-1,0 >}
                #break
                #range (2, 3)
                    object{ tanque3 translate < index_m-1,index_n-1,0 >}
                #break
            #end    
            #declare index_n = index_n + 1;
        #end
        #declare index_m = index_m + 1;
    #end
    }  
#end

#include "eixos.inc"
union{
  object{ eixos(3.00) }

  object{ chao  translate < 0,0,-5 > texture{ tx_xadrez } }
}

gera_tanques(3,3)

#include "camlight.inc"
#declare centro_cena = < 1.00, 1.00, 1.00 >;
#declare raio_cena = 7.0;
#declare dir_camera = < 6.00, 1.00, 5.00 >;
#declare dist_camera = raio_cena;
#declare intens_luz = 2.20;
camlight(centro_cena, raio_cena, dir_camera, dist_camera , z, intens_luz)

#macro gera_tanques(m, n)
    #local qtde = m*n;          
    #declare index_m = 1;  
    #declare roleta1 = seed(qtde);    
    union{       
    #while (index_m <= m)        
        #declare index_n = 1;        
        #while (index_n <= n)
            #local prob = 3*rand(roleta1);
            #switch(prob)
                #range (0, 1)
                    object{ tanque1 translate < index_m-1,index_n-1,0 > }
                    #local p1 = <index_m-1, index_n-1+0.4, 0.125>;
                    #declare pontos[geral] = p1;
                    #declare geral = geral + 1;
                    #local p1 = <index_m-1, index_n-1-0.4, 0.125>;
                    #declare pontos[geral] = p1;
                    #declare geral = geral + 1;
                    #local p1 = <index_m-1, index_n-1, 0.65>;
                    #declare pontos[geral] = p1;
                    #declare geral = geral + 1;
                #break
                #range (1, 2)
                    object{ tanque2 translate < index_m-1,index_n-1,0 >}
                    #local p1 = <index_m-1, index_n-1+0.4, 0.125>;
                    #declare pontos[geral] = p1;
                    #declare geral = geral + 1;
                    #local p1 = <index_m-1, index_n-1-0.4, 0.125>;
                    #declare pontos[geral] = p1;
                    #declare geral = geral + 1;
                    #local p1 = <index_m-1, index_n-1, 0.65>;
                    #declare pontos[geral] = p1;
                    #declare geral = geral + 1;
                    #local p1 = <index_m, index_n+0.15, 0.50>;
                    #declare pontos[geral] = p1;
                    #declare geral = geral + 1;
                    #local p1 = <index_m-1, index_n-0.15, 0.50>;
                    #declare pontos[geral] = p1;
                    #declare geral = geral + 1;
                #break
                #range (2, 3)
                    object{ tanque3 translate < index_m-1,index_n-1,0 >}
                    #declare geral = geral + 1;
                    #local p1 = <index_m-1, index_n-1, 0.65>;
                    #declare pontos[geral] = p1;
                    #declare geral = geral + 1;
                    #local p1 = <index_m, index_n+0.15, 0.50>;
                    #declare pontos[geral] = p1;
                    #declare geral = geral + 1;
                    #local p1 = <index_m-1, index_n-0.15, 0.50>;
                    #declare pontos[geral] = p1;
                    #declare geral = geral + 1;
                #break
            #end    
            #declare index_n = index_n + 1;        
        #end
        #declare index_m = index_m + 1;
    #end
    }  
#end

#macro gera_tubulacoes()
    
#end

#include "eixos.inc"
union{
  object{ eixos(3.00) }

  object{ chao  translate < 0,0,-5 > texture{ tx_xadrez } }
}

#declare geral = 0;
#declare pontos = array[1000000]  
gera_tanques(4,5)

#include "camlight.inc"
#declare centro_cena = < 1.00, 1.00, 1.00 >;
#declare raio_cena = 7.0;
#declare dir_camera = < 6.00, 1.00, 5.00 >;
#declare dist_camera = raio_cena;
#declare intens_luz = 2.20;
camlight(centro_cena, raio_cena, dir_camera, dist_camera , z, intens_luz)