// 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.30, 0.95, 0.10 > }
    finish{ diffuse 0.8 ambient 0.1 specular 0.5 roughness 0.005 }
  }

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

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

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

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

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

#declare tx_fosca =
  texture{
    pigment{ color rgb < 0.75, 0.25, 0.05 > }
    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 corpo =
        box {
                <0,0,0>,
                <2,1,4>
            texture{ tx_blue }
        }
#declare corpo2 =
        box {
                <0,0,0>,
                <2,1,4>
            texture{ tx_head }
        }

#declare braco =
        box {
                <0,0,0>,
                <-2,0.5,0.5>
            texture{ tx_head }
        }
#declare perna =
        box {
                <0,0,0>,
                <0.5,0.5,-2>
            texture{ tx_yellow }
        }

#declare head =
        sphere {
                <0,0,0>, 0.7
                texture{ tx_head }
        }

#declare boneco = union {
  object{head translate<1,0.5,4.6>}
  object{corpo translate <0,0,0>}
  object{braco translate <0,0.25,3>}
  object{braco translate <4,0.25,3>}
  object{perna translate <0.2,0.25,0>}
  object{perna translate <1.3,0.25,0>}
}
#declare boneco2 = union {
  object{head translate<1,0.5,4.6>}
  object{corpo2 translate <0,0,0>}
  object{braco translate <0,0.25,3>}
  object{braco translate <4,0.25,3>}
  object{perna translate <0.2,0.25,0>}
  object{perna translate <1.3,0.25,0>}
}

#declare chao =
  box{ <0,0,-1>, <20,10,0> }
#declare degrau =
        box {<0,0,0>,<5.5,1,0.5> texture{tx_marrom}     }
#declare degrau2 =
        box {<0,0,0>,<5.5,1,0.5> texture{tx_xadrez}     }

#declare banco = difference {
                sphere{ < 0,0,0 >, 0.5 texture{tx_plastico}}
                box {<1,-1,0>,<-1,1,-1> texture{tx_green}       }
        }
#macro escada(n)
        union {
                #declare i =0;
                #while (i<n)
                        #declare j=n-i;
                        #while (j>0)
                                object{degrau2 translate<0,i,j/2>}
                                #declare j=j-1;
                        #end
                        #declare i=i+1;
                #end
        }
#end

#macro secao(fileiras,assentos)
        union {
                #declare roleta = seed(9317);
                #declare i =0;
                #declare prob1=0.4;
                #declare prob2=0.3;
                #declare tamanho=5.5*assentos/4;
                #while (i<fileiras)
                        #declare j=fileiras-i;
                        #while (j>0)
                                object{degrau scale<tamanho/5.5,1,1> translate<0,i,j/2>}
                                #declare j=j-1;
                        #end

                        #declare k=0;
                        #while (k<assentos)
                                object{banco translate<(tamanho/assentos)*k+0.5,i+0.5,(fileiras-i)/2 +0.5>}
                                #if (rand(roleta) < prob1)
                                        object{boneco scale 0.15 translate<(tamanho/assentos)*k+0.5,i+0.5,(fileiras-i)/2+1.2>}
                                #else
                                        #if (rand(roleta) < prob2)
                                                object{boneco2 scale 0.15 translate<(tamanho/assentos)*k+0.5,i+0.5,(fileiras-i)/2+1.2>}
                                        #end
                                #end
                                #declare k = k+1;
                        #end
                        #declare i=i+1;
                #end

        }
#end
#include "eixos.inc"

union{
        object{ chao  translate < -7,5,0 > texture{ tx_plastico } }
        object{ eixos(3.00) }
        object{escada(6) translate <-5,0,0>}

        object{secao(6,9) scale 1}
        object{secao(6,9) rotate 180*z translate <7,22,0>}
        object{escada(6) rotate 180*z translate <12,22,0>}

}

#include "camlight.inc"
#declare centro_cena = < 0.00, 0.00, 1.00 >;
#declare raio_cena = 40.0;
#declare dir_camera = < 5.00, 10.00, 5.00 >;
#declare dist_camera = 100.0;
#declare intens_luz = 2.00;
camlight(centro_cena, raio_cena, dir_camera, dist_camera , z, intens_luz)