// FLOW / ADMIRING '01.08
// By Tsutomu HIGO  E-mail: nj2t-hg@asahi-net.or.jp

#version 3.1;
global_settings {
  max_trace_level 6
  assumed_gamma 2.2
  }

camera {
  location <10,10,-50>
  angle 12
  look_at <0,-2.5,0>
  }

light_source {<0,0,-5> color rgb <1,1,1>}
light_source {<-20,30,-18> color rgb <0.9,0.9,1>}
 
#declare Cn =0; #while (Cn<36)
  #declare Rb =0;
  #declare R1 =seed(Cn*20);
  #declare Xr =80+5*rand(0);
  #declare Yr =120+5*rand(0);
  #declare Xp =0;
  #declare Yp =0;
  #declare Zp =0;
  #declare Ctm =70;
  #declare Ct =0; #while (Ct<Ctm)
    #declare Xr =Xr+17*rand(R1)*pow((Ct-Ctm)/Ctm,3);
    #declare Yr =Yr+16*rand(R1)*pow((Ct-Ctm)/Ctm,3);
    #if(Ct>Ctm/6) #declare R =0.5;
      #else       #declare R =0.5*Ct/Ctm*6;
      #end
    union {
      cone { <0, 0, 0>, Rb, <0, 1, 0>, R
        rotate <Xr,Yr,0> translate <Xp,Yp,Zp> rotate x*90
        }
      sphere { <0,0,0> Rb
        translate <Xp,Yp,Zp> rotate x*90
        }
      pigment {color rgb <1,0.9,0.8>}
      finish {
        ambient pow(1-Ct/Ctm,5)
        phong 0.3
        reflection 0.9
        }
      scale 0.5 rotate z*(Cn*100) rotate x*40
      no_shadow
      }
    #declare Rb =R;
    #declare Xp =Xp+sin(Xr*pi/180)*sin(Yr*pi/180);
    #declare Yp =Yp+cos(Xr*pi/180);
    #declare Zp =Zp+sin(Xr*pi/180)*cos(Yr*pi/180);
  #declare Ct = Ct+1; #end
#declare Cn = Cn+1; #end

sky_sphere {
  pigment {
    gradient y
    color_map {
      [ 0.5  color rgb <0,0,0.5> ]
      [ 1.0  color rgb <0,0,0> ]
      }
    scale 2
    rotate z*-30 translate -1.2
    }
  }