From 7312e58d17e331d71d4f47e21bf15499609bace8 Mon Sep 17 00:00:00 2001 From: dieter kovacic Date: Tue, 9 Jul 2002 12:41:56 +0000 Subject: This commit was generated by cvs2svn to compensate for changes in r33, which included commits to RCS files with non-trunk default branches. svn path=/trunk/externals/ext13/; revision=34 --- catch13~.c | 67 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 67 insertions(+) create mode 100644 catch13~.c (limited to 'catch13~.c') diff --git a/catch13~.c b/catch13~.c new file mode 100644 index 0000000..88b4d63 --- /dev/null +++ b/catch13~.c @@ -0,0 +1,67 @@ +/* Copyright (c) 1997-1999 Miller Puckette source modified by dieb13. +* For information on usage and redistribution, and for a DISCLAIMER OF ALL +* WARRANTIES, see the file, "LICENSE.txt," in this distribution. */ + +/* catch13~ ... = original objects with set-message for changing - bad hack - but works somehow*/ + +#include "m_pd.h" +#include "d_global13.h" + +#define DEFSENDVS 64 /* LATER get send to get this from canvas */ + + +/* ----------------------------- catch13~ ----------------------------- */ + + void *sigcatch13_new(t_symbol *s) +{ + t_sigcatch13 *x = (t_sigcatch13 *)pd_new(sigcatch13_class); + if (!*s->s_name) s = gensym("catch~"); + pd_bind(&x->x_obj.ob_pd, s); + x->x_sym = s; + x->x_n = DEFSENDVS; + x->x_vec = (float *)getbytes(DEFSENDVS * sizeof(float)); + outlet_new(&x->x_obj, &s_signal); + return (x); +} + + + t_int *sigcatch13_perform(t_int *w) +{ + t_float *in = (t_float *)(w[1]); + t_float *out = (t_float *)(w[2]); + int n = (int)(w[3]); + while (n--) *out++ = *in, *in++ = 0; + return (w+4); +} + + void sigcatch13_set(t_sigcatch13 *x, t_symbol *s) +{ + pd_unbind(&x->x_obj.ob_pd, x->x_sym); + x->x_sym = s; + pd_bind(&x->x_obj.ob_pd, s); +} + + void sigcatch13_dsp(t_sigcatch13 *x, t_signal **sp) +{ + if (x->x_n == sp[0]->s_n) + dsp_add(sigcatch13_perform, 3, x->x_vec, sp[0]->s_vec, sp[0]->s_n); + else error("sigcatch13 %s: unexpected vector size", x->x_sym->s_name); +} + + void sigcatch13_free(t_sigcatch13 *x) +{ + pd_unbind(&x->x_obj.ob_pd, x->x_sym); + freebytes(x->x_vec, x->x_n * sizeof(float)); +} + +void sigcatch13_setup(void) +{ + sigcatch13_class = class_new(gensym("catch13~"), (t_newmethod)sigcatch13_new, + (t_method)sigcatch13_free, sizeof(t_sigcatch13), 0, A_DEFSYM, 0); + class_addcreator((t_newmethod)sigcatch13_new, gensym("c13~"), A_DEFSYM, 0); + class_addmethod(sigcatch13_class, (t_method)sigcatch13_set, gensym("set"), + A_SYMBOL, 0); + class_addmethod(sigcatch13_class, (t_method)sigcatch13_dsp, gensym("dsp"), 0); +} + + -- cgit v1.2.1