diff options
Diffstat (limited to 'iemlib1/src/peakenv~.c')
| -rw-r--r-- | iemlib1/src/peakenv~.c | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/iemlib1/src/peakenv~.c b/iemlib1/src/peakenv~.c index 9937bcb..9e25e2c 100644 --- a/iemlib1/src/peakenv~.c +++ b/iemlib1/src/peakenv~.c @@ -30,16 +30,16 @@ static void peakenv_tilde_reset(t_peakenv_tilde *x) static void peakenv_tilde_ft1(t_peakenv_tilde *x, t_floatarg f)/* release-time in ms */ { - if(f < 0.0f) - f = 0.0f; + if(f < 0.0) + f = 0.0; x->x_releasetime = (double)f; x->x_c1 = exp(-1.0/(x->x_sr*0.001*x->x_releasetime)); } static t_int *peakenv_tilde_perform(t_int *w) { - t_float *in = (t_float *)(w[1]); - t_float *out = (t_float *)(w[2]); + t_sample *in = (t_sample *)(w[1]); + t_sample *out = (t_sample *)(w[2]); t_peakenv_tilde *x = (t_peakenv_tilde *)(w[3]); int n = (int)(w[4]); double peak = x->x_old_peak; @@ -49,11 +49,11 @@ static t_int *peakenv_tilde_perform(t_int *w) for(i=0; i<n; i++) { - absolute = (double)fabs(*in++); + absolute = (double)abs((double)(*in++)); peak *= c1; if(absolute > peak) peak = absolute; - *out++ = (t_float)peak; + *out++ = (t_sample)peak; } /* NAN protect */ //if(IEM_DENORMAL(peak)) @@ -73,14 +73,14 @@ static void *peakenv_tilde_new(t_floatarg f) { t_peakenv_tilde *x = (t_peakenv_tilde *)pd_new(peakenv_tilde_class); - if(f <= 0.0f) - f = 0.0f; + if(f <= 0.0) + f = 0.0; x->x_sr = 44100.0; peakenv_tilde_ft1(x, f); x->x_old_peak = 0.0; inlet_new(&x->x_obj, &x->x_obj.ob_pd, &s_float, gensym("ft1")); outlet_new(&x->x_obj, &s_signal); - x->x_float_sig_in = 0.0f; + x->x_float_sig_in = 0.0; return(x); } |