home *** CD-ROM | disk | FTP | other *** search
/ Education Sampler 1992 [NeXTSTEP] / Education_1992_Sampler.iso / SoundAndMusic / Hyperupic / Hyperupic.app / rand.c < prev    next >
Text File  |  1992-08-10  |  301b  |  20 lines
  1. static  long    randx = 1;
  2.  
  3. void srrand(x)
  4. unsigned x;
  5. {
  6.     randx = x;
  7. }
  8.  
  9. float rrand()
  10. {
  11.     int i = ((randx = randx*1103515245 + 12345)>>16) & 077777;
  12.     return((float)i/16384. - 1.);
  13. }
  14.  
  15. float prand()
  16. {
  17.     int i = ((randx = randx*1103515245 + 12345)>>16) & 077777;
  18.     return((float)i/32768.);
  19. }
  20.