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

#include "dados.inc"

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

#declare tinta_A =
  texture {
    pigment { color rgb < 0.10, 0.80, 1.00 > }
    finish { diffuse 0.8 specular 0.2 roughness 0.005 ambient 0.1 }
  }

# declare cor_espelho =  < 1.00, 0.80, 0.10 >;
# declare tx_espelho =
   texture {
      pigment {rgb cor_espelho}
      finish {
          ambient 0.05 diffuse 0.55
   reflection 0.5*cor_espelho
          specular 0.20 roughness 0.05
 }
}

#declare L = 1.0;

#macro Cria_Barra(X1,Z1,X2,Z2)
 union{

  #declare Z3 = Z1/10;
  #declare Z4 = Z2/10;

  sphere{ <0,X1,Z3>,L/4 texture { tx_espelho } }
  cylinder{<0,X1,Z3>, <0,X2,Z4> ,L/5 texture { tinta_A }}
  sphere{ <0,X2,Z4>,L/4 texture { tx_espelho } }

 }
#end

#declare grafico = union{
 object{Cria_Barra(0,d0,1,d1)}
 object{Cria_Barra(1,d1,2,d2)}
 object{Cria_Barra(2,d2,3,d3)}
 object{Cria_Barra(3,d3,4,d4)}
 object{Cria_Barra(4,d4,5,d5)}
 object{Cria_Barra(5,d5,6,d6)}
 object{Cria_Barra(6,d6,7,d7)}
 object{Cria_Barra(7,d7,8,d8)}
 object{Cria_Barra(8,d8,9,d9)}

}

#declare eixo =
  union {
   cylinder {
     <0,0,0 >,
      <0,10,0 >,
       0.05
      texture { tx_espelho }
   }

 cylinder {
                 <0,0,0 >,
      <0,0,10 >,
                 0.05
      texture { tx_espelho }
   }

#declare i = 10;
 #while (i>0)

  cylinder {
                 <0,i,-0.2 >,
      <0,i,0.2 >,
                 0.05
      texture {tinta_A }}

  cylinder {
                 <0,-0.2,i >,
      <0,0.2,i >,
                 0.05
      texture {tinta_A }}
  #declare i = i-1;
 #end

}

union {   object{eixo}
  object{grafico}
 scale 0.8 rotate 10*z

}

#include "camlight.inc"
camlight(<0,4.50,4>,<10,5.50,1>,1.00,z,1.0)