zexy-2.0:

- use of abstractions for objects that allow it
- some objects are build both as externals and abstractions (as slower fallbacks)
- code-layout is now 1:1 c-file<->object (this should allow for building of zexy as  a collection of externals instead as a big library)
- matrix-objects have moved to iemmatrix !!

svn path=/trunk/externals/zexy/; revision=2641

1 files changed, 0 insertions, 120 deletions

diff --git a/src/z_zdelay.c b/src/z_zdelay.c
deleted file mode 100644
index 1c4f1ed..0000000
--- a/src/z_zdelay.c
+++ /dev/null
@@ -1,120 +0,0 @@
-/*
-	here we do some sample-wise delay, so you can do your own FIR-filter-designs
-	here are :: "z^(-1)", "z^(-N)"
-	to do :: a "lattice~" section ...
-
-	1302:forum::für::umläute:2000
-*/
-
-#include "zexy.h"
-
-#ifdef NT
-#pragma warning( disable : 4244 )
-#pragma warning( disable : 4305 )
-#endif
-
-/* ----------------------------------------------------- */
-
-static t_class *zNdelay_class;
-
-typedef struct _zNdelay
-{
-  t_object x_obj;
-
-  t_float *buf;
-  int bufsize, phase;
-
-} t_zNdelay;
-
-static void zdel_float(t_zNdelay *x, t_floatarg f)
-{
-  int i = f+1;
-  if (i<1)i=1;
-  if (i==x->bufsize)return;
-  freebytes(x->buf, x->bufsize*sizeof(t_float));
-  x->bufsize=i;
-  x->buf=(t_float *)getbytes(x->bufsize*sizeof(t_float));
-  x->phase=0;
-}
-
-static t_int *zN_perform(t_int *w)
-{
-  t_float *in = (t_float *)(w[1]);
-  t_float *out = (t_float *)(w[2]);
-  t_zNdelay *x = (t_zNdelay *)(w[3]);
-  int n = (int)(w[4]);
-
-  t_float *buf = x->buf;
-  int bufsize=x->bufsize, ph=x->phase;
-
-  if (bufsize==1) {
-    if (in!=out)while(n--)*out++=*in++;
-  } else if (bufsize==2) {
-    register t_float f, last=*buf;
-    while(n--){
-      f=*in++;
-      *out++=last;
-      last=f;
-    }
-    *buf=last;
-  } else {
-    while (n--) {
-      *(buf+ph++) = *in++;
-      *out++    = buf[ph%=bufsize];
-    }
-    x->phase=ph;
-  }
-  return (w+5);
-}
-
-
-static void zNdelay_dsp(t_zNdelay *x, t_signal **sp)
-{
-  dsp_add(zN_perform, 4, sp[0]->s_vec, sp[1]->s_vec, x, sp[0]->s_n);
-}
-
-static void *zNdelay_new(t_floatarg f)
-{
-  t_zNdelay *x = (t_zNdelay *)pd_new(zNdelay_class);
-  int i = f;
-  t_float *b;
-
-  if (i<=0) i=1;
-  i++;
-
-  x->bufsize = i;
-  x->buf = (t_float *)getbytes(sizeof(t_float) * x->bufsize);
-  b=x->buf;
-  while (i--) {
-    *b++=0;
-  }
-  x->phase = 0;
-
-  outlet_new(&x->x_obj, gensym("signal")); 
-  return (x);
-}
-
-static void zNdelay_free(t_zNdelay *x)
-{
-  freebytes(x->buf, sizeof(t_float) * x->bufsize);
-}
-
-
-static void zdel_helper(void)
-{
-  post("\n%c z~\t:: samplewise delay", HEARTSYMBOL);
-  post("creation :: 'z~ [<n>]' : creates a <n>-sample delay; default is 1");
-}
-
-
-void z_zdelay_setup(void)
-{
-  zNdelay_class = class_new(gensym("z~"), (t_newmethod)zNdelay_new, (t_method)zNdelay_free,
-			    sizeof(t_zNdelay), 0, A_DEFFLOAT, 0);
-  class_addmethod(zNdelay_class, nullfn, gensym("signal"), 0);
-  class_addmethod(zNdelay_class, (t_method)zNdelay_dsp, gensym("dsp"), 0);
-
-  class_addfloat(zNdelay_class, zdel_float);
-  class_addmethod(zNdelay_class, (t_method)zdel_helper, gensym("help"), 0);
-  class_sethelpsymbol(zNdelay_class, gensym("zexy/z~"));
-}