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

#version 3.1;
#global_settings { assumed_gamma 2.2 }

camera {
  location <600,1600,-200>
  angle 60
  look_at <-400, -900, 0>
  }

light_source {<1000, 3000, 0> color <1,1,1>}

#macro Chaos (Iend,A,B,Zp)
#declare X=0;
#declare Y=0;
#declare Z=0;
#declare I=0; #while (I<Iend)
  #declare Tx=Y-(1+A*X+B*X*X/(1+X*X));
  #declare Ty=-X;
  #declare X=Tx;
  #declare Y=Ty;
  sphere { <500*X, -500*Y, Zp> 10
    pigment {color rgb <1.4,0,0>}
    finish { reflection 0 ambient 0.2 phong 3 brilliance 0.3 diffuse 0.3 }
    }
#declare I=I+1; #end 
#end

union {
  #declare J=-5; #while (J<24)
    Chaos (30, 0.45, 1+J/10, 200*J-200)
  #declare J=J+0.06/(J+10); #end  
  rotate z*40 rotate <30,-60,0>
  no_shadow
  }