// Entry code: wapntq
// Name      : Christian Froeschlin
// Frame rate: 30
global_settings 
{
  assumed_gamma 1.0
  max_trace_level 9
}

#local NUM = 20;

#macro pos(i,c)
#local a = 6.28*(i+(c+0.001)*(2*(mod(i,2)+1))) / NUM;
<cos(a),sin(a),5>
#end

// final: c = 0.99*clock
#if (frame_number = 0) 
#local c = 0;
#else
#local c = (frame_number-1)/final_frame;
#end

#local i = 0;
#while (i < NUM)
sphere 
{
  pos(i,c),1  
  pigment {color rgbt 1}
  interior 
  {
    media {emission rgb (1.5/NUM)*x}
  }
  hollow
  #local i = i + 1;
}
#end

sphere {0,2.4 scale <1,1,.01> translate 6*z}

plane {-z,-10 pigment {ripples frequency 3 phase 1-c color_map {[0 rgb .1*z] [1 rgb .2*z]}} finish {ambient 1}}