// Last edited on 2005-01-06 00:37:48 by stolfi
// Processed by remove-cam-lights

background{ color rgb < 0.85, 0.70, 0.70 > }

#declare textura_barra =
  texture {
    pigment { rgb <0.5, 0.5, 1.0> }
    finish { diffuse 0.5 }
  }

#declare textura_palco =
  texture {
    pigment { rgb <0.5, 0.5, 0.5> }
    finish { diffuse 0.6 reflection 0.1 roughness 0.2 }
  }

#declare chao =
  plane {
    y,
    0
    texture {
      pigment { checker <0.65, 0.65, 0.35>, <0.50, 0.50, 0.50> }
      finish {diffuse 0.5}
      scale 10
    }
  }

#declare G = seed(25745);

#declare planodx = 100;
#declare planodz = 100;

#macro barra(altura, ordem, contagem)
  #local barradx = planodx / (contagem + 1);
  #local barradz = planodz / (contagem + 1);
  #local dxusado = barradx * 0.3;
  #local dzusado = barradz * 0.3;

  #if (ordem != (contagem + 1) / 2 + contagem)
    box {
      <-dxusado, 0, -dzusado>,
      <+dxusado, altura, +dzusado>
      translate
      #if (ordem <= contagem)
        <ordem*barradx, 0, ordem*barradz>
      #else
        <(ordem - contagem)*barradx, 0, (2*contagem - ordem + 1)*barradz>
      #end
    }
  #end
#end

union {
  union {
    #include "dados.inc"
    texture { textura_barra }
    translate <0,+5,0>
  }
  box { <0,0,0>, <planodx, 5, planodz> texture { textura_palco } }
  object { chao }
}

#include "camlight.inc"
camlight(<50,35,50>,<-35,63,250>,1.00,y,1.0)