qcsrc/client/noise.qc

   1 #if defined(CSQC)
   2         #include "../dpdefs/csprogsdefs.qh"
   3         #include "noise.qh"
   4 #elif defined(MENUQC)
   5 #elif defined(SVQC)
   6 #endif
   7
   8 .float noise_baccum;
   9 .float noise_paccum;
  10 .float noise_paccum2;
  11 .float noise_paccum3;
  12 .float noise_bstate;
  13 float Noise_Brown(entity e, float dt)
  14 {
  15         e.noise_baccum += random() * sqrt(dt); // same stddev for all dt
  16         return e.noise_baccum;
  17 }
  18 float Noise_Pink(entity e, float dt)
  19 {
  20         float f;
  21         f = dt * 60;
  22         // http://home.earthlink.net/~ltrammell/tech/pinkalg.htm
  23         if(random() > pow(0.3190, f))
  24                 e.noise_paccum = 0.34848 * (2 * random() - 1);
  25         if(random() > pow(0.7756, f))
  26                 e.noise_paccum2 = 0.28768 * (2 * random() - 1);
  27         if(random() > pow(0.9613, f))
  28                 e.noise_paccum3 = 0.43488 * (2 * random() - 1);
  29         return e.noise_paccum + e.noise_paccum2 + e.noise_paccum3;
  30 }
  31 float Noise_White(entity e, float dt)
  32 {
  33         return random() * 2 - 1;
  34 }
  35 float Noise_Burst(entity e, float dt, float p)
  36 {
  37         if(random() > pow(p, dt))
  38                 e.noise_bstate = !e.noise_bstate;
  39         return 2 * e.noise_bstate - 1;
  40 }