// 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.9 ambient 0.4 specular 0.5 roughness 0.505 }
  }

#declare tx_fosca =
  texture{
    pigment{ color rgb < 1.00, 0.80, 0.10 > }
    finish{ diffuse 0.8 ambient 0.4 }
  }

#declare tx_farol =
  texture{
    pigment{ color rgb < 1.00, 0.90, 0.10 > }
    finish{ diffuse 0.9 ambient 0.8 }
  }

#declare tx_espelho =
  texture{
    pigment{ color rgb < 1.00, 0.85, 0.30 > }
    finish{ diffuse 0.2 reflection 0.9*< 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 roleta = seed(100000);

#declare campo =
        box{ <-50,-20,0>,<50,20,0.2>
                texture{pigment{color rgb<0.196,0.804,0.196>} finish{diffuse 0.2 ambient 0.5}}
        }

#macro cadeira(cx,cy,cz,r,g,b)
        union{
                box{<cx-0.5,cy-0.5,cz>,<cx+0.5,cy+0.5,cz+0.2> texture{tx_plastico}}
                box{<cx-0.5,cy-0.4,cz+0.2>,<cx+0.5,cy-0.5,cz+0.6> texture{tx_plastico}}

                #if(rand(roleta) < 0.3)
                        object{torcedor(cx,cy,cz,0.89,0,0)}
                #else
                  #if(rand(roleta) < 0.66)
                        object{torcedor(cx,cy,cz,0,0,0.85)}
                  #end
                #end

        }

#end

#macro escada(cx,cy,cz,tam,degraus)
        union{
                #declare loop = degraus-1;

                #while(loop != -1)
                        box{<cx - tam,cy-0.5*loop,cz>,<cx+tam,cy-0.5-0.5*loop,cz+0.5+0.5*loop> texture{tx_fosca}}

                        #declare loop = loop - 1;
                #end

        }
#end

#macro secao(cx,cy,cz,fileiras,cadeiras)
        union{
                #declare loop = fileiras-1;

                #while(loop != -1)
                        box{<cx - (cadeiras/2)*1.1,cy-1.2*loop,cz>,<cx+(cadeiras/2)*1.1,cy-1.2-1.2*loop,cz+1+1*loop> texture{tx_fosca}}
                        #declare loop2 = cadeiras-1;
                                #while(loop2 != -1)
                                        cadeira(cx-(cadeiras/2)*1.1+0.5+1.1*loop2,cy-1.2*loop-0.7,cz+1+1*loop,0,0,0)

                                        #declare loop2 = loop2 - 1;
                                #end
                        #declare loop = loop - 1;
                #end

        }
#end

#macro torcedor(cx,cy,cz,re,gr,bl)
        union{
        cone{<cx,cy,cz+0.2> 0.4,<cx,cy,cz+0.6>0 texture{pigment{color rgb<re,gr,bl>} finish{diffuse 0.9 ambient 0.7}}}
        sphere{<cx,cy,cz+0.76>0.16 texture{pigment{color rgb<0.921,0.78,0.619>}}}
        }
#end

#include "eixos.inc"

union{
  object{ eixos(3.00) }
  object{campo}
  object{secao(-40.1,-21,0,5,18)}
  object{escada(-28,-21,0,2.2,10)}
  object{secao(-18.1,-21,0,5,14)}
  object{escada(-8,-22,0,2.4,22)}
  object{secao(21.9,-21,0,10,50)}

        union{
          object{secao(-40.1,-21,0,5,18)}
          object{escada(-28,-21,0,2.2,10)}
          object{secao(-18.1,-21,0,5,14)}
          object{escada(-8,-22,0,2.4,22)}
          object{secao(21.9,-21,0,10,50)}
          scale<1,-1,1>
        }

}

#include "camlight.inc"
#declare centro_cena = < 0.00, 0.00, 0.00 >;
#declare raio_cena = 50.0;
#declare dir_camera = < 80.01, 20.01,20.00 >;
#declare dist_camera = 100.0;
#declare intens_luz = 1.00;
camlight(centro_cena, raio_cena, dir_camera, dist_camera , z, intens_luz)