aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/z_array.c688
1 files changed, 0 insertions, 688 deletions
diff --git a/src/z_array.c b/src/z_array.c
deleted file mode 100644
index efd22fd..0000000
--- a/src/z_array.c
+++ /dev/null
@@ -1,688 +0,0 @@
-/* copyleft (c) 2003 forum::für::umläute -- IOhannes m zmölnig @ IEM
- * based on d_array.c from pd:
- * Copyright (c) 1997-1999 Miller Puckette and others.
- * For information on usage and redistribution, and for a DISCLAIMER OF ALL
- * WARRANTIES, see the file, "LICENSE.txt," in this distribution. */
-
-/* sampling */
-
-#include "m_pd.h"
-
-/* ------------------------- table16 -------------------------- */
-/* a 16bit table */
-static t_class *table16_class;
-typedef struct _table16 {
- t_object x_obj;
-
- t_symbol *x_tablename;
- long x_size;
- short *x_table; // hold the data
-
- int x_usedindsp;
-} t_table16;
-
-static void *table16_new(t_symbol *s, t_float f){
- t_table16 *x = (t_table16*)pd_new(table16_class);
- int i=f;
- if(i<1)i=1;
- x->x_tablename=s;
- x->x_size=i;
- x->x_table=getbytes(x->x_size*sizeof(short));
- x->x_usedindsp=0;
- pd_bind(&x->x_obj.ob_pd, x->x_tablename);
- return(x);
-}
-
-static void table16_free(t_table16 *x){
- if(x->x_table)freebytes(x->x_table, x->x_size*sizeof(short));
- pd_unbind(&x->x_obj.ob_pd, x->x_tablename);
-}
-
-static int table16_getarray16(t_table16*x, int*size,short**vec){
- *size=x->x_size;
- *vec =x->x_table;
- return 1;
-}
-static void table16_usedindsp(t_table16*x){
- x->x_usedindsp=1;
-}
-
-static void table16_setup(void){
- table16_class = class_new(gensym("table16"),
- (t_newmethod)table16_new, (t_method)table16_free,
- sizeof(t_table16), 0, A_DEFSYM, A_DEFFLOAT, 0);
-}
-
-
-/* ------------------------- tab16write~ -------------------------- */
-
-static t_class *tab16write_tilde_class;
-
-typedef struct _tab16write_tilde
-{
- t_object x_obj;
- int x_phase;
- int x_nsampsintab;
- short *x_vec;
- t_symbol *x_arrayname;
- float x_f;
-} t_tab16write_tilde;
-
-static void *tab16write_tilde_new(t_symbol *s)
-{
- t_tab16write_tilde *x = (t_tab16write_tilde *)pd_new(tab16write_tilde_class);
- x->x_phase = 0x7fffffff;
- x->x_arrayname = s;
- x->x_f = 0;
- return (x);
-}
-
-static t_int *tab16write_tilde_perform(t_int *w)
-{
- t_tab16write_tilde *x = (t_tab16write_tilde *)(w[1]);
- t_float *in = (t_float *)(w[2]);
- int n = (int)(w[3]), phase = x->x_phase, endphase = x->x_nsampsintab;
- if (!x->x_vec) goto bad;
-
- if (endphase > phase)
- {
- int nxfer = endphase - phase;
- short *fp = x->x_vec + phase;
- if (nxfer > n) nxfer = n;
- phase += nxfer;
- while (nxfer--)
- {
- float f = *in++;
- if (PD_BADFLOAT(f))
- f = 0;
- *fp++ = f;
- }
- x->x_phase = phase;
- }
-bad:
- return (w+4);
-}
-
-void tab16write_tilde_set(t_tab16write_tilde *x, t_symbol *s)
-{
- t_table16 *a;
-
- x->x_arrayname = s;
- if (!(a = (t_table16 *)pd_findbyclass(x->x_arrayname, table16_class)))
- {
- if (*s->s_name) pd_error(x, "tab16write~: %s: no such array",
- x->x_arrayname->s_name);
- x->x_vec = 0;
- }
- else if (!table16_getarray16(a, &x->x_nsampsintab, &x->x_vec))
- {
- error("%s: bad template for tab16write~", x->x_arrayname->s_name);
- x->x_vec = 0;
- }
- else table16_usedindsp(a);
-}
-
-static void tab16write_tilde_dsp(t_tab16write_tilde *x, t_signal **sp)
-{
- tab16write_tilde_set(x, x->x_arrayname);
- dsp_add(tab16write_tilde_perform, 3, x, sp[0]->s_vec, sp[0]->s_n);
-}
-
-static void tab16write_tilde_bang(t_tab16write_tilde *x)
-{
- x->x_phase = 0;
-}
-
-static void tab16write_tilde_stop(t_tab16write_tilde *x)
-{}
-
-static void tab16write_tilde_free(t_tab16write_tilde *x)
-{}
-
-static void tab16write_tilde_setup(void)
-{
- tab16write_tilde_class = class_new(gensym("tab16write~"),
- (t_newmethod)tab16write_tilde_new, (t_method)tab16write_tilde_free,
- sizeof(t_tab16write_tilde), 0, A_DEFSYM, 0);
- CLASS_MAINSIGNALIN(tab16write_tilde_class, t_tab16write_tilde, x_f);
- class_addmethod(tab16write_tilde_class, (t_method)tab16write_tilde_dsp,
- gensym("dsp"), 0);
- class_addmethod(tab16write_tilde_class, (t_method)tab16write_tilde_set,
- gensym("set"), A_SYMBOL, 0);
- class_addmethod(tab16write_tilde_class, (t_method)tab16write_tilde_stop,
- gensym("stop"), 0);
- class_addbang(tab16write_tilde_class, tab16write_tilde_bang);
-}
-
-/* ------------ tab16play~ - non-transposing sample playback --------------- */
-
-static t_class *tab16play_tilde_class;
-
-typedef struct _tab16play_tilde
-{
- t_object x_obj;
- t_outlet *x_bangout;
- int x_phase;
- int x_nsampsintab;
- int x_limit;
- short *x_vec;
- t_symbol *x_arrayname;
-} t_tab16play_tilde;
-
-static void *tab16play_tilde_new(t_symbol *s)
-{
- t_tab16play_tilde *x = (t_tab16play_tilde *)pd_new(tab16play_tilde_class);
- x->x_phase = 0x7fffffff;
- x->x_limit = 0;
- x->x_arrayname = s;
- outlet_new(&x->x_obj, &s_signal);
- x->x_bangout = outlet_new(&x->x_obj, &s_bang);
- return (x);
-}
-
-static t_int *tab16play_tilde_perform(t_int *w)
-{
- t_tab16play_tilde *x = (t_tab16play_tilde *)(w[1]);
- t_float *out = (t_float *)(w[2]);
- short *fp;
- int n = (int)(w[3]), phase = x->x_phase,
- endphase = (x->x_nsampsintab < x->x_limit ?
- x->x_nsampsintab : x->x_limit), nxfer, n3;
- if (!x->x_vec || phase >= endphase)
- goto zero;
-
- nxfer = endphase - phase;
- fp = x->x_vec + phase;
- if (nxfer > n)
- nxfer = n;
- n3 = n - nxfer;
- phase += nxfer;
- while (nxfer--)
- *out++ = *fp++;
- if (phase >= endphase)
- {
- x->x_phase = 0x7fffffff;
- while (n3--)
- *out++ = 0;
- }
- else x->x_phase = phase;
-
- return (w+4);
-zero:
- while (n--) *out++ = 0;
- return (w+4);
-}
-
-void tab16play_tilde_set(t_tab16play_tilde *x, t_symbol *s)
-{
- t_table16 *a;
-
- x->x_arrayname = s;
- if (!(a = (t_table16 *)pd_findbyclass(x->x_arrayname, table16_class)))
- {
- if (*s->s_name) pd_error(x, "tab16play~: %s: no such array",
- x->x_arrayname->s_name);
- x->x_vec = 0;
- }
- else if (!table16_getarray16(a, &x->x_nsampsintab, &x->x_vec))
- {
- error("%s: bad template for tab16play~", x->x_arrayname->s_name);
- x->x_vec = 0;
- }
- else table16_usedindsp(a);
-}
-
-static void tab16play_tilde_dsp(t_tab16play_tilde *x, t_signal **sp)
-{
- tab16play_tilde_set(x, x->x_arrayname);
- dsp_add(tab16play_tilde_perform, 3, x, sp[0]->s_vec, sp[0]->s_n);
-}
-
-static void tab16play_tilde_list(t_tab16play_tilde *x, t_symbol *s,
- int argc, t_atom *argv)
-{
- long start = atom_getfloatarg(0, argc, argv);
- long length = atom_getfloatarg(1, argc, argv);
- if (start < 0) start = 0;
- if (length <= 0)
- x->x_limit = 0x7fffffff;
- else
- x->x_limit = start + length;
- x->x_phase = start;
-}
-
-static void tab16play_tilde_stop(t_tab16play_tilde *x)
-{
- x->x_phase = 0x7fffffff;
-}
-
-static void tab16play_tilde_free(t_tab16play_tilde *x)
-{}
-
-static void tab16play_tilde_setup(void)
-{
- tab16play_tilde_class = class_new(gensym("tab16play~"),
- (t_newmethod)tab16play_tilde_new, (t_method)tab16play_tilde_free,
- sizeof(t_tab16play_tilde), 0, A_DEFSYM, 0);
- class_addmethod(tab16play_tilde_class, (t_method)tab16play_tilde_dsp,
- gensym("dsp"), 0);
- class_addmethod(tab16play_tilde_class, (t_method)tab16play_tilde_stop,
- gensym("stop"), 0);
- class_addmethod(tab16play_tilde_class, (t_method)tab16play_tilde_set,
- gensym("set"), A_DEFSYM, 0);
- class_addlist(tab16play_tilde_class, tab16play_tilde_list);
-}
-
-/******************** tab16read~ ***********************/
-
-static t_class *tab16read_tilde_class;
-
-typedef struct _tab16read_tilde
-{
- t_object x_obj;
- int x_npoints;
- short *x_vec;
- t_symbol *x_arrayname;
- float x_f;
-} t_tab16read_tilde;
-
-static void *tab16read_tilde_new(t_symbol *s)
-{
- t_tab16read_tilde *x = (t_tab16read_tilde *)pd_new(tab16read_tilde_class);
- x->x_arrayname = s;
- x->x_vec = 0;
- outlet_new(&x->x_obj, gensym("signal"));
- x->x_f = 0;
- return (x);
-}
-
-static t_int *tab16read_tilde_perform(t_int *w)
-{
- t_tab16read_tilde *x = (t_tab16read_tilde *)(w[1]);
- t_float *in = (t_float *)(w[2]);
- t_float *out = (t_float *)(w[3]);
- int n = (int)(w[4]);
- int maxindex;
- short *buf = x->x_vec;
- int i;
-
- maxindex = x->x_npoints - 1;
- if (!buf) goto zero;
-
- for (i = 0; i < n; i++)
- {
- int index = *in++;
- if (index < 0)
- index = 0;
- else if (index > maxindex)
- index = maxindex;
- *out++ = buf[index];
- }
- return (w+5);
- zero:
- while (n--) *out++ = 0;
-
- return (w+5);
-}
-
-void tab16read_tilde_set(t_tab16read_tilde *x, t_symbol *s)
-{
- t_table16 *a;
-
- x->x_arrayname = s;
- if (!(a = (t_table16 *)pd_findbyclass(x->x_arrayname, table16_class)))
- {
- if (*s->s_name)
- error("tab16read~: %s: no such array", x->x_arrayname->s_name);
- x->x_vec = 0;
- }
- else if (!table16_getarray16(a, &x->x_npoints, &x->x_vec))
- {
- error("%s: bad template for tab16read~", x->x_arrayname->s_name);
- x->x_vec = 0;
- }
- else table16_usedindsp(a);
-}
-
-static void tab16read_tilde_dsp(t_tab16read_tilde *x, t_signal **sp)
-{
- tab16read_tilde_set(x, x->x_arrayname);
-
- dsp_add(tab16read_tilde_perform, 4, x,
- sp[0]->s_vec, sp[1]->s_vec, sp[0]->s_n);
-
-}
-
-static void tab16read_tilde_free(t_tab16read_tilde *x)
-{
-}
-
-static void tab16read_tilde_setup(void)
-{
- tab16read_tilde_class = class_new(gensym("tab16read~"),
- (t_newmethod)tab16read_tilde_new, (t_method)tab16read_tilde_free,
- sizeof(t_tab16read_tilde), 0, A_DEFSYM, 0);
- CLASS_MAINSIGNALIN(tab16read_tilde_class, t_tab16read_tilde, x_f);
- class_addmethod(tab16read_tilde_class, (t_method)tab16read_tilde_dsp,
- gensym("dsp"), 0);
- class_addmethod(tab16read_tilde_class, (t_method)tab16read_tilde_set,
- gensym("set"), A_SYMBOL, 0);
-}
-
-/******************** tab16read4~ ***********************/
-
-static t_class *tab16read4_tilde_class;
-
-typedef struct _tab16read4_tilde
-{
- t_object x_obj;
- int x_npoints;
- short *x_vec;
- t_symbol *x_arrayname;
- float x_f;
-} t_tab16read4_tilde;
-
-static void *tab16read4_tilde_new(t_symbol *s)
-{
- t_tab16read4_tilde *x = (t_tab16read4_tilde *)pd_new(tab16read4_tilde_class);
- x->x_arrayname = s;
- x->x_vec = 0;
- outlet_new(&x->x_obj, gensym("signal"));
- x->x_f = 0;
- return (x);
-}
-
-static t_int *tab16read4_tilde_perform(t_int *w)
-{
- t_tab16read4_tilde *x = (t_tab16read4_tilde *)(w[1]);
- t_float *in = (t_float *)(w[2]);
- t_float *out = (t_float *)(w[3]);
- int n = (int)(w[4]);
- int maxindex;
- short *buf = x->x_vec;
- short *fp;
- int i;
-
- maxindex = x->x_npoints - 3;
-
- if (!buf) goto zero;
-
-#if 0 /* test for spam -- I'm not ready to deal with this */
- for (i = 0, xmax = 0, xmin = maxindex, fp = in1; i < n; i++, fp++)
- {
- float f = *in1;
- if (f < xmin) xmin = f;
- else if (f > xmax) xmax = f;
- }
- if (xmax < xmin + x->c_maxextent) xmax = xmin + x->c_maxextent;
- for (i = 0, splitlo = xmin+ x->c_maxextent, splithi = xmax - x->c_maxextent,
- fp = in1; i < n; i++, fp++)
- {
- float f = *in1;
- if (f > splitlo && f < splithi) goto zero;
- }
-#endif
-
- for (i = 0; i < n; i++)
- {
- float findex = *in++;
- int index = findex;
- float frac, a, b, c, d, cminusb;
- if (index < 1)
- index = 1, frac = 0;
- else if (index > maxindex)
- index = maxindex, frac = 1;
- else frac = findex - index;
- fp = buf + index;
- a = fp[-1];
- b = fp[0];
- c = fp[1];
- d = fp[2];
- /* if (!i && !(count++ & 1023))
- post("fp = %lx, shit = %lx, b = %f", fp, buf->b_shit, b); */
- cminusb = c-b;
- *out++ = b + frac * (
- cminusb - 0.5f * (frac-1.) * (
- (a - d + 3.0f * cminusb) * frac + (b - a - cminusb)
- )
- );
- }
- return (w+5);
- zero:
- while (n--) *out++ = 0;
-
- return (w+5);
-}
-
-void tab16read4_tilde_set(t_tab16read4_tilde *x, t_symbol *s)
-{
- t_table16 *a;
-
- x->x_arrayname = s;
- if (!(a = (t_table16 *)pd_findbyclass(x->x_arrayname, table16_class)))
- {
- if (*s->s_name)
- error("tab16read4~: %s: no such array", x->x_arrayname->s_name);
- x->x_vec = 0;
- }
- else if (!table16_getarray16(a, &x->x_npoints, &x->x_vec))
- {
- error("%s: bad template for tab16read4~", x->x_arrayname->s_name);
- x->x_vec = 0;
- }
- else table16_usedindsp(a);
-}
-
-static void tab16read4_tilde_dsp(t_tab16read4_tilde *x, t_signal **sp)
-{
- tab16read4_tilde_set(x, x->x_arrayname);
-
- dsp_add(tab16read4_tilde_perform, 4, x,
- sp[0]->s_vec, sp[1]->s_vec, sp[0]->s_n);
-
-}
-
-static void tab16read4_tilde_free(t_tab16read4_tilde *x)
-{
-}
-
-static void tab16read4_tilde_setup(void)
-{
- tab16read4_tilde_class = class_new(gensym("tab16read4~"),
- (t_newmethod)tab16read4_tilde_new, (t_method)tab16read4_tilde_free,
- sizeof(t_tab16read4_tilde), 0, A_DEFSYM, 0);
- CLASS_MAINSIGNALIN(tab16read4_tilde_class, t_tab16read4_tilde, x_f);
- class_addmethod(tab16read4_tilde_class, (t_method)tab16read4_tilde_dsp,
- gensym("dsp"), 0);
- class_addmethod(tab16read4_tilde_class, (t_method)tab16read4_tilde_set,
- gensym("set"), A_SYMBOL, 0);
-}
-/* ---------- tab16read: control, non-interpolating ------------------------ */
-
-static t_class *tab16read_class;
-
-typedef struct _tab16read
-{
- t_object x_obj;
- t_symbol *x_arrayname;
-} t_tab16read;
-
-static void tab16read_float(t_tab16read *x, t_float f)
-{
- t_table16 *a;
- int npoints;
- short *vec;
-
- if (!(a = (t_table16 *)pd_findbyclass(x->x_arrayname, table16_class)))
- error("%s: no such array", x->x_arrayname->s_name);
- else if (!table16_getarray16(a, &npoints, &vec))
- error("%s: bad template for tab16read", x->x_arrayname->s_name);
- else
- {
- int n = f;
- if (n < 0) n = 0;
- else if (n >= npoints) n = npoints - 1;
- outlet_float(x->x_obj.ob_outlet, (npoints ? vec[n] : 0));
- }
-}
-
-static void tab16read_set(t_tab16read *x, t_symbol *s)
-{
- x->x_arrayname = s;
-}
-
-static void *tab16read_new(t_symbol *s)
-{
- t_tab16read *x = (t_tab16read *)pd_new(tab16read_class);
- x->x_arrayname = s;
- outlet_new(&x->x_obj, &s_float);
- return (x);
-}
-
-static void tab16read_setup(void)
-{
- tab16read_class = class_new(gensym("tab16read"), (t_newmethod)tab16read_new,
- 0, sizeof(t_tab16read), 0, A_DEFSYM, 0);
- class_addfloat(tab16read_class, (t_method)tab16read_float);
- class_addmethod(tab16read_class, (t_method)tab16read_set, gensym("set"),
- A_SYMBOL, 0);
-}
-
-/* ---------- tab16read4: control, non-interpolating ------------------------ */
-
-static t_class *tab16read4_class;
-
-typedef struct _tab16read4
-{
- t_object x_obj;
- t_symbol *x_arrayname;
-} t_tab16read4;
-
-static void tab16read4_float(t_tab16read4 *x, t_float f)
-{
- t_table16 *a;
- int npoints;
- short *vec;
-
- if (!(a = (t_table16 *)pd_findbyclass(x->x_arrayname, table16_class)))
- error("%s: no such array", x->x_arrayname->s_name);
- else if (!table16_getarray16(a, &npoints, &vec))
- error("%s: bad template for tab16read4", x->x_arrayname->s_name);
- else if (npoints < 4)
- outlet_float(x->x_obj.ob_outlet, 0);
- else if (f <= 1)
- outlet_float(x->x_obj.ob_outlet, vec[1]);
- else if (f >= npoints - 2)
- outlet_float(x->x_obj.ob_outlet, vec[npoints - 2]);
- else
- {
- int n = f;
- float a, b, c, d, cminusb, frac;
- short *fp;
- if (n >= npoints - 2)
- n = npoints - 3;
- fp = vec + n;
- frac = f - n;
- a = fp[-1];
- b = fp[0];
- c = fp[1];
- d = fp[2];
- cminusb = c-b;
- outlet_float(x->x_obj.ob_outlet, b + frac * (
- cminusb - 0.5f * (frac-1.) * (
- (a - d + 3.0f * cminusb) * frac + (b - a - cminusb))));
- }
-}
-
-static void tab16read4_set(t_tab16read4 *x, t_symbol *s)
-{
- x->x_arrayname = s;
-}
-
-static void *tab16read4_new(t_symbol *s)
-{
- t_tab16read4 *x = (t_tab16read4 *)pd_new(tab16read4_class);
- x->x_arrayname = s;
- outlet_new(&x->x_obj, &s_float);
- return (x);
-}
-
-static void tab16read4_setup(void)
-{
- tab16read4_class = class_new(gensym("tab16read4"), (t_newmethod)tab16read4_new,
- 0, sizeof(t_tab16read4), 0, A_DEFSYM, 0);
- class_addfloat(tab16read4_class, (t_method)tab16read4_float);
- class_addmethod(tab16read4_class, (t_method)tab16read4_set, gensym("set"),
- A_SYMBOL, 0);
-}
-
-/* ------------------ tab16write: control ------------------------ */
-
-static t_class *tab16write_class;
-
-typedef struct _tab16write
-{
- t_object x_obj;
- t_symbol *x_arrayname;
- float x_ft1;
- int x_set;
-} t_tab16write;
-
-static void tab16write_float(t_tab16write *x, t_float f)
-{
- int vecsize;
- t_table16 *a;
- short *vec;
-
- if (!(a = (t_table16 *)pd_findbyclass(x->x_arrayname, table16_class)))
- error("%s: no such array", x->x_arrayname->s_name);
- else if (!table16_getarray16(a, &vecsize, &vec))
- error("%s: bad template for tab16write", x->x_arrayname->s_name);
- else
- {
- int n = x->x_ft1;
- if (n < 0) n = 0;
- else if (n >= vecsize) n = vecsize-1;
- vec[n] = f;
- }
-}
-
-static void tab16write_set(t_tab16write *x, t_symbol *s)
-{
- x->x_arrayname = s;
-}
-
-static void tab16write_free(t_tab16write *x)
-{}
-
-static void *tab16write_new(t_symbol *s)
-{
- t_tab16write *x = (t_tab16write *)pd_new(tab16write_class);
- x->x_ft1 = 0;
- x->x_arrayname = s;
- floatinlet_new(&x->x_obj, &x->x_ft1);
- return (x);
-}
-
-void tab16write_setup(void)
-{
- tab16write_class = class_new(gensym("tab16write"), (t_newmethod)tab16write_new,
- (t_method)tab16write_free, sizeof(t_tab16write), 0, A_DEFSYM, 0);
- class_addfloat(tab16write_class, (t_method)tab16write_float);
- class_addmethod(tab16write_class, (t_method)tab16write_set, gensym("set"), A_SYMBOL, 0);
-}
-
-/* ------------------------ global setup routine ------------------------- */
-
-void z_array_setup(void)
-{
- tab16write_tilde_setup();
- tab16play_tilde_setup();
- tab16read_tilde_setup();
- tab16read4_tilde_setup();
- tab16read_setup();
- tab16read4_setup();
- tab16write_setup();
- table16_setup();
-}
-