From 2b60d55c919e7588f5aff15936e83c300b3660bb Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?IOhannes=20m=20zm=C3=B6lnig?= Date: Tue, 22 Mar 2005 20:58:25 +0000 Subject: 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 --- src/z_sigpack.c | 198 -------------------------------------------------------- 1 file changed, 198 deletions(-) delete mode 100644 src/z_sigpack.c (limited to 'src/z_sigpack.c') diff --git a/src/z_sigpack.c b/src/z_sigpack.c deleted file mode 100644 index d614543..0000000 --- a/src/z_sigpack.c +++ /dev/null @@ -1,198 +0,0 @@ -/* 0109:forum::für::umläute:2000 - pack~ :: convert signals to float-packages - unpack~ :: convert float-(package)-inputs to signals -*/ - -#include "zexy.h" -#include - -#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(); -} -- cgit v1.2.1