From 0d4b66c7bc77f6a2fafb1debe548f8621d21cf70 Mon Sep 17 00:00:00 2001 From: Miller Puckette Date: Sun, 21 Aug 2005 14:46:18 +0000 Subject: Improved samplerate~ implementation. svn path=/trunk/; revision=3438 --- pd/src/d_misc.c | 43 ------------------------------------------- 1 file changed, 43 deletions(-) (limited to 'pd/src/d_misc.c') diff --git a/pd/src/d_misc.c b/pd/src/d_misc.c index 1056f0cb..3a327dc5 100644 --- a/pd/src/d_misc.c +++ b/pd/src/d_misc.c @@ -127,48 +127,6 @@ static void bang_tilde_setup(void) gensym("dsp"), 0); } -/* ------------------------ samplerate~~ -------------------------- */ - -static t_class *samplerate_tilde_class; - -typedef struct _samplerate -{ - t_object x_obj; - float x_sr; -} t_samplerate; - -static void samplerate_tilde_bang(t_samplerate *x) -{ - if (!canvas_dspstate) - { - post( - "NB: samplerate~ momentarily started DSP to learn sample rate"); - canvas_resume_dsp(1); - canvas_suspend_dsp(); - } - outlet_float(x->x_obj.ob_outlet, x->x_sr); -} - -static void samplerate_tilde_dsp(t_samplerate *x, t_signal **sp) -{ - x->x_sr = sp[0]->s_sr; -} - -static void *samplerate_tilde_new(t_symbol *s) -{ - t_samplerate *x = (t_samplerate *)pd_new(samplerate_tilde_class); - outlet_new(&x->x_obj, &s_float); - return (x); -} - -static void samplerate_tilde_setup(void) -{ - samplerate_tilde_class = class_new(gensym("samplerate~"), - (t_newmethod)samplerate_tilde_new, 0, sizeof(t_samplerate), 0, 0); - class_addbang(samplerate_tilde_class, samplerate_tilde_bang); - class_addmethod(samplerate_tilde_class, (t_method)samplerate_tilde_dsp, - gensym("dsp"), A_CANT, 0); -} /* ------------------------ global setup routine ------------------------- */ @@ -176,7 +134,6 @@ void d_misc_setup(void) { print_setup(); bang_tilde_setup(); - samplerate_tilde_setup(); } -- cgit v1.2.1