// Last edited on DATE TIME by USER
// Processed by remove-cam-lights

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

#declare tx_plastico =
  texture{
    pigment{ color rgb < 0.10, 0.80, 1.00 > }
    finish{ diffuse 0.8 ambient 0.1 specular 0.5 roughness 0.005 }
  }

#declare AREA = 1000;
#declare TAMANHO = AREA/15;

#macro makeRoom(rooms, tunnels)
  #union{
    #declare roleta = seed(now * 100000);

    #declare centro = array[rooms]
    #declare tamanho = array[rooms]

    #declare entrada = array[tunnels]
    #declare saida = array[tunnels]

    #declare i = 0;
    #while(i<rooms)
      #declare centro[i] = <AREA*(-0.5+rand(roleta)), AREA*(-0.5+rand(roleta)), AREA*0.8*(-0.5+rand(roleta))>;
      #declare tamanho[i] = rand(roleta)*TAMANHO;

      #declare sala = box { centro[i]-<tamanho[i]/2, tamanho[i]/2, tamanho[i]/2>, centro[i]+<tamanho[i]/2, tamanho[i]/2, tamanho[i]/2> }

      object { sala texture{tx_plastico} }

      #declare i = i+1;
    #end

    #declare i=0;
    #while(i<tunnels)
      #declare entrada[i] = int(rooms*rand(roleta));
      #declare saida[i] = int(rooms*rand(roleta));

      #while(saida[i]=entrada[i])
        #declare saida[i] = int(rooms*rand(roleta));
      #end

      #declare tunel = cylinder{ centro[entrada[i]], centro[saida[i]], 3 }

      object { tunel texture{ tx_plastico } }

      #declare i = i+1;
    #end
  }
#end

object { makeRoom(50, 70) }

#include "camlight.inc"
#declare centro_cena = < 0.00, 0.00, 0.00 >;
#declare raio_cena = AREA*1.5;
#declare dir_camera = < 0.00, 1.00, 0.50 >;
#declare dist_camera = 5*raio_cena;
#declare intens_luz = 1.20;
camlight(centro_cena, raio_cena, dir_camera, dist_camera , z, intens_luz)