// Last edited on DATE TIME by USER
// Processed by remove-cam-lights
background{ color rgb < 1, 1, 1 > }

#declare perna1 =
  cylinder{
    < 0, 1, 2 >,
    < 0, 0, 0 >,
    0.3
  }
#declare perna2 =
  cylinder{
    < 0, 1.7, 2 >,
    < 0, 2.7, 0 >,
    0.3
  }
#declare corpo =
   box{
    < 0.4, 0, 5 >,
    <-0.4, 2.7, 1.6 >
  }
#declare braco1 =
  cylinder{
    < 0, 0, 4 >,
    < 0, -1.20, 4 >,
    0.2
  }
#declare braco2 =
  cylinder{
    < 0, 2.7, 4 >,
    < 0, 3.9, 4 >,
    0.2
  }
#declare cabeca =
  sphere {
    < 0, 1.35, 5.8 >,
    0.8
  }
#declare pessoa =
union {
    object {perna1}
    object {perna2}
    object {braco1}
    object {braco2}
    object {corpo}
    object {cabeca}
}

#declare escada =
union {
  #declare i=0;
  #while (i <  4)
      box{
        < 0, -25.5, 0+(0.5*i) >,
        <6-(1.5*i), 25.5, 0.5+(0.5*i) >

        texture{
          pigment{ color rgb < 0.20+(0.1*i), 0.50+(0.1*i), 0.30+(0.1*i) > }
          finish{ diffuse 0.8 ambient 0.1 specular 0.5 roughness 0.005 }
        }
      }
      #declare i = i+1;
  #end
  scale 0.2
}

#declare coral =
union {
  #declare j=0;
  #while (j <  4)

    #declare i=0;

      #while (i <  10)

          #if (i = 6 & j = 2)
                #declare tx_pessoas =
                  texture{
                    pigment{ color rgb < 0.20, 0.50, 0.90 > }
                    finish{ diffuse 0.8 ambient 0.1 specular 0.5 roughness 0.005 }
                  }
          #else
                #if (i = 2 & j = 1)
                    #declare tx_pessoas =
                      texture{
                        pigment{ color rgb < 0.4, 0.90, 0.20 > }
                        finish{ diffuse 0.8 ambient 0.1 specular 0.5 roughness 0.005 }
                      }
                #else
                    #declare tx_pessoas =
                      texture{
                        pigment{ color rgb < 0.7, 0.20, 0.10 > }
                        finish{ diffuse 0.8 ambient 0.1 specular 0.5 roughness 0.005 }
                      }
                #end
          #end
              object {pessoa translate <0.7+(1.5*j) , -25.5+(5.1*i), 2-(0.5*j)>
                texture {tx_pessoas}
              }
          #declare i = i+1;
      #end

      #declare j = j+1;
  #end
  translate <0, 1, 0 >
  scale 0.2

}

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

#include "camlight.inc"
#declare centro_cena = < 0.00, 0.00, 1.00 >;
#declare raio_cena = 9.0;
#declare dir_camera = < 3, 3, 1 >;
#declare dist_camera = 16.0;
#declare intens_luz = 1.00;
camlight(centro_cena, raio_cena, dir_camera, dist_camera , z, intens_luz)