added signal versions of 3 of the PRN generation algorithms from randomix.

more to come ...

svn path=/trunk/externals/cxc/; revision=447

10 files changed, 376 insertions, 124 deletions

diff --git a/ENV.c b/ENV.c
index d80331b..d2bba4d 100644
--- a/ENV.c
+++ b/ENV.c
@@ -80,6 +80,6 @@ void ENV_setup(void)
     class_addmethod(ENV_class, (t_method)ENV_getenv, gensym("getenv"), A_SYMBOL);
     class_addmethod(ENV_class, (t_method)ENV_setenv, gensym("setenv"), A_SYMBOL, A_SYMBOL);
     class_addfloat(ENV_class, ENV_float);
-    class_sethelpsymbol(ENV_class, gensym("cxc/ENV"));
+    class_sethelpsymbol(ENV_class, gensym("ENV.pd"));
 }
 
diff --git a/README b/README
index 40b1b6a..e353408 100644
--- a/README
+++ b/README
@@ -7,74 +7,86 @@ USE AT YOUR OWN RISK!
 NO WARRANTY WHATSOEVER!
 THIS IS GPL SOFTWARE.
 see gpl.txt in this directory or http://www.gnu.org/licenses/gpl.txt
+etc blah blah ...
 
 install:
-adjust makefile settings
+./configure --prefix=/path/to
 
 then type
 $ make
 $ make install
 
 (install cxc.pd_linux in $PREFIX/lib/pd/externs
-and                   in $PREFIX/lib/pd/doc/5.refernce/cxc
+and documentation     in $PREFIX/lib/pd/doc/5.refernce
 
 
 included objects:
 
-ixprint: print data on console without prefix (needed for ascwave)
-========
+ixprint:
+print data on console without prefix (needed for ascwave)
 
-binshift: binary shift objects (<<,>>)
-=========
+binshift:
+binary shift objects (<<,>>)
 
-ascseq: ascii-sequencer: input anything, which is output again sequentially
-======= character by character with a given delay
+ascseq:
+ascii-sequencer: input anything, which is output again sequentially
+character by character with a given delay
 
-ascwave: print funny ascii constructions on console
-========
+ascwave:
+print funny ascii constructions on console
 
-bfilt alias bangfilter: re-output every argumen-th event
-======================= useful for modulo-sequencers
-			internal: modulo x -> sel 0
+bfilt alias bangfilter:
+re-output every argumen-th event
+useful for modulo-sequencers
+internal: modulo x -> sel 0
+ 
+bfilt2:
+features internal counter, output just bangs
 
-bfilt2: features internal counter, input just bangs
-=======
+counter:
+cloned out of markex so i dont need to load gem to have these
 
-counter: cloned out of markex so i dont need to load gem to have these
-========
-reson: same as above
-======
+reson:
+same as above
 
-prepend aka cxc.prepend: prepend stuff with another symbol
-========================
+cxc.prepend:
+prepend stuff with another symbol
 
-utime: output seconds since epoch and microsecond fraction
-======
+cxc.split:
+split incoming string at specified delimiter
+
+utime:
+output seconds since epoch and microsecond fraction
 
 random1, random_fl, random_icg, random_tw, dist_normal:
-=======================================================
-	various PRNG algorithms from http://remus.rutgers.edu/~rhoads/Code
+various PRNG algorithms from http://remus.rutgers.edu/~rhoads/Code
+
+random1~, random_fl~, random_icg~:
+signal version of above algorithms
+
+ENV:
+get and set environment variables and certain defines like RAND_MAX
 
-ENV: get and set environment variables and certain defines like RAND_MAX
-====
+proc:
+get stuff out of the linux proc directory (so far: cpuinfo, loadavg,
+version, uptime)
 
-proc: get stuff out of the linux proc directory (so far:
-===== cpuinfo,loadavg,version,uptime)
+delta~:
+emit distance to last sample as signal.
 
-delta~: emit distance to last sample as signal.
-==========
+cx.mean, cx.avgdev, cx.stddev:
+calculate mean, standard and average deviation of a signal in an array
 
-cx.mean, cx.avgdev, cx.stddev: calculate mean, standard and average deviation
-============================== of a signal in an array ...
+----------------------------------------------------------------------
 
-x_connective*.diffs: patch for pd-src to make receives have inlets and set
-==================== method.
+x_connective*.diffs:
+patch for pd-src to make receives have inlets and set method.
 
 
 see reference folder for objects in action
 
 
-jdl@xdv.org, 20020922
+jdl@xdv.org, 20030301
 ------------------------------
 references see REFERENCES file
 bla
diff --git a/VERSION b/VERSION
index a9d7c18..e9b8f99 100644
--- a/VERSION
+++ b/VERSION
@@ -1 +1 @@
-0.04
+0.05
diff --git a/cx.c b/cx.c
index a0e305c..ee725b8 100644
--- a/cx.c
+++ b/cx.c
@@ -38,8 +38,11 @@ void split_setup();
 void utime_setup();
 // RNG's
 void random1_setup();
+void random1_tilde_setup(); // signal version
 void random_fl_setup();
+void random_fl_tilde_setup();
 void random_icg_setup();
+void random_icg_tilde_setup();
 void random_tw_setup();
 void dist_normal_setup();
 
@@ -82,8 +85,11 @@ void cxc_setup(void)
   utime_setup();
   // RNG's
   random1_setup();
+  random1_tilde_setup();
   random_fl_setup();
+  random_fl_tilde_setup();
   random_icg_setup();
+  random_icg_tilde_setup();
   random_tw_setup();
   dist_normal_setup();
   
diff --git a/mean.c b/mean.c
index 6010b18..4441920 100644
--- a/mean.c
+++ b/mean.c
@@ -101,7 +101,7 @@ void cxmean_setup(void)
   class_addmethod(cxmean_class, (t_method)cxmean_mean,
 		  gensym("mean"), A_DEFSYM, 0);
   class_addbang(cxmean_class, cxmean_bang);
-  class_sethelpsymbol(cxmean_class, gensym("cxc/statistics.pd"));
+  class_sethelpsymbol(cxmean_class, gensym("statistics.pd"));
 }
 
 
@@ -206,7 +206,7 @@ void cxavgdev_setup(void)
 /* 		  gensym("mean"), A_DEFSYM, 0); */
   class_addfloat(cxavgdev_class, (t_method)cxavgdev_float);
   class_addbang(cxavgdev_class, cxavgdev_bang);
-  class_sethelpsymbol(cxavgdev_class, gensym("cxc/statistics.pd"));
+  class_sethelpsymbol(cxavgdev_class, gensym("statistics.pd"));
 }
 
 /* cx.stddev: calculate the standard deviation of an array from
@@ -310,7 +310,7 @@ void cxstddev_setup(void)
 /* 		  gensym("mean"), A_DEFSYM, 0); */
   class_addfloat(cxstddev_class, (t_method)cxstddev_float);
   class_addbang(cxstddev_class, cxstddev_bang);
-  class_sethelpsymbol(cxstddev_class, gensym("cxc/statistics.pd"));
+  class_sethelpsymbol(cxstddev_class, gensym("statistics.pd"));
 }
 
 /* ---------- mean~ ---------- */
diff --git a/microtime.c b/microtime.c
index 587ddef..bccdf0c 100644
--- a/microtime.c
+++ b/microtime.c
@@ -50,5 +50,5 @@ void utime_setup(void)
   class_addbang(utime_class, utime_bang);
   
   class_addmethod(utime_class, (t_method)help_utime, gensym("help"), 0);
-  class_sethelpsymbol(utime_class, gensym("cxc/utime.pd"));
+  class_sethelpsymbol(utime_class, gensym("utime.pd"));
 }
diff --git a/proc.c b/proc.c
index 22cd23a..429cefa 100644
--- a/proc.c
+++ b/proc.c
@@ -218,6 +218,6 @@ void proc_setup(void)
     //class_addmethod(proc_class, (t_method)proc_getenv, gensym("getenv"), A_SYMBOL);
     //class_addmethod(proc_class, (t_method)proc_setenv, gensym("setenv"), A_SYMBOL, A_SYMBOL);
     class_addfloat(proc_class, proc_float);
-    class_sethelpsymbol(proc_class, gensym("cxc/proc.pd"));
+    class_sethelpsymbol(proc_class, gensym("proc.pd"));
 }
 
diff --git a/randomix.c b/randomix.c
index 5a0f96b..f6dd46a 100644
--- a/randomix.c
+++ b/randomix.c
@@ -19,6 +19,8 @@ static unsigned random_icg_INVERSE_seed ();
 static int makeseed(void);
 static int rand_random1(int);
 static int rand_random_fl(int);
+static int rand_random_icg(int, int);
+static unsigned int rand_random_icg_INVERSE_seed(int, int);
 //static void random_tw_rand_seed(t_class, int, int, int);
 
 static int makeseed(void)
@@ -71,6 +73,65 @@ static int rand_random_fl(seed) {
   return state;
 }
 
+static int rand_random_icg(seed, p)
+{
+  static int a, b, q, r;
+  int state;
+  unsigned int inv;
+  a = 22211, b = 11926380,q = 96685, r = 12518;
+  /* static int p = 2147483053, a = 858993221, b = 1,q = 2, r = 429496611;*/
+  /* static int p = 2147483053, a = 579,   b = 24456079, q = 3708951, r = 424;*/
+  /* static int p = 2147483053, a = 11972, b = 62187060,q = 179375, r = 5553;*/
+  /* static int p = 2147483053, a = 21714, b = 94901263,q = 98898, r = 11881;*/
+  /* static int p = 2147483053, a = 4594, b = 44183289,q = 467453, r = 3971;*/
+  /* static int p = 2147483647, a = 1288490188, b = 1, q = 1, r = 858993459;*/
+  /* static int p = 2147483647, a = 9102, b = 36884165, q = 235935, r =3277;*/
+  /* static int p = 2147483647, a = 14288, b = 758634, q = 150299, r = 11535;*/
+  /* static int p = 2147483647, a = 21916, b = 71499791, q = 97987, r = 555;*/
+  /* static int p = 2147483647, a = 28933, b = 59217914, q = 74222, r = 18521;*/
+  /* static int p = 2147483647, a = 31152, b = 48897674, q = 68935, r = 20527;*/
+
+  // state = seed;
+
+  inv = rand_random_icg_INVERSE_seed(seed, p);
+
+  state = a*(inv % q) - r*(inv / q) + b;
+  
+  if (state < 0) state += p;
+  else if (state >= state) state -= p;
+
+  return state;
+}
+
+/* Modular Inversion using the extended Euclidean alg. for GCD */
+/***************************************************************/
+static unsigned rand_random_icg_INVERSE_seed (int state, int p)
+{
+  unsigned int q,d;
+  signed int u,v,inv,t;
+  
+  if (state <= 1) return(state);
+  
+  d = p; inv = 0; v = 1; u = state;
+  
+  do {
+    q = d / u;
+    t = d % u;
+    d = u;
+    u = t;
+    t = inv - q*v;
+    inv = v;
+    v = t;
+  } while (u != 0);
+
+  if (inv < 0 ) inv += p;
+
+/*   if (1 != d)  */
+/*     post ("inverse_iter: Can't invert !"); */
+
+  return(inv);
+}
+
 /* -------------------------- random1 ------------------------------ */
 /* linear congruential generator.  Generator x[n+1] = a * x[n] mod m */
 
@@ -160,6 +221,62 @@ void random1_setup(void)
 }
 
 
+/* -------------------------- random1 ------------------------------ */
+/* linear congruential generator.  Generator x[n+1] = a * x[n] mod m */
+/* signal version */
+
+static t_class *random1_tilde_class;
+
+typedef struct _random1_tilde
+{
+  t_object x_obj;
+  unsigned int x_state; // current seed
+} t_random1_tilde;
+
+static void *random1_tilde_new()
+{
+    t_random1_tilde *x = (t_random1_tilde *)pd_new(random1_tilde_class);
+    x->x_state = makeseed();
+    outlet_new(&x->x_obj, gensym("signal"));
+    return (x);
+}
+
+static void random1_tilde_seed(t_random1_tilde *x, float f, float glob)
+{
+    x->x_state = f;
+}
+
+static t_int *random1_tilde_perform(t_int *w)
+{
+  t_random1_tilde *x = (t_random1_tilde *)(w[1]);
+  t_float *out = (t_float *)(w[2]);
+  int n = (int)(w[3]);
+
+  while (n--) {
+    // generate new noise sample
+    x->x_state = rand_random1(x->x_state);
+    *out++ = (t_float)x->x_state / RAND_MAX - 1;
+  }
+
+  return (w+4);
+}
+
+static void random1_tilde_dsp(t_random1_tilde *x, t_signal **sp)
+{
+  dsp_add(random1_tilde_perform, 3, x, sp[0]->s_vec, sp[0]->s_n);
+}
+
+void random1_tilde_setup(void)
+{
+  random1_tilde_class = class_new(gensym("random1~"),
+				  (t_newmethod)random1_tilde_new,
+				  0, sizeof(t_random1_tilde), 0, 0);
+  class_addmethod(random1_tilde_class, (t_method)random1_tilde_seed,gensym("seed"), A_FLOAT, 0);
+  class_addmethod(random1_tilde_class, (t_method)random1_tilde_dsp, gensym("dsp"), 0);
+}
+
+
+
 /* -------------------------- random_fl ------------------------------ */
 /* An improved (faster) implementation of the Linear Congruential Generator. Has parameters for 6 separate */
 /* linear congruence formulas. These formulas are different than those above because the previous formulas won't work */
@@ -242,6 +359,61 @@ void random_fl_setup(void)
 		  gensym("seed"), A_FLOAT, 0);
 }
 
+/* ------------------------------- random_fl signal version -------------------- */
+
+static t_class *random_fl_tilde_class;
+
+typedef struct _random_fl_tilde
+{
+  t_object x_obj;
+  unsigned int x_state; // current seed
+} t_random_fl_tilde;
+
+static void *random_fl_tilde_new()
+{
+    t_random_fl_tilde *x = (t_random_fl_tilde *)pd_new(random_fl_tilde_class);
+    x->x_state = makeseed();
+    outlet_new(&x->x_obj, gensym("signal"));
+    return (x);
+}
+
+static void random_fl_tilde_seed(t_random_fl_tilde *x, float f, float glob)
+{
+  x->x_state = f;
+}
+
+static t_int *random_fl_tilde_perform(t_int *w)
+{
+  t_random_fl_tilde *x = (t_random_fl_tilde *)(w[1]);
+  t_float *out = (t_float *)(w[2]);
+  int n = (int)(w[3]);
+
+  while (n--) {
+    // generate new noise sample
+    x->x_state = rand_random_fl(x->x_state);
+    *out++ = (t_float)x->x_state / RAND_MAX * 2 - 1;
+  }
+
+  return (w+4);
+}
+
+static void random_fl_tilde_dsp(t_random_fl_tilde *x, t_signal **sp)
+{
+  dsp_add(random_fl_tilde_perform, 3, x, sp[0]->s_vec, sp[0]->s_n);
+}
+
+void random_fl_tilde_setup(void)
+{
+  random_fl_tilde_class = class_new(gensym("random_fl~"),
+				    (t_newmethod)random_fl_tilde_new, 0,
+				    sizeof(t_random_fl_tilde), 0, 0);
+  class_addmethod(random_fl_tilde_class, (t_method)random_fl_tilde_seed,
+		  gensym("seed"), A_FLOAT, 0);
+  class_addmethod(random_fl_tilde_class, (t_method)random_fl_tilde_dsp, gensym("dsp"), 0);
+}
+
+
+
 
 /* -------------------------- random_icg ------------------------------ */
 /* Inverse Congruential generator. This generator is quite a bit slower than the other ones on this page. and it */
@@ -278,32 +450,9 @@ static void *random_icg_new(t_floatarg f, t_floatarg g)
 
 static void random_icg_bang(t_random_icg *x)
 {
-  int n = x->x_f;
-  int p = x->x_p;
-  static int a, b, q, r;
   double nval;
-  
-  unsigned int inv;
-  inv = random_icg_INVERSE_seed(x);
-  //  post("cxc/randomix.c: current inv: %d", inv);
-
-  a = 22211, b = 11926380,q = 96685, r = 12518;
-  /* static int p = 2147483053, a = 858993221, b = 1,q = 2, r = 429496611;*/
-  /* static int p = 2147483053, a = 579,   b = 24456079, q = 3708951, r = 424;*/
-  /* static int p = 2147483053, a = 11972, b = 62187060,q = 179375, r = 5553;*/
-  /* static int p = 2147483053, a = 21714, b = 94901263,q = 98898, r = 11881;*/
-  /* static int p = 2147483053, a = 4594, b = 44183289,q = 467453, r = 3971;*/
-  /* static int p = 2147483647, a = 1288490188, b = 1, q = 1, r = 858993459;*/
-  /* static int p = 2147483647, a = 9102, b = 36884165, q = 235935, r =3277;*/
-  /* static int p = 2147483647, a = 14288, b = 758634, q = 150299, r = 11535;*/
-  /* static int p = 2147483647, a = 21916, b = 71499791, q = 97987, r = 555;*/
-  /* static int p = 2147483647, a = 28933, b = 59217914, q = 74222, r = 18521;*/
-  /* static int p = 2147483647, a = 31152, b = 48897674, q = 68935, r = 20527;*/
 
-  x->x_state = a*(inv % q) - r*(inv / q) + b;
-  
-  if (x->x_state < 0) x->x_state += x->x_p;
-  else if (x->x_state >= x->x_state) x->x_state -= x->x_p;
+  x->x_state = rand_random_icg(x->x_state, x->x_p);
 
   nval = (((x->x_state / x->x_p) - 1) * (double)(x->x_g - x->x_f) + (double)x->x_f);
 
@@ -315,39 +464,6 @@ static void random_icg_bang(t_random_icg *x)
   }
 }
 
-/* Modular Inversion using the extended Euclidean alg. for GCD */
-/***************************************************************/
-static unsigned random_icg_INVERSE_seed (t_random_icg *x)
-{
-  unsigned int q,d;
-
-  //  int p = x->x_p;
-  
-  signed int u,v,inv,t;
-  
-  if (x->x_state <= 1) return(x->x_state);
-  
-  d = x->x_p; inv = 0; v = 1; u = x->x_state;
-  
-  do {
-    q = d / u;
-    t = d % u;
-    d = u;
-    u = t;
-    t = inv - q*v;
-    inv = v;
-    v = t;
-  } while (u != 0);
-
-  if (inv < 0 ) inv += x->x_p;
-
-/*   if (1 != d)  */
-/*     post ("inverse_iter: Can't invert !"); */
-
-  return(inv);
-}
-
-
 void random_icg_low(t_random_icg *x, t_floatarg f)
 {
   if(f >= x->x_g) {
@@ -386,10 +502,88 @@ void random_icg_setup(void)
 }
 
 
+/* -------------------------- random_icg ------------------------------ */
+/* inverse congruential generator. */
+
+static t_class *random_icg_tilde_class;
+
+typedef struct _random_icg_tilde
+{
+  t_object x_obj;
+  t_float x_f; // lower limit
+  t_float x_g; // upper limit
+  t_float x_p; // 1st shared parameter of iter function ..
+  unsigned int x_state; // current seed
+} t_random_icg_tilde;
+
+static void *random_icg_tilde_new()
+{
+    t_random_icg_tilde *x = (t_random_icg_tilde *)pd_new(random_icg_tilde_class);
+/*     x->x_f = (f) ? f : 0; */
+/*     x->x_g = (g) ? g : RAND_MAX; */
+    x->x_p = 2147483053;
+    //post("cxc/randomix.c: lolim: %f - %f, uplim: %f - %f", x->x_f, f, x->x_g, g);
+    x->x_state = makeseed();
+    outlet_new(&x->x_obj, gensym("signal"));
+    return (x);
+}
+
+static void random_icg_tilde_bang(t_random_icg_tilde *x)
+{
+  double nval;
+
+  x->x_state = rand_random_icg(x->x_state, x->x_p);
+
+  nval = (((x->x_state / x->x_p) - 1) * (double)(x->x_g - x->x_f) + (double)x->x_f);
+
+  // hakc, why is it out of range?
+  if(nval < (double)x->x_f) {
+    random_icg_tilde_bang(x);
+  } else {
+    outlet_float(x->x_obj.ob_outlet, nval);
+  }
+}
+
+static void random_icg_tilde_seed(t_random_icg_tilde *x, float f, float glob)
+{
+    x->x_state = f;
+}
+
+static t_int *random_icg_tilde_perform(t_int *w)
+{
+  t_random_icg_tilde *x = (t_random_icg_tilde *)(w[1]);
+  t_float *out = (t_float *)(w[2]);
+  int n = (int)(w[3]);
+
+  while (n--) {
+    // generate new noise sample
+    x->x_state = rand_random_icg(x->x_state, x->x_p);
+    *out++ = (t_float)(x->x_state / x->x_p - 1) * 2 - 1;
+  }
+
+  return (w+4);
+}
+
+
+static void random_icg_tilde_dsp(t_random_icg_tilde *x, t_signal **sp)
+{
+  dsp_add(random_icg_tilde_perform, 3, x, sp[0]->s_vec, sp[0]->s_n);
+}
+
+
+void random_icg_tilde_setup(void)
+{
+  random_icg_tilde_class = class_new(gensym("random_icg~"), (t_newmethod)random_icg_tilde_new, 0,
+			    sizeof(t_random_icg_tilde), 0, A_DEFFLOAT, A_DEFFLOAT, 0);
+  class_addmethod(random_icg_tilde_class, (t_method)random_icg_tilde_seed,
+		  gensym("seed"), A_FLOAT, 0);
+  class_addmethod(random_icg_tilde_class, (t_method)random_icg_tilde_dsp, gensym("dsp"), 0);
+}
+
+
 
 /* -------------------------- random_tw ------------------------------ */
 /* Combination of three tausworth generators. Has parameters for two different generators. Fast and excellent. */
-
 /* Combination of 3 tausworth generators -- assumes 32-bit integers */
 
 static t_class *random_tw_class;
@@ -678,5 +872,3 @@ void dist_normal_setup(void)
 /*   class_addmethod(dist_normal_class, (t_method)dist_normal_seed, */
 /* 		  gensym("seed"), A_FLOAT, 0); */
 }
-
-
diff --git a/reference/randomix.pd b/reference/randomix.pd
index 3f6823b..d913f39 100644
--- a/reference/randomix.pd
+++ b/reference/randomix.pd
@@ -1,26 +1,26 @@
 #N canvas 33 162 966 505 10;
 #X msg 197 150 bang;
-#X floatatom 244 150 5 0 0;
-#X floatatom 197 218 10 0 0;
-#X floatatom 53 162 5 0 0;
+#X floatatom 244 150 5 0 0 0 - - -;
+#X floatatom 197 218 10 0 0 0 - - -;
+#X floatatom 53 162 5 0 0 0 - - -;
 #X msg 54 111 bang;
-#X floatatom 289 152 5 0 0;
+#X floatatom 289 152 5 0 0 0 - - -;
 #X obj 53 135 random 100;
 #X msg 427 151 bang;
-#X floatatom 474 151 5 0 0;
-#X floatatom 427 219 10 0 0;
-#X floatatom 519 153 5 0 0;
+#X floatatom 474 151 5 0 0 0 - - -;
+#X floatatom 427 219 10 0 0 0 - - -;
+#X floatatom 519 153 5 0 0 0 - - -;
 #X obj 196 183 random1 0 1;
 #X obj 426 184 random_fl 0 1;
 #X msg 672 152 bang;
-#X floatatom 719 152 5 0 0;
-#X floatatom 672 220 10 0 0;
-#X floatatom 764 154 5 0 0;
+#X floatatom 719 152 5 0 0 0 - - -;
+#X floatatom 672 220 10 0 0 0 - - -;
+#X floatatom 764 154 5 0 0 0 - - -;
 #X obj 671 185 random_icg 0 1;
 #X msg 197 276 bang;
-#X floatatom 244 276 5 0 0;
-#X floatatom 197 344 10 0 0;
-#X floatatom 289 278 5 0 0;
+#X floatatom 244 276 5 0 0 0 - - -;
+#X floatatom 197 344 10 0 0 0 - - -;
+#X floatatom 289 278 5 0 0 0 - - -;
 #X text 193 251 random_icg lowerlimit \, upperlimit;
 #X msg 368 288 help;
 #X text 253 10 the random number generatorse;
@@ -30,11 +30,12 @@
 #X obj 579 337 tgl 15 0 empty empty empty 20 8 0 8 -262144 -1 -1 0
 1;
 #X obj 196 309 random_tw 0 1;
-#X floatatom 637 334 5 0 0;
+#X floatatom 637 334 5 0 0 0 - - -;
 #N canvas 0 0 600 400 streamview 0;
-#X graph graph2 0 -2 99 2 92 362 292 222;
+#N canvas 0 0 450 300 graph2 0;
 #X array randstream 100 float 0;
-#X pop;
+#X coords 0 2 99 -2 200 140 1;
+#X restore 92 222 graph;
 #X obj 146 144 tabwrite randstream;
 #X obj 200 63 count;
 #X obj 200 88 % 100;
@@ -47,9 +48,10 @@
 #X connect 5 0 4 0;
 #X restore 570 433 pd streamview;
 #N canvas 306 24 679 400 distview 0;
-#X graph graph1 0 0 99 200 248 231 648 31;
+#N canvas 0 0 450 300 graph1 0;
 #X array randview1 100 float 0;
-#X pop;
+#X coords 0 200 99 0 400 200 1;
+#X restore 248 31 graph;
 #X obj 28 26 inlet;
 #X obj 45 355 tabwrite randview1;
 #X obj 136 201 * 100;
@@ -74,7 +76,7 @@
 #X connect 11 0 5 0;
 #X restore 550 458 pd distview;
 #X obj 540 381 t b;
-#X floatatom 477 430 5 0 0;
+#X floatatom 477 430 5 0 0 0 - - -;
 #N canvas 0 0 600 400 seedit 0;
 #X msg 284 154 seed \$1;
 #X obj 284 107 utime;
@@ -146,6 +148,47 @@ argument \, so yu can specify which generator is being used.;
 #X text 198 106 they all output floats);
 #X text 540 311 also \, there is some burst at the upper and lower
 limits;
+#N canvas 622 685 592 356 signalversions 1;
+#X obj 68 131 random1~;
+#X obj 368 239 tabwrite~ randomix_test;
+#N canvas 0 0 450 300 graph1 0;
+#X array randomix_test 64 float 1;
+#A 0 -0.599965 0.178987 -0.501604 -1.10592 0.426163 -0.481499 -0.553236
+0.0961931 0.554738 -0.695487 0.541875 -0.415309 -0.419922 -0.871908
+0.0688377 -1.03721 -0.136159 -0.207339 -1.18947 -0.25981 -0.628915
+-0.826873 0.334755 -0.738558 -0.0926691 -0.262739 0.309148 0.50131
+-1.40461 -0.859907 0.621724 -0.888718 0.692579 -1.11799 0.162897 0.116501
+-0.390333 0.327364 -0.902445 -0.201419 0.300071 -1.10817 -1.09973 0.34181
+-0.0511739 -0.613584 -0.306316 0.433381 -0.154481 -1.17821 -0.428187
+-0.449014 -1.04248 -0.906665 0.0687456 -1.08289 0.59097 0.0438875 -1.20429
+0.0862183 -0.995607 0.585034 0.205198 -0.337256;
+#X coords 0 1 63 -1 200 140 1;
+#X restore 351 23 graph;
+#X obj 382 183 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0
+1;
+#X floatatom 440 184 5 0 0 0 - - -;
+#X obj 382 201 metro 100;
+#X msg 342 201 bang;
+#X obj 73 295 dac~;
+#X floatatom 140 220 5 0 0 0 - - -;
+#X msg 68 58 seed 30000;
+#X obj 142 131 random_fl~;
+#X text 120 98 etc ..;
+#X obj 229 131 random_icg~;
+#X obj 81 241 fader 75;
+#X connect 0 0 13 0;
+#X connect 3 0 5 0;
+#X connect 4 0 5 1;
+#X connect 5 0 1 0;
+#X connect 6 0 1 0;
+#X connect 8 0 13 2;
+#X connect 9 0 0 0;
+#X connect 10 0 13 1;
+#X connect 12 0 1 0;
+#X connect 12 0 13 0;
+#X connect 13 0 7 0;
+#X connect 13 1 7 1;
+#X restore 98 421 pd signalversions;
 #X connect 0 0 11 0;
 #X connect 1 0 11 1;
 #X connect 4 0 6 0;
@@ -178,4 +221,3 @@ limits;
 #X connect 35 2 12 0;
 #X connect 35 3 17 0;
 #X connect 35 4 29 0;
-#X connect 35 5 25 0;
diff --git a/sigdelta.c b/sigdelta.c
index 92ed69c..9b627d9 100644
--- a/sigdelta.c
+++ b/sigdelta.c
@@ -52,5 +52,5 @@ void delta_tilde_setup(void)
 			  sizeof(t_delta), 0, A_DEFFLOAT, 0);
   class_addmethod(delta_class, nullfn, gensym("signal"), 0);
   class_addmethod(delta_class, (t_method)delta_dsp, gensym("dsp"), 0);
-  class_sethelpsymbol(delta_class, gensym("cxc/delta.pd"));
+  class_sethelpsymbol(delta_class, gensym("delta.pd"));
 }