diff options
Diffstat (limited to 'src/iem_t3_lib/t3_sig~.c')
| -rw-r--r-- | src/iem_t3_lib/t3_sig~.c | 192 |
1 files changed, 0 insertions, 192 deletions
diff --git a/src/iem_t3_lib/t3_sig~.c b/src/iem_t3_lib/t3_sig~.c deleted file mode 100644 index 458e2a6..0000000 --- a/src/iem_t3_lib/t3_sig~.c +++ /dev/null @@ -1,192 +0,0 @@ -/* For information on usage and redistribution, and for a DISCLAIMER OF ALL -* WARRANTIES, see the file, "LICENSE.txt," in this distribution. - -iem_t3_lib written by Gerhard Eckel, Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */ - -#include "m_pd.h" -#include "iemlib.h" - -/* -------------------------- t3_sig_tilde~ ------------------------------ */ -static t_class *t3_sig_tilde_class; - -typedef struct _t3_sig_tilde -{ - t_object x_obj; - t_clock *x_clock; - t_float x_old_val; - t_float x_new_val; - t_float *x_beg; - int x_n; - int x_t3_bang_samps; - int x_transient; - t_float x_ms2samps; - t_float x_ticks2ms; -} t_t3_sig_tilde; - -static void t3_sig_tilde_tick(t_t3_sig_tilde *x) -{ - t_float *trans = x->x_beg, val; - int n = x->x_n, t3_bang_samps, i; - - t3_bang_samps = x->x_t3_bang_samps; - if(!x->x_transient) - { - val = x->x_old_val; - for(i=0; i<t3_bang_samps; i++) - trans[i] = val; - x->x_transient = 1; - } - val = x->x_old_val = x->x_new_val; - for(i=t3_bang_samps; i<n; i++) - trans[i] = val; -} - -static void t3_sig_tilde_stop(t_t3_sig_tilde *x) -{ - clock_unset(x->x_clock); - x->x_new_val = x->x_old_val; -} - -static void t3_sig_tilde_list(t_t3_sig_tilde *x, t_symbol *s, int ac, t_atom *av) -{ - if((ac == 2)&&IS_A_FLOAT(av,0)&&IS_A_FLOAT(av,1)) - { - int n = x->x_n, t3_bang_samps, ticks; - - t3_bang_samps = (int)((t_float)atom_getfloatarg(0, ac, av)*x->x_ms2samps); - x->x_new_val = (t_float)atom_getfloatarg(1, ac, av); - if(t3_bang_samps < 0) - t3_bang_samps = 0; - ticks = t3_bang_samps / n; - x->x_t3_bang_samps = t3_bang_samps - n*ticks; - if(ticks < 1) - t3_sig_tilde_tick(x); - else - clock_delay(x->x_clock, (double)ticks * (double)x->x_ticks2ms); - } -} - -static t_int *t3_sig_tilde_perform(t_int *w) -{ - t_float *out = (t_float *)(w[1]); - t_t3_sig_tilde *x = (t_t3_sig_tilde *)(w[2]); - int n = (int)(w[3]); - - if(x->x_transient) - { - t_float *trans = x->x_beg; - - while(n--) - *out++ = *trans++; - x->x_transient = 0; - } - else - { - t_float val = x->x_new_val; - - while(n--) - *out++ = val; - } - return (w+4); -} - -static t_int *t3_sig_tilde_perf8(t_int *w) -{ - t_float *out = (t_float *)(w[1]); - t_t3_sig_tilde *x = (t_t3_sig_tilde *)(w[2]); - int n = (int)(w[3]), i; - - if(x->x_transient) - { - t_float *trans = x->x_beg; - - for(i=0; i<n; i+=8, out+=8, trans+=8) - { - out[0] = trans[0]; - out[1] = trans[1]; - out[2] = trans[2]; - out[3] = trans[3]; - out[4] = trans[4]; - out[5] = trans[5]; - out[6] = trans[6]; - out[7] = trans[7]; - } - x->x_transient = 0; - } - else - { - t_float val = x->x_new_val; - - for(i=0; i<n; i+=8, out+=8) - { - out[0] = val; - out[1] = val; - out[2] = val; - out[3] = val; - out[4] = val; - out[5] = val; - out[6] = val; - out[7] = val; - } - } - return (w+4); -} - -static void t3_sig_tilde_dsp(t_t3_sig_tilde *x, t_signal **sp) -{ - int i; - t_float *trans, val; - - if(sp[0]->s_n > x->x_n) - { - freebytes(x->x_beg, x->x_n*sizeof(t_float)); - x->x_n = sp[0]->s_n; - x->x_beg = (t_float *)getbytes(x->x_n*sizeof(t_float)); - } - else - x->x_n = sp[0]->s_n; - x->x_ms2samps = 0.001*(t_float)sp[0]->s_sr; - x->x_ticks2ms = (t_float)x->x_n / x->x_ms2samps; - i = x->x_n; - val = x->x_new_val; - trans = x->x_beg; - while(i--) - *trans++ = val; - - if((sp[0]->s_n)&7) - dsp_add(t3_sig_tilde_perform, 3, sp[0]->s_vec, x, sp[0]->s_n); - else - dsp_add(t3_sig_tilde_perf8, 3, sp[0]->s_vec, x, sp[0]->s_n); -} - -static void t3_sig_tilde_free(t_t3_sig_tilde *x) -{ - if(x->x_beg) - freebytes(x->x_beg, x->x_n*sizeof(t_float)); - clock_free(x->x_clock); -} - -static void *t3_sig_tilde_new(t_floatarg init_val) -{ - t_t3_sig_tilde *x = (t_t3_sig_tilde *)pd_new(t3_sig_tilde_class); - - x->x_new_val = x->x_old_val = init_val; - x->x_n = (int)sys_getblksize(); - x->x_beg = (t_float *)getbytes(x->x_n*sizeof(t_float)); - x->x_t3_bang_samps = x->x_transient = 0; - x->x_ms2samps = 0.001 * (t_float)sys_getsr(); - x->x_ticks2ms = (t_float)x->x_n / x->x_ms2samps; - x->x_clock = clock_new(x, (t_method)t3_sig_tilde_tick); - outlet_new(&x->x_obj, &s_signal); - return (x); -} - -void t3_sig_tilde_setup(void) -{ - t3_sig_tilde_class = class_new(gensym("t3_sig~"), (t_newmethod)t3_sig_tilde_new, - (t_method)t3_sig_tilde_free, sizeof(t_t3_sig_tilde), 0, A_DEFFLOAT, 0); - class_addmethod(t3_sig_tilde_class, (t_method)t3_sig_tilde_dsp, gensym("dsp"), 0); - class_addmethod(t3_sig_tilde_class, (t_method)t3_sig_tilde_stop, gensym("stop"), 0); - class_addlist(t3_sig_tilde_class, (t_method)t3_sig_tilde_list); - class_sethelpsymbol(t3_sig_tilde_class, gensym("iemhelp/help-t3_sig~")); -} |