#macro stream(origin,length,rad,quantity)

  #local S = seed(5132);
  
  #local cnt = 0;

  union{
  
  #while ( cnt < quantity )
  
    #local len = .3*length*(rand(S)+.1*rand(S))+.7*length;
    
    sphere{ <0,0,0>, rad scale <1,5,1>
      translate (rand(S)+.1*rand(S)+.01*rand(S)+.001*rand(S))*length*-y  
      translate origin
      hollow
      texture{ 
        pigment{ color rgbt <1,1,1,.73> }
        finish{ ambient .6 diffuse .8 }
        }
      }
      
    #local cnt = cnt + 1;
    
  #end
  
  }
  
#end