aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorIOhannes m zmölnig <zmoelnig@users.sourceforge.net>2008-05-07 12:18:17 +0000
committerIOhannes m zmölnig <zmoelnig@users.sourceforge.net>2008-05-07 12:18:17 +0000
commit5ca8c9edddab2362a1d06426eea91e94141c3792 (patch)
tree386d20c3a8d34f48da6cde47ac453183bd05ace5 /src
parentf32a691b364e29b2169859d7fc962d799e06e61c (diff)
don't output the list in the DSP-cycle
svn path=/trunk/externals/zexy/; revision=9770
Diffstat (limited to 'src')
-rw-r--r--src/pack~.c27
1 files changed, 21 insertions, 6 deletions
diff --git a/src/pack~.c b/src/pack~.c
index e195573..8cdd03f 100644
--- a/src/pack~.c
+++ b/src/pack~.c
@@ -28,9 +28,15 @@ typedef struct _sigpack
int vector_length;
t_atom *buffer;
-
+ t_clock*x_clock;
+ int x_outputindsp;
} t_sigpack;
+static void *sigpack_tick(t_sigpack*x)
+{
+ outlet_list(x->x_obj.ob_outlet, &s_list, x->vector_length, x->buffer);
+}
+
static t_int *sigpack_perform(t_int *w)
{
t_sample *in = (t_sample *)(w[1]);
@@ -43,10 +49,11 @@ static t_int *sigpack_perform(t_int *w)
SETFLOAT(&buf[i], f);
i++;
}
-#ifdef __GNUC__
-# warning defer list-output to next block with a clock!
-#endif
- outlet_list(x->x_obj.ob_outlet, &s_list, x->vector_length, x->buffer);
+ if(x->x_outputindsp) {
+ sigpack_tick(x);
+ } else {
+ clock_delay(x->x_clock, 0);
+ }
return (w+4);
}
@@ -61,12 +68,20 @@ static void sigpack_dsp(t_sigpack *x, t_signal **sp)
dsp_add(sigpack_perform, 3, sp[0]->s_vec, x, sp[0]->s_n);
}
+static void *sigpack_free(t_sigpack*x)
+{
+ clock_free(x->x_clock);
+}
+
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"));
+ x->x_clock=clock_new(x, (t_method)sigpack_tick);
+
+ x->x_outputindsp=0;
return (x);
}
@@ -78,7 +93,7 @@ static void sigpack_help(void)
void pack_tilde_setup(void)
{
- sigpack_class = class_new(gensym("pack~"), (t_newmethod)sigpack_new, 0,
+ sigpack_class = class_new(gensym("pack~"), (t_newmethod)sigpack_new, (t_method)sigpack_free,
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);