From d2eec74a4d8c21aad495ba61539486b24d7ab8dc Mon Sep 17 00:00:00 2001 From: Guenter Geiger Date: Wed, 9 Oct 2002 10:19:04 +0000 Subject: moved from zexy/zexy to zexy svn path=/trunk/externals/zexy/; revision=169 --- src/z_skeleton_tilde.c | 61 ++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 61 insertions(+) create mode 100644 src/z_skeleton_tilde.c (limited to 'src/z_skeleton_tilde.c') diff --git a/src/z_skeleton_tilde.c b/src/z_skeleton_tilde.c new file mode 100644 index 0000000..2e638f7 --- /dev/null +++ b/src/z_skeleton_tilde.c @@ -0,0 +1,61 @@ +#include + +#include "zexy.h" + +#ifdef NT +#pragma warning( disable : 4244 ) +#pragma warning( disable : 4305 ) +#endif + +/* skeleton~ : skeleton-code for a signal-object */ + +/* ------------------------ skeleton~ ----------------------------- */ + +static t_class *skeleton_class; + +typedef struct _skeleton +{ + t_object x_obj; + +} t_skeleton; + + +static t_int *skeleton_perform(t_int *w) +{ + t_float *in = (t_float *)(w[1]); + t_float *out = (t_float *)(w[2]); + int n = (int)(w[3]); + t_skeleton *x = (t_skeleton *) w[4]; + + while (n--) { + *in++=*out++; + } + + return (w+5); +} + +static void skeleton_dsp(t_skeleton *x, t_signal **sp) +{ + dsp_add(skeleton_perform, 4, sp[0]->s_vec, sp[1]->s_vec, sp[0]->s_n,x); +} + + + +static void *skeleton_new() +{ + t_skeleton *x = (t_skeleton *)pd_new(skeleton_class); + outlet_new(&x->x_obj, gensym("signal")); + + return (x); +} + +void z_skeleton_setup(void) +{ + skeleton_class = class_new(gensym("skeleton~"), (t_newmethod)skeleton_new, 0, + sizeof(t_skeleton), 0, A_DEFFLOAT, 0); + class_addmethod(skeleton_class, nullfn, gensym("signal"), 0); + class_addmethod(skeleton_class, (t_method)skeleton_dsp, gensym("dsp"), 0); + + class_sethelpsymbol(skeleton_class, gensym("zexy/skeleton~")); +} + -- cgit v1.2.1