From 5c09e01a431bd9c9f5462e8913a0181d8718dda1 Mon Sep 17 00:00:00 2001 From: musil Date: Thu, 4 Jul 2013 17:27:45 +0000 Subject: changed t_signal, t_float, and date svn path=/trunk/externals/iem/iem_delay/; revision=17187 --- src/n_delay2p_line~.c | 167 +++++++++++++++++++++++--------------------------- 1 file changed, 78 insertions(+), 89 deletions(-) (limited to 'src/n_delay2p_line~.c') diff --git a/src/n_delay2p_line~.c b/src/n_delay2p_line~.c index 32da69e..dc948b6 100644 --- a/src/n_delay2p_line~.c +++ b/src/n_delay2p_line~.c @@ -1,7 +1,7 @@ /* For information on usage and redistribution, and for a DISCLAIMER OF ALL * WARRANTIES, see the file, "LICENSE.txt," in this distribution. -iem_delay written by Thomas Musil (c) IEM KUG Graz Austria 2002 - 2006 */ +iem_delay written by Thomas Musil (c) IEM KUG Graz Austria 2002 - 2011 */ #include "m_pd.h" @@ -9,6 +9,8 @@ iem_delay written by Thomas Musil (c) IEM KUG Graz Austria 2002 - 2006 */ #include "iem_delay.h" /* -------------------------- n_delay2p_line_tilde~ ------------------------------ */ +/* ----------- n 2-point interpolated line~-signal driven delay taps ------------- */ + static t_class *n_delay2p_line_tilde_class; t_float n_delay2p_line_tilde_256f[258]; @@ -18,8 +20,8 @@ typedef struct _n_delay2p_line_tilde t_object x_obj; int x_mallocsize; t_float x_max_delay_ms; - t_float *x_begmem0; - t_float *x_begmem1; + t_sample *x_begmem1; + t_sample *x_begmem2; int x_writeindex; int x_n_delays; int *x_del_samp256_end; @@ -35,21 +37,21 @@ typedef struct _n_delay2p_line_tilde int x_ticksleft; int x_old; int x_retarget; - t_float **x_io; - t_float x_msi; + t_sample **x_io; + t_float x_scalar_sig_in; } t_n_delay2p_line_tilde; static void n_delay2p_line_tilde_init_f(t_n_delay2p_line_tilde *x) { - if(n_delay2p_line_tilde_256f[257] == 0.0f) + if(n_delay2p_line_tilde_256f[257] == (t_float)0.0) { int i; for(i=0; i<257; i++) { - n_delay2p_line_tilde_256f[i] = (t_float)i / 256.0f; + n_delay2p_line_tilde_256f[i] = (t_float)i / (t_float)256.0; } - n_delay2p_line_tilde_256f[257] = 1.0f; + n_delay2p_line_tilde_256f[257] = (t_float)1.0; } } @@ -60,29 +62,29 @@ static void n_delay2p_line_tilde_list(t_n_delay2p_line_tilde *x, t_symbol *s, in int i; t_float delay, max=x->x_max_delay_ms; - if(x->x_interpol_ms <= 0.0f) + if(x->x_interpol_ms <= (t_float)0.0) x->x_ticksleft = x->x_retarget = 0; else x->x_retarget = 1; for(i=0; i max) delay = max; - if(x->x_interpol_ms <= 0.0f) - x->x_del_samp256_end[i] = x->x_del_samp256_cur[i] = (int)(x->x_ms2samples256 * delay + 0.5f) + 127; + if(x->x_interpol_ms <= (t_float)0.0) + x->x_del_samp256_end[i] = x->x_del_samp256_cur[i] = (int)(x->x_ms2samples256 * delay + (t_float)0.5) + 127; else - x->x_del_samp256_end[i] = (int)(x->x_ms2samples256 * delay + 0.5f) + 127; + x->x_del_samp256_end[i] = (int)(x->x_ms2samples256 * delay + (t_float)0.5) + 127; } } } static void n_delay2p_line_tilde_time(t_n_delay2p_line_tilde *x, t_floatarg interpol_ms) { - if(interpol_ms < 0.0f) - interpol_ms = 0.0f; + if(interpol_ms < (t_float)0.0) + interpol_ms = (t_float)0.0; x->x_interpol_ms = interpol_ms; x->x_interpol_ticks = (int)(x->x_ms2tick * interpol_ms); } @@ -101,30 +103,25 @@ static t_int *n_delay2p_line_tilde_perform(t_int *w) t_n_delay2p_line_tilde *x = (t_n_delay2p_line_tilde *)(w[1]); int hn=(int)(w[2]); int nout=x->x_n_delays; - t_float *in; - t_float *out; + t_sample *in; + t_sample *out; int writeindex = x->x_writeindex; int i, j, n, fractindex; int malloc_samples = x->x_mallocsize; - t_float *begvec0 = x->x_begmem0; - t_float *begvec1 = x->x_begmem1; - t_float *writevec; - t_float *readvec; + t_sample *begvec1 = x->x_begmem1; + t_sample *begvec2 = x->x_begmem2; + t_sample *writevec; + t_sample *readvec; t_float fract; int del256, inc256; - writevec = begvec0 + writeindex; - in=x->x_io[0]; - n = hn; - while(n--) - { - *writevec++ = *in++; - } - writevec = begvec1 + writeindex; + begvec1 += writeindex; + writevec = begvec2 + writeindex; in=x->x_io[0]; n = hn; while(n--) { + *begvec1++ = *in; *writevec++ = *in++; } @@ -154,8 +151,8 @@ static t_int *n_delay2p_line_tilde_perform(t_int *w) { fractindex = del256 & 0xff; fract = n_delay2p_line_tilde_256f[fractindex]; - readvec = begvec1 + writeindex - (del256 >> 8) + i; - *out++ = readvec[0] - (readvec[0] - readvec[-1])*fract; + readvec = begvec2 + writeindex - (del256 >> 8) + i; + *out++ = readvec[0] - (readvec[0] - readvec[-1])*(t_sample)fract; del256 += inc256; } x->x_del_samp256_cur[j] += x->x_biginc256[j]; @@ -167,7 +164,7 @@ static t_int *n_delay2p_line_tilde_perform(t_int *w) for(j=0; jx_del_samp256_cur[j] = x->x_del_samp256_end[j]; - readvec = begvec1 + writeindex - (del256 >> 8); + readvec = begvec2 + writeindex - (del256 >> 8); out = x->x_io[j+1]; n = hn; while(n--) @@ -190,43 +187,35 @@ static t_int *n_delay2p_line_tilde_perf8(t_int *w) t_n_delay2p_line_tilde *x = (t_n_delay2p_line_tilde *)(w[1]); int hn=(int)(w[2]); int nout=x->x_n_delays; - t_float *in; - t_float *out; + t_sample *in; + t_sample *out; int writeindex = x->x_writeindex; int i, j, k, n, fractindex; int malloc_samples = x->x_mallocsize; - t_float *begvec0 = x->x_begmem0; - t_float *begvec1 = x->x_begmem1; - t_float *writevec; - t_float *readvec; + t_sample *begvec1 = x->x_begmem1; + t_sample *begvec2 = x->x_begmem2; + t_sample *writevec; + t_sample *readvec; t_float fract; int del256, inc256; // post("writevec = %d",writeindex); - writevec = begvec0 + writeindex; - in=x->x_io[0]; - n = hn; - while(n) - { - writevec[0] = in[0]; - writevec[1] = in[1]; - writevec[2] = in[2]; - writevec[3] = in[3]; - writevec[4] = in[4]; - writevec[5] = in[5]; - writevec[6] = in[6]; - writevec[7] = in[7]; - - writevec += 8; - n -= 8; - in += 8; - } - writevec = begvec1 + writeindex; + begvec1 += writeindex; + writevec = begvec2 + writeindex; in=x->x_io[0]; n = hn; while(n) { - writevec[0] = in[0]; + begvec1[0] = in[0]; + begvec1[1] = in[1]; + begvec1[2] = in[2]; + begvec1[3] = in[3]; + begvec1[4] = in[4]; + begvec1[5] = in[5]; + begvec1[6] = in[6]; + begvec1[7] = in[7]; + + writevec[0] = in[0]; writevec[1] = in[1]; writevec[2] = in[2]; writevec[3] = in[3]; @@ -235,6 +224,7 @@ static t_int *n_delay2p_line_tilde_perf8(t_int *w) writevec[6] = in[6]; writevec[7] = in[7]; + begvec1 += 8; writevec += 8; n -= 8; in += 8; @@ -262,55 +252,55 @@ static t_int *n_delay2p_line_tilde_perf8(t_int *w) inc256 = x->x_inc256[j]; del256 = x->x_del_samp256_cur[j]; out = x->x_io[j+1]; - readvec = begvec1 + writeindex; + readvec = begvec2 + writeindex; for(i=0; i> 8; - out[0] = readvec[0-k] - (readvec[0-k] - readvec[-1-k])*fract; + out[0] = readvec[0-k] - (readvec[0-k] - readvec[-1-k])*(t_sample)fract; del256 += inc256; fractindex = del256 & 0xff; fract = n_delay2p_line_tilde_256f[fractindex]; k = del256 >> 8; - out[1] = readvec[1-k] - (readvec[1-k] - readvec[0-k])*fract; + out[1] = readvec[1-k] - (readvec[1-k] - readvec[0-k])*(t_sample)fract; del256 += inc256; fractindex = del256 & 0xff; fract = n_delay2p_line_tilde_256f[fractindex]; k = del256 >> 8; - out[2] = readvec[2-k] - (readvec[2-k] - readvec[1-k])*fract; + out[2] = readvec[2-k] - (readvec[2-k] - readvec[1-k])*(t_sample)fract; del256 += inc256; fractindex = del256 & 0xff; fract = n_delay2p_line_tilde_256f[fractindex]; k = del256 >> 8; - out[3] = readvec[3-k] - (readvec[3-k] - readvec[2-k])*fract; + out[3] = readvec[3-k] - (readvec[3-k] - readvec[2-k])*(t_sample)fract; del256 += inc256; fractindex = del256 & 0xff; fract = n_delay2p_line_tilde_256f[fractindex]; k = del256 >> 8; - out[4] = readvec[4-k] - (readvec[4-k] - readvec[3-k])*fract; + out[4] = readvec[4-k] - (readvec[4-k] - readvec[3-k])*(t_sample)fract; del256 += inc256; fractindex = del256 & 0xff; fract = n_delay2p_line_tilde_256f[fractindex]; k = del256 >> 8; - out[5] = readvec[5-k] - (readvec[5-k] - readvec[4-k])*fract; + out[5] = readvec[5-k] - (readvec[5-k] - readvec[4-k])*(t_sample)fract; del256 += inc256; fractindex = del256 & 0xff; fract = n_delay2p_line_tilde_256f[fractindex]; k = del256 >> 8; - out[6] = readvec[6-k] - (readvec[6-k] - readvec[5-k])*fract; + out[6] = readvec[6-k] - (readvec[6-k] - readvec[5-k])*(t_sample)fract; del256 += inc256; fractindex = del256 & 0xff; fract = n_delay2p_line_tilde_256f[fractindex]; k = del256 >> 8; - out[7] = readvec[7-k] - (readvec[7-k] - readvec[6-k])*fract; + out[7] = readvec[7-k] - (readvec[7-k] - readvec[6-k])*(t_sample)fract; del256 += inc256; out += 8; @@ -325,7 +315,7 @@ static t_int *n_delay2p_line_tilde_perf8(t_int *w) for(j=0; jx_del_samp256_cur[j] = x->x_del_samp256_end[j]; - readvec = begvec1 + writeindex - (del256 >> 8); + readvec = begvec2 + writeindex - (del256 >> 8); out = x->x_io[j+1]; n = hn; while(n) @@ -360,34 +350,34 @@ static void n_delay2p_line_tilde_dsp(t_n_delay2p_line_tilde *x, t_signal **sp) if(!x->x_blocksize)/*first time*/ { - int nsamps = x->x_max_delay_ms * (t_float)sp[0]->s_sr * 0.001f; + int nsamps = x->x_max_delay_ms * (t_float)sp[0]->s_sr * (t_float)0.001; if(nsamps < 1) nsamps = 1; nsamps += ((- nsamps) & (n - 1)); nsamps += n; x->x_mallocsize = nsamps; - x->x_begmem0 = (t_float *)getbytes(2 * x->x_mallocsize * sizeof(t_float)); - x->x_begmem1 = x->x_begmem0 + x->x_mallocsize; + x->x_begmem1 = (t_sample *)getbytes(2 * x->x_mallocsize * sizeof(t_sample)); + x->x_begmem2 = x->x_begmem1 + x->x_mallocsize; x->x_writeindex = n; } else if((x->x_blocksize != n) || ((t_float)sp[0]->s_sr != x->x_sr)) { - int nsamps = x->x_max_delay_ms * (t_float)sp[0]->s_sr * 0.001f; + int nsamps = x->x_max_delay_ms * (t_float)sp[0]->s_sr * (t_float)0.001; if(nsamps < 1) nsamps = 1; nsamps += ((- nsamps) & (n - 1)); nsamps += n; - x->x_begmem0 = (t_float *)resizebytes(x->x_begmem0, 2*x->x_mallocsize*sizeof(t_float), 2*nsamps*sizeof(t_float)); + x->x_begmem1 = (t_sample *)resizebytes(x->x_begmem1, 2*x->x_mallocsize*sizeof(t_sample), 2*nsamps*sizeof(t_sample)); x->x_mallocsize = nsamps; - x->x_begmem1 = x->x_begmem0 + x->x_mallocsize; + x->x_begmem2 = x->x_begmem1 + x->x_mallocsize; if(x->x_writeindex >= nsamps) x->x_writeindex -= nsamps; } x->x_blocksize = n; - x->x_ms2tick = 0.001f * (t_float)sp[0]->s_sr / (t_float)n; - x->x_ms2samples256 = 0.256f * (t_float)sp[0]->s_sr; + x->x_ms2tick = (t_float)0.001 * (t_float)sp[0]->s_sr / (t_float)n; + x->x_ms2samples256 = (t_float)0.256 * (t_float)sp[0]->s_sr; x->x_interpol_ticks = (int)(x->x_ms2tick * x->x_interpol_ms); for(i=0; ix_io[i] = sp[i]->s_vec; @@ -401,7 +391,7 @@ static void *n_delay2p_line_tilde_new(t_floatarg fout, t_floatarg delay_ms, t_fl { t_n_delay2p_line_tilde *x = (t_n_delay2p_line_tilde *)pd_new(n_delay2p_line_tilde_class); int i, n_out = (int)fout; - int nsamps = delay_ms * sys_getsr() * 0.001f; + int nsamps = delay_ms * sys_getsr() * (t_float)0.001; if(n_out < 1) n_out = 1; @@ -412,15 +402,15 @@ static void *n_delay2p_line_tilde_new(t_floatarg fout, t_floatarg delay_ms, t_fl nsamps += ((- nsamps) & (DELLINE_DEF_VEC_SIZE - 1)); nsamps += DELLINE_DEF_VEC_SIZE; x->x_mallocsize = nsamps; - x->x_begmem0 = (t_float *)getbytes(2 * x->x_mallocsize * sizeof(t_float)); - x->x_begmem1 = x->x_begmem0 + x->x_mallocsize; + x->x_begmem1 = (t_sample *)getbytes(2 * x->x_mallocsize * sizeof(t_sample)); + x->x_begmem2 = x->x_begmem1 + x->x_mallocsize; x->x_writeindex = DELLINE_DEF_VEC_SIZE; x->x_blocksize = 0; - x->x_sr = 0.0f; - if(interpol_ms < 0.0f) - interpol_ms = 0.0f; + x->x_sr = (t_float)0.0; + if(interpol_ms < (t_float)0.0) + interpol_ms = (t_float)0.0; x->x_interpol_ms = interpol_ms; - x->x_io = (t_float **)getbytes((x->x_n_delays + 1) * sizeof(t_float *)); + x->x_io = (t_sample **)getbytes((x->x_n_delays + 1) * sizeof(t_sample *)); for(i=0; ix_obj, &s_signal); x->x_del_samp256_end = (int *)getbytes(x->x_n_delays * sizeof(int)); @@ -434,7 +424,7 @@ static void *n_delay2p_line_tilde_new(t_floatarg fout, t_floatarg delay_ms, t_fl x->x_inc256[i] = x->x_biginc256[i] = 0; } x->x_interpol_ticks = 0; - x->x_msi = 0.0f; + x->x_scalar_sig_in = (t_float)0.0; n_delay2p_line_tilde_init_f(x); return (x); } @@ -445,18 +435,17 @@ static void n_delay2p_line_tilde_free(t_n_delay2p_line_tilde *x) freebytes(x->x_del_samp256_cur, x->x_n_delays * sizeof(int)); freebytes(x->x_inc256, x->x_n_delays * sizeof(int)); freebytes(x->x_biginc256, x->x_n_delays * sizeof(int)); - freebytes(x->x_io, (x->x_n_delays + 1) * sizeof(t_float *)); - freebytes(x->x_begmem0, 2 * x->x_mallocsize * sizeof(t_float)); + freebytes(x->x_io, (x->x_n_delays + 1) * sizeof(t_sample *)); + freebytes(x->x_begmem1, 2 * x->x_mallocsize * sizeof(t_sample)); } void n_delay2p_line_tilde_setup(void) { n_delay2p_line_tilde_class = class_new(gensym("n_delay2p_line~"), (t_newmethod)n_delay2p_line_tilde_new, (t_method)n_delay2p_line_tilde_free, sizeof(t_n_delay2p_line_tilde), 0, A_DEFFLOAT, A_DEFFLOAT, A_DEFFLOAT, 0); - CLASS_MAINSIGNALIN(n_delay2p_line_tilde_class, t_n_delay2p_line_tilde, x_msi); + CLASS_MAINSIGNALIN(n_delay2p_line_tilde_class, t_n_delay2p_line_tilde, x_scalar_sig_in); class_addlist(n_delay2p_line_tilde_class, (t_method)n_delay2p_line_tilde_list); class_addmethod(n_delay2p_line_tilde_class, (t_method)n_delay2p_line_tilde_dsp, gensym("dsp"), 0); class_addmethod(n_delay2p_line_tilde_class, (t_method)n_delay2p_line_tilde_stop, gensym("stop"), 0); class_addmethod(n_delay2p_line_tilde_class, (t_method)n_delay2p_line_tilde_time, gensym("time"), A_FLOAT, 0); -// class_sethelpsymbol(n_delay2p_line_tilde_class, gensym("iemhelp2/n_delay2p_line~-help")); } -- cgit v1.2.1