// Glow Blow
// copyright September 2000 Rune S. Johansen

#declare Clock = clock;
#declare X = 0;
#declare Y = 100;
#declare Seed = seed(0);
#while (X<Y)
   glow {
      0.01*2.5*(1-Clock)*pow(Clock,0.5)
   	glow_type 0
   	color vnormalize(<rand(Seed),rand(Seed),rand(Seed)*2>)
   	#declare V = <1,1,1>;
   	#while (vlength(V)>1)
   	   #declare V = (<rand(Seed),rand(Seed),rand(Seed)>-0.5)*2;
   	#end
   	location V*7*Clock+10*z
   }
   #declare X = X+1;
#end
sphere {-z, 0.1 pigment {color 0}}