#declare R = seed(0);
#declare T = clock;
#declare S1 = abs (sin((2*pi*T)+rand(R)));
#declare S2 = abs (cos((2*pi*T)+rand(R)));
#declare S3 = abs (sin((2*pi*T)+rand(R)));
#declare S4 = abs (cos((2*pi*T)+rand(R)));
#declare S5 = abs (sin((2*pi*T)+rand(R)));
#declare S6 = abs (cos((2*pi*T)+rand(R)));
#declare S7 = abs (sin((2*pi*T)+rand(R)));
#declare S8 = abs (cos((2*pi*T)+rand(R)));
#declare S9 = abs (sin((2*pi*T)+rand(R)));
#declare S10 = abs (cos((2*pi*T)+rand(R)));
#declare S11 = abs (sin((2*pi*T)+rand(R)));
#declare S12 = abs (cos((2*pi*T)+rand(R)));
#declare S13 = abs (sin((2*pi*T)+rand(R)));
#declare S14 = abs (cos((2*pi*T)+rand(R)));
#declare S15 = abs (sin((2*pi*T)+rand(R)));
#declare S16 = abs (cos((2*pi*T)+rand(R)));
#declare S17 = abs (sin((2*pi*T)+rand(R)));


#declare Values = array[17]  { S1*20 ,
S2*20,
S3*20,
S4*20,
S5*20,
S6*20,
S7*20,
S8*20,
S9*20,
S10*20,
S11*20,
S12*20,
S13*20,
S14*20,
S15*20,
S16*20,
S17*20

}    




/*

Poměrně primitivní příklad generátoru sloupcových grafu, doplněný o animaci.

Hodnoty jednotlivých sloupců určují goniometrické funkce závislé na systémové proměnné clock.


Sloupců je 22 od kraje do kraje při 16:9 poměru stran výsledného obrazu.

Číslo v hranatých závorkách musí udávat počet hodnot.


*/            

#declare Radiosity=1; // nebo 0 pro zapnuté nebo vypnuté vyzařování ( Radiosity - metoda výpočtu scény )      

    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    

//-------------------------------------------------------------------------      

// níže uvedená nastavení měňte jen za předpokladu, že rozumíte skriptovací mu jazyku POV-Ray
      
      
#version 3.6;

global_settings { assumed_gamma 1.8 max_trace_level 15 adc_bailout 0 } 


#if (Radiosity=1)

global_settings {
  radiosity {
    pretrace_start 0.08           
    pretrace_end   0.04           
    count 35                      
    nearest_count 5               
    error_bound 1.8               
    recursion_limit 3             
    low_error_factor .5           
    gray_threshold 0.0            
    minimum_reuse 0.015           
    brightness 1                  

    adc_bailout 0.01/2
  }
}

#end

  

#include "shapes.inc"

camera {
  location  <0.0, 0, -4.0>
  direction 1.5*z
  right     x*image_width/image_height
  look_at   <0.0, 0.0,  0.0>
}


light_source {
  0*x                 
  color rgb 1.0       
  area_light
  <30, 0, 0> <0, 0, 30> 
  14, 14                
  adaptive 1          
  jitter              
  circular            
  orient              
  translate <-5, 180, -80>   
}   

light_source {
  0*x                 
  color rgb 1.0       
  area_light
  <30, 0, 0> <0, 0, 30> 
  14, 14                
  adaptive 1          
  jitter              
  circular            
  orient              
  translate <-5, 0, -80>  
}   


// ----------------------------------------

plane { y, -0.9999  texture { pigment { color rgb <1.0,1.0,1.0> } normal { wrinkles .5 scale .01 } } hollow }
 
plane { z, 1  texture { pigment { color rgb <1.0,1.0,1.0>/2 } normal { wrinkles .5 scale .01 } } hollow }




union {

#declare Count=0;  
#while ( Count<dimension_size(Values,1) )

#if (Values[Count]>0) 
#declare prvek=Round_Cylinder(0*y, y*(0.001+Values[Count]), 1, 0.2-(0.2*(Values[Count]<0.2))+-(0.05*(Values[Count]<0.2)) , 0);  
#else
#declare prvek=Round_Cylinder(0*y, y*(0.001+Values[Count]), 1, 0, 0);  
#end



object { prvek scale .1
translate <-2+(Count/4),-1,0>  
}

#declare Count=Count+1;
#end

texture { pigment { gradient y 

color_map {
  [ 0.0  color rgb <1.0,1.0,1.0> ] 
  [ 0.5  color rgb <1.0,0.3,0.3> ]   
  [ 1.0  color rgb <1.0,0.0,0.0> ]
} 

scale <1,2,1> translate <0,1.01,0>

}

finish { phong 0.9 phong_size 160 }


 }


}