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

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

#declare tx_pele =
  texture{
    pigment{ color rgb < 1, 0.75, 0.85 > }
    finish{ diffuse 0.8 ambient 0.1 specular 0.5 roughness 0.005 }
  }

#declare tx_corpo =
  texture{
    pigment{ color rgb < 1, 0, 0 > }
    finish{ diffuse 0.8 ambient 0.1 specular 0.5 roughness 0.005 }
  }

#declare tx_branco =
  texture{
    pigment{ color rgb < 1, 1, 1 > }
    finish{ diffuse 0.8 ambient 0.1 specular 0.5 roughness 0.005 }
  }

#declare tx_corpo2 =
  texture{
    pigment{ color rgb < 0, 1, 0 > }
    finish{ diffuse 0.8 ambient 0.1 specular 0.5 roughness 0.005 }
  }

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

#declare tx_calca2 =
  texture{
    pigment{ color rgb < 0.5, 0.15, 0.05 > }
    finish{ diffuse 0.8 ambient 0.1 specular 0.5 roughness 0.005 }
  }

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

#declare tx_sapato2 =
  texture{
    pigment{ color rgb < 1, 1, 1 > }
    finish{ diffuse 0.8 ambient 0.1 specular 0.5 roughness 0.005 }
  }

#declare tx_escada =
  texture{
    pigment{ color rgb < 0.824, 0.824, 0.824 > }
    finish{ diffuse 0.8 ambient 0.1 specular 0.5 roughness 0.005 }
  }

#declare tx_campo =
  texture{
    pigment{ color rgb < 0, 1, 0 > }
    finish{ diffuse 0.8 ambient 0.1 specular 0.5 roughness 0.005 }
  }

#declare tx_base =
  texture{
    pigment{ color rgb < 1, 0, 0 > }
    finish{ diffuse 0.8 ambient 0.1 specular 0.5 roughness 0.005 }
  }

#declare tx_piso =
  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_piso2 =
  texture{
    pigment{ color rgb < 0.10, 0.32, 0.60  > }
    finish{ diffuse 0.8 ambient 0.1 specular 0.5 roughness 0.005 }
  }

#declare raio = 1.000;

#declare cabeca =
  sphere{ < 0,0,0 >, 0.2
  texture{ tx_pele }
  }

#declare mao =
  sphere{ < 0,0,0 >, 0.1
  texture{ tx_pele }
  }

#declare pe =
  sphere{ < 0,0,0 >, 0.15
  texture{ tx_sapato }
  }

#declare pe2 =
  sphere{ < 0,0,0 >, 0.15
  texture{ tx_sapato2 }
  }

#declare corpo =
  cone{
    < 0.00, 0.00, 0.90 >, 0.2,
    < 0.00, 0.00, 0.0 >, 0.4
    texture{ tx_corpo }
  }

#declare braco =
  box{ <+0.1,-0.5,-0.1>, <-0.1,+0.5,0.1>
   texture{ tx_corpo }
}

#declare corpo2 =
  cone{
    < 0.00, 0.00, 0.90 >, 0.2,
    < 0.00, 0.00, 0.0 >, 0.4
    texture{ tx_corpo2 }
  }

#declare braco2 =
  box{ <+0.1,-0.5,-0.1>, <-0.1,+0.5,0.1>
   texture{ tx_corpo2 }
}

#declare perna =
  box{ <+0.1,-0.1,-0.3>, <-0.1,+0.1,0.3>
   texture{ tx_calca }
}

#declare perna2 =
  box{ <+0.1,-0.1,-0.3>, <-0.1,+0.1,0.3>
   texture{ tx_calca2 }
}

#declare degrau =
  box{ <+0.5,-5,-0.5>, <-0.5,+4,0.5>
  texture{ tx_piso }
}

#declare menino = union {
object { cabeca translate <0,0,2>}
object { corpo translate <0,0,0.9>}
object { braco translate <0,0,1.5>}
object { perna translate <0,-0.2,0.6>}
object { perna translate <0,0.2,0.6>}
object { mao translate <0,-0.6,1.5>}
object { mao translate <0,+0.6,1.5>}
object { pe translate <0,-0.2,0.3>}
object { pe translate <0,+0.2,0.3>}
scale 0.5
}

#declare menina = union {
object { cabeca translate <0,0,2>}
object { corpo2 translate <0,0,0.9>}
object { braco2 translate <0,0,1.5>}
object { perna2 translate <0,-0.2,0.6>}
object { perna2 translate <0,0.2,0.6>}
object { mao translate <0,-0.6,1.5>}
object { mao translate <0,+0.6,1.5>}
object { pe translate <0,-0.2,0.3>}
object { pe translate <0,+0.2,0.3>}
scale 0.5
}

#declare apoio =
  box{ < -0.05, 0.2, 0.35 >,  < -0.15,  -0.2, 0.85  >
   texture{ tx_base }
}

#declare base =
  box{
    < 0.45, 0.2, 0.15 >,  < -0.15, -0.2, 0.25 >
    texture{ tx_base }
  }

#declare degrau =
  box{ <+0.5,-5,-0.5>, <-0.5,+4,0.5>
  texture{ tx_piso }
}

#declare campo =
  box{ <+5,10,-0.15>, <-5,-10,0.15>
  texture{ tx_campo }
}

#declare linha =
  box{ <+5,0.25,-0.15>, <-5,-0.25,0.17>
  texture{ tx_branco }
}

#declare cadeira = union {
object {  base translate <0,0,0>}

object {  apoio translate <0,0,0>}

}

#declare roleta = seed(315);

#macro secao(fileiras, cadeiras, largura, tx_random)
  union {
    #declare j=fileiras;
    #while  (j>-1)
      #declare i=cadeiras;
      #while  (i>-1)

          #if (rand(roleta) < 0.75)
              #if (rand(roleta) < 0.5)
                object { menina  translate <-j,i*0.8-largura,1+j>}
              #else
               object { menino  translate <-j,i*0.8-largura,1+j>}
              #end
          #end

          object { cadeira  translate <-j,i*0.8-largura,1+j>}
        #declare i = i-1;
      #end
      box{ <-j,-largura,j>, <1-j,+largura,1+j>
        texture{ tx_random } }
      #declare j = j-1;
    #end
  }
#end

#macro escada (fileiras, largura)
  union {
    #declare j=fileiras;
    #while  (j>-1)
       box{ <-j,-largura,j>, <1-j,+largura,1+j>
        texture{ tx_escada } }
      #declare j = j-1;
    #end
  }
#end

#include "eixos.inc"

union {

  object {secao (10, 7, 3, tx_piso)   translate <-6,-7,0>}

  object {escada (10,  0.5)   translate <-6,-3.5,0>}

  object {secao (4, 9, 4, tx_piso2)   translate <-6,1,0>}

  object {secao (3, 7, 4, tx_piso)   translate <-12,1,6>}

   object {escada (8,  0.5)   translate <-6,5.5,0>}

  object {secao (7, 4, 2, tx_piso)   translate <-6,8,0>}

  object {escada (8,  0.5)   translate <-11,4.5,0> rotate 90*z}

  object {secao (7, 9, 4, tx_piso)   translate <-11,0,0> rotate 90*z}

  object {escada (6,  0.5)   translate <-11,-4.5,0> rotate 90*z}

  object { linha}

  object { campo}

  scale 0.5
}

#include "camlight.inc"
#declare centro_cena = < 0.00, 0.00, 1.00 >;
#declare raio_cena = 10.0;
#declare dir_camera = <25.00, 15.00, 7.00 >;
#declare dist_camera = 16.0;
#declare intens_luz = 1.00;
camlight(centro_cena, raio_cena, dir_camera, dist_camera , z, intens_luz)