diff options
Diffstat (limited to 'src/z_sigpack.c')
| -rw-r--r-- | src/z_sigpack.c | 198 |
1 files changed, 198 insertions, 0 deletions
diff --git a/src/z_sigpack.c b/src/z_sigpack.c new file mode 100644 index 0000000..d614543 --- /dev/null +++ b/src/z_sigpack.c @@ -0,0 +1,198 @@ +/* 0109:forum::für::umläute:2000 + pack~ :: convert signals to float-packages + unpack~ :: convert float-(package)-inputs to signals +*/ + +#include "zexy.h" +#include <math.h> + +#ifdef NT +#pragma warning( disable : 4244 ) +#pragma warning( disable : 4305 ) +#endif + +/* ------------------------ pack~ ----------------------------- */ +/* pack the signal-vector to a float-package :: ~2message */ + +static t_class *sigpack_class; + +typedef struct _sigpack +{ + t_object x_obj; + + int vector_length; + t_atom *buffer; + +} t_sigpack; + +static t_int *sigpack_perform(t_int *w) +{ + t_float *in = (t_float *)(w[1]); + t_sigpack *x = (t_sigpack *)w[2]; + int n = (int)(w[3]), i = 0; + t_atom *buf = x->buffer; + + while (n--) { + SETFLOAT(&buf[i], *in++); + i++; + } + outlet_list(x->x_obj.ob_outlet, &s_list, x->vector_length, x->buffer); + + return (w+4); +} + +static void sigpack_dsp(t_sigpack *x, t_signal **sp) +{ + if (x->vector_length != sp[0]->s_n) { + freebytes(x->buffer, x->vector_length * sizeof(t_atom)); + x->vector_length = sp[0]->s_n; + x->buffer = (t_atom *)getbytes(x->vector_length * sizeof(t_atom)); + } + dsp_add(sigpack_perform, 3, sp[0]->s_vec, x, sp[0]->s_n); +} + +static void *sigpack_new(void) +{ + t_sigpack *x = (t_sigpack *)pd_new(sigpack_class); + x->vector_length = 0; + x->buffer = 0; + outlet_new(&x->x_obj, gensym("list")); + + return (x); +} + +static void sigpack_help(void) +{ + post("pack~\t:: outputs the signal-vectors as float-packages"); +} + +void sigpack_setup(void) +{ + sigpack_class = class_new(gensym("pack~"), (t_newmethod)sigpack_new, 0, + sizeof(t_sigpack), 0, A_DEFFLOAT, 0); + class_addmethod(sigpack_class, nullfn, gensym("signal"), 0); + class_addmethod(sigpack_class, (t_method)sigpack_dsp, gensym("dsp"), 0); + + class_addmethod(sigpack_class, (t_method)sigpack_help, gensym("help"), 0); + class_sethelpsymbol(sigpack_class, gensym("zexy/pack~")); +} + +/* ---------------------------- unpack~ ----------------------------- */ +/* unpack a sequence of float-package to a signal-vector :: message2~ */ + +static t_class *sigunpack_class; + +typedef struct _sigunpack +{ + t_object x_obj; + t_float *buffer; + t_float *rp, *wp; + int bufsize; + +} t_sigunpack; + +static void sigunpack_float(t_sigunpack *x, t_float f) +{ + if (x->wp + 1 != x->rp) { + *(x->wp)++ = f; + if (x->wp == x->buffer + x->bufsize) x->wp = x->buffer; + } +} + +static void sigunpack_list(t_sigunpack *x, t_symbol *s, int argc, t_atom *argv) +{ + t_atom *ap = argv; + int i; + + for (i = 0, ap = argv; i < argc; ap++, i++) { + // if (ap->a_type == A_FLOAT) { + if (x->wp + 1 != x->rp) { + *(x->wp)++ = atom_getfloat(ap); + if (x->wp == x->buffer + x->bufsize) x->wp = x->buffer; + } + // } + } +} + + +static t_int *sigunpack_perform(t_int *w) +{ + t_float *out = (t_float *)(w[1]); + t_sigunpack *x = (t_sigunpack *)w[2]; + int n = (int)(w[3]); + + t_float *buf = x->rp; + int hitchhike = 0; + + if ((x->wp >= x->rp) && (x->wp < x->rp+n)) hitchhike=1; + x->rp += n; + if (x->rp == x->buffer + x->bufsize) x->rp = x->buffer; + if (hitchhike) x->wp = x->rp; + + while (n--) { + *out++ = *buf; + *buf++ = 0; + } + + return (w+4); +} + +static void sigunpack_dsp(t_sigunpack *x, t_signal **sp) +{ + if (x->bufsize % sp[0]->s_n) { + int newsize = sp[0]->s_n*(1+(int)(x->bufsize/sp[0]->s_n)); + freebytes(x->buffer, x->bufsize * sizeof(t_float)); + x->buffer = (t_float *)getbytes(newsize * sizeof(t_float)); + + x->rp = x->wp = x->buffer; + x->bufsize = newsize; + } + + dsp_add(sigunpack_perform, 3, sp[0]->s_vec, x, sp[0]->s_n); +} + +static void *sigunpack_new(t_floatarg f) +{ + t_sigunpack *x = (t_sigunpack *)pd_new(sigunpack_class); + + int suggestedsize = (int)f; + int bufsize; + if (!suggestedsize) bufsize = 64; + else bufsize = (suggestedsize % 64)?(64*(1+(int)(suggestedsize/64))):suggestedsize; + + x->buffer = (t_float *)getbytes(bufsize * sizeof(t_float)); + x->bufsize = bufsize; + x->rp = x->wp = x->buffer; + + outlet_new(&x->x_obj, gensym("signal")); + + return (x); +} + +static void sigunpack_help(void) +{ + post("unpack~\t:: outputs a sequence of floats as a signal"); +} + +void sigunpack_setup(void) +{ + sigunpack_class = class_new(gensym("unpack~"), (t_newmethod)sigunpack_new, 0, + sizeof(t_sigunpack), 0, A_DEFFLOAT, 0); + class_addmethod(sigunpack_class, (t_method)sigunpack_dsp, gensym("dsp"), 0); + class_addfloat(sigunpack_class, (t_method)sigunpack_float); + class_addlist (sigunpack_class, (t_method)sigunpack_list); + + + class_addmethod(sigunpack_class, (t_method)sigunpack_help, gensym("help"), 0); + class_sethelpsymbol(sigunpack_class, gensym("zexy/unpack~")); +} + + + +/* global setup routine */ + +void z_sigpack_setup(void) +{ + sigunpack_setup(); + sigpack_setup(); +} |