diff options
author | Guenter Geiger <ggeiger@users.sourceforge.net> | 2002-10-09 10:19:04 +0000 |
---|---|---|
committer | Guenter Geiger <ggeiger@users.sourceforge.net> | 2002-10-09 10:19:04 +0000 |
commit | d2eec74a4d8c21aad495ba61539486b24d7ab8dc (patch) | |
tree | 8340a62efe3eb1d42dc40265723c2704d3bd6452 /src/z_skeleton_tilde.c |
moved from zexy/zexy to zexysvn2git-root
svn path=/trunk/externals/zexy/; revision=169
Diffstat (limited to 'src/z_skeleton_tilde.c')
-rw-r--r-- | src/z_skeleton_tilde.c | 61 |
1 files changed, 61 insertions, 0 deletions
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 <stdio.h> + +#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~")); +} + |