// 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 tx_fosca =
  texture{
    pigment{ color rgb < 1.00, 0.80, 0.10 > }
    finish{ diffuse 0.9 ambient 0.1 }
  }

#declare tx_espelho =
  texture{
    pigment{ color rgb < 1.00, 0.85, 0.30 > }
    finish{ diffuse 0.2 reflection 0.7*< 1.00, 0.85, 0.30 > ambient 0.1 }
  }

#declare tx_vidro =
  texture{
    pigment{ color rgb < 0.85, 0.95, 1.00 > filter 0.70 }
    finish{ diffuse 0.03 reflection 0.25 ambient 0.02 specular 0.25 roughness 0.005 }
  }

#declare tx_xadrez =
  texture{
    pigment{ checker color rgb < 0.10, 0.32, 0.60 >, color rgb < 1.00, 0.97, 0.90 > }
    finish{ diffuse 0.9 ambient 0.1 }
    scale 2.0
  }

#declare tx_marrom =
  texture{
    pigment{ color rgb < 0.50, 0.29, 0.25 > }
    finish{ diffuse 0.9 ambient 0.1 }
  }

#declare chao =
  box{ <-20,-20,-1>, <+20,+20,0> }

#declare bancada=
  box{ <0, 0, 0>, <4.0, 1.6, .5>
  texture{tx_marrom} }

#declare bancada2=
  box{ <0, 0, 0>, <4.0, 1.6*2, .5>
  texture{tx_marrom} }

#declare perna1=
  box{ <.1, .1, .5>, <.5, .5, 1.5>}

#declare perna2=
  box{ <.6, .1, .5>, <1, .5, 1.5>}

#declare corpo=
  box{ <1.05, .55, 1.5>, <.05, .05, 3>}

#declare cabeca=
  sphere{
    < 0.55, 0.3, 3.30 >, .3
  }

#include "eixos.inc"

#declare roleta=seed(315);

#macro escada(NumDegraus)
#declare i=0;
#declare j=0;
#declare k=0;
#declare cont=1;

union{
  #while(cont<=NumDegraus)
    object{ bancada  translate <0, i, j> scale <.5, 1,1+k> }
    #declare i=i+.8;
    #declare k=k+1;
    #declare cont=cont+1;
  #end
}
#end

#macro bancos(NumFileiras)
union{
  #declare i=0;
  #declare j=0;
  #declare k=0;
  #declare cont=1;
  #while(cont<=NumFileiras)
    object{ bancada translate <-4, 0+i, 0+j> scale<1, 1, 1+k>}
    #declare i=i+2*0.8;

    #declare k=k+2;
    #declare cont=cont+1;
  #end
}
#end

#macro torcedor(cor)
  union{
   object{cabeca texture{tx_fosca}}
   object{perna1 texture{tx_fosca}}
   object{perna2 texture{tx_fosca}}
   object{corpo  texture{cor}}
   translate <4,0,0>
  }
#end

object{ eixos(3.00) }

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

object{ escada(7) }

object{ bancos(3) }
object{ bancos(3) translate <6, 0, 0> }

#declare cont=1;
#declare cont2=1;
#declare i=0;
#declare j=0;
#declare k=0;

#while(cont2<=4)//varia altura
  #while(cont<=2) //varia para os lados
     object
     {  torcedor
        (
          #if(rand(roleta)<0.5)
            tx_marrom
          #else
            tx_fosca
          #end
         ) translate <i, k, j>
     }
     #declare i=i+1.5;
     #declare cont=cont+1;
   #end

   #declare i=0;
   #declare j=j+1;
   #declare k=k+.8;
   #declare cont2=cont2+1;
   #declare cont=1;
#end

#include "camlight.inc"
#declare centro_cena = < 0.00, 0.00, 1.00 >;
#declare raio_cena = 20.0;
#declare dir_camera = < -2.00, -7.00, 4.00 >;
#declare dist_camera = 16.0;
#declare intens_luz = 1.00;
camlight(centro_cena, raio_cena, dir_camera, dist_camera , z, intens_luz)