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

#version 3.1;
global_settings {
  max_trace_level 30
  assumed_gamma 2.2
  }

camera {
  location <5000,-500,-2000>
  angle 34
  look_at <-2000, -2200, 0>
  }

light_source {<3000, 1000, -2000> color <1,1,1>}

#macro Chaos (Iend,A,Zp)
#declare X=0;
#declare Y=0;
#declare Z=0;
#declare I=0; #while (I<Iend)
  #declare Tx=Y-(1+A*X+1.8*X*X/(1+X*X));
  #declare Ty=-X;
  #declare X=Tx;
  #declare Y=Ty;
  sphere { <400*X, -400*Y, Zp> 10
    pigment {color rgb <I/Iend,0.73-0.7*I/Iend-0.03*(X*X+Y*Y),0.03*(X*X+Y*Y)>}
    finish { reflection 0 ambient 0.6 phong 1 brilliance 1 diffuse 1 }
    rotate x*93
    }
#declare I=I+1; #end 
#end

#declare J=2; #while (J<10) 
#if (J=5.3) #declare In=5000; #else #declare In=100; #end
  Chaos (In,J/10,300*J)
#declare J=J+0.1; #end 

background { color rgb <0.1,0.05,0.2> }