// TOWERS / No.2 '06.04
// by Tsutomu HIGO  URL:http://www.asahi-net.or.jp/~nj2t-hg/

#version 3.6;
global_settings {
  max_trace_level 5
  assumed_gamma 2.2
  }

#declare Rn=seed(5);

camera {
  location <100, 10, -350>
  look_at <100, 50, 0>
  angle 120
  }

light_source {<-1000, 300, 1000> color rgb <1, 0.5, 0.3>}

union {
  #declare Knum=40; #declare K=0; #while(K<Knum)
  #declare Jnum=40; #declare J=0; #while(J<Jnum)
    #declare Kdev=rand(Rn);
    #declare Jdev=rand(Rn);
  #declare Inum=50; #declare I=0; #while(I<Inum)
    disc { <0, 0, 0> y, 10, 8
      texture {pigment {color rgbt <1, 1, 1, 0.9>} }
      finish {
        ambient 0.3
        diffuse 1
        reflection 1
        specular 0.6
        }
      no_shadow
      rotate x*I
      #declare Xp=40*(K-Knum/2)+20*(Kdev-0.5);
      #declare Zp=40*(J-Jnum/4)+20*(Jdev-0.5);
      #declare Dyp=0.0001*(Xp*Xp+Zp*Zp);
      translate <Xp, 0.1*(pow(I,1.6)-Inum/2)*2-Dyp, Zp>
      }
  #declare I=I+1; #end
  #declare J=J+1; #end
  #declare K=K+1; #end
  }

background {color rgb <0.1, 0.0, 0.03>}