home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 8 / CDASC08.ISO / NEWS / RADIANCE / SCN / PODLIFE / BUB.CAL < prev    next >
Text File  |  1993-10-07  |  281b  |  19 lines
  1. xcent = crad*cos(th);
  2. ycent = y0 + (ymax-y0)*t;
  3. zcent = crad*sin(th);
  4.  
  5. radius = .02 + .02*rand(-t+t0);
  6.  
  7. th = t0 + PI*t + toff;
  8.  
  9. toff = .5*rand(-t-t0);
  10. crad = sqrt(x0*x0 + z0*z0) + if(rand(t-2*t0)-.5, .5, -.5)*toff;
  11.  
  12. t0 = atan2(z0,x0);
  13. ymax = 9.48;
  14.  
  15. x0 = 3;
  16. y0 = 2;
  17. z0 = 0;
  18. b0 = 0;
  19.