// CHAOS / Junction '00.04
// By Tsutomu HIGO  E-mail: nj2t-hg@asahi-net.or.jp

#version 3.1;
#global_settings { assumed_gamma 2.2 }

camera {
  location  <12, 4, -50>
  look_at <10, 5, 0>
  angle 15
  }

#declare A = 0.9;  #while (A < 4.001)
  #declare Nend = 101;
  #declare X = 0.1;
  #declare Aa = A;
  #declare N = 1;  #while (N < Nend)
    #declare Tx = Aa*X*(1-X);
    #declare X = Tx;
    #if ( N > Nend-25 )
    sphere {
      <4*A, 10*Tx, Nend-N> 0.05
      pigment { color rgb < 1-(Nend-N)/100-0.5*mod(N,4)-0.75*mod(N+1,2), 1-(Nend-N)/25, 1-0.5*mod(N,2)> }
      finish { ambient 0.5 diffuse 0.5 }
      no_shadow
      }
    #end
  #declare N = N+1;  #end
#declare A = A+0.002;  #end
 
light_source {
  <500, 600, -2000> 
  color rgb <1,1,1>
  }