aboutsummaryrefslogtreecommitdiff
path: root/iemlib1/src/peakenv_hold~.c
diff options
context:
space:
mode:
Diffstat (limited to 'iemlib1/src/peakenv_hold~.c')
-rw-r--r--iemlib1/src/peakenv_hold~.c18
1 files changed, 9 insertions, 9 deletions
diff --git a/iemlib1/src/peakenv_hold~.c b/iemlib1/src/peakenv_hold~.c
index 3e9b09a..f21a8d2 100644
--- a/iemlib1/src/peakenv_hold~.c
+++ b/iemlib1/src/peakenv_hold~.c
@@ -35,8 +35,8 @@ static void peakenv_hold_tilde_ft1(t_peakenv_hold_tilde *x, t_float t_hold)/* ho
{
double dhold;
- if(t_hold < 0.0f)
- t_hold = 0.0f;
+ if(t_hold < 0.0)
+ t_hold = 0.0;
x->x_holdtime = (double)t_hold;
dhold = x->x_sr*0.001*x->x_holdtime;
if(dhold > 2147483647.0)
@@ -46,16 +46,16 @@ static void peakenv_hold_tilde_ft1(t_peakenv_hold_tilde *x, t_float t_hold)/* ho
static void peakenv_hold_tilde_ft2(t_peakenv_hold_tilde *x, t_float t_rel)/* release-time in ms */
{
- if(t_rel < 0.0f)
- t_rel = 0.0f;
+ if(t_rel < 0.0)
+ t_rel = 0.0;
x->x_releasetime = (double)t_rel;
x->x_c1 = exp(-1.0/(x->x_sr*0.001*x->x_releasetime));
}
static t_int *peakenv_hold_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_hold_tilde *x = (t_peakenv_hold_tilde *)(w[3]);
int n = (int)(w[4]);
double peak = x->x_old_peak;
@@ -66,7 +66,7 @@ static t_int *peakenv_hold_tilde_perform(t_int *w)
counter = x->x_counter;
for(i=0; i<n; i++)
{
- absolute = (double)fabs(*in++);
+ absolute = (double)abs((double)(*in++));
if(counter > 0)
counter--;// hold peride
else
@@ -76,7 +76,7 @@ static t_int *peakenv_hold_tilde_perform(t_int *w)
peak = absolute;
counter = x->x_n_hold;// new hold initialisation
}
- *out++ = (t_float)peak;
+ *out++ = (t_sample)peak;
}
/* NAN protect */
//if(IEM_DENORMAL(peak))
@@ -106,7 +106,7 @@ static void *peakenv_hold_tilde_new(t_float t_hold, t_float t_rel)
inlet_new(&x->x_obj, &x->x_obj.ob_pd, &s_float, gensym("ft1"));
inlet_new(&x->x_obj, &x->x_obj.ob_pd, &s_float, gensym("ft2"));
outlet_new(&x->x_obj, &s_signal);
- x->x_float_sig_in = 0.0f;
+ x->x_float_sig_in = 0.0;
return(x);
}