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

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

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

#declare scale_roda = .2;

#declare pessoa =
union{

  object{ sphere{ <0,0,0>, 1} texture{ tx_pele } }

  object{ cylinder{ <0,0,0> <0,0,-1.3> .3} texture{ tx_pele } }

  object{ cone{ <0,0,-1.3> .5 <0,0,-3> 1} texture{ pigment{ color rgb<.1,1,.1>} } }

  object{ cylinder{ <0,-1.5,-2> <0,+1.5,-2> .3} texture{ tx_pele } }

  object{ cylinder{ <0,-.5,-2> <0,-.5,-4> .3} texture{ tx_pele } }
  object{ cylinder{ <0,+.5,-2> <0,+.5,-4> .3} texture{ tx_pele } }
}

#declare pessoa_boba =
union{

  object{ sphere{ <0,0,0>, 1} texture{ tx_pele } }

  object{ cylinder{ <0,0,0> <0,0,-1.3> .3} texture{ tx_pele } }

  object{ cone{ <0,0,-1.3> .5 <0,0,-3> 1} texture{ pigment{ color rgb<1,.3,.3>} } }

  object{ cylinder{ <0,-1.5,-2> <0,+1.5,-2> .3} texture{ tx_pele } }

  object{ cylinder{ <0,-.5,-2> <0,-.5,-4> .3} texture{ tx_pele } }
  object{ cylinder{ <0,+.5,-2> <0,+.5,-4> .3} texture{ tx_pele } }
}

#declare coral =
union{
#declare coluna=0;
#while(coluna<8)
   #declare fila=0;
   #while(fila<3)
      #if(mod((1+coluna)*(1+fila),5)=4)
         object{ pessoa_boba translate <fila,3.5*coluna,-fila> }
      #else
         object{ pessoa translate <fila,3.5*coluna,-fila> }
      #end
      #declare fila=fila+1;
   #end
   #declare coluna=coluna+1;
#end
}

#declare escada =
union{
#declare i=0;
#while(i<3)
  object{ box{ <0,0,-i> <i+1,2,-i-1> } scale<1,14,1> translate<-.5,-1.5,-4> texture{ tx_escada } }
#declare i=i+1;
#end
}

#include "eixos.inc"

union{
  object{ eixos(3.00) }

  object{ coral }
  object{ escada }

}

#include "camlight.inc"
#declare centro_cena = < 0.00, 3.00, -3.00 >;
#declare raio_cena = 26.0;
#declare dir_camera = < 5.00, -2.01, 3.00 >;
#declare dist_camera = 8.0;
#declare intens_luz = 1.00;
camlight(centro_cena, raio_cena, dir_camera, dist_camera , z, intens_luz)