From 33dd6d603830640766aa1a5fe70137c856e2c145 Mon Sep 17 00:00:00 2001
From: musil <tmusil@users.sourceforge.net>
Date: Thu, 6 Sep 2012 15:54:46 +0000
Subject: other variable names, t_float to t_sample change, array access 64 bit

svn path=/trunk/externals/iemlib/; revision=16193
---
 iemlib1/src/peakenv~.c | 18 +++++++++---------
 1 file changed, 9 insertions(+), 9 deletions(-)

(limited to 'iemlib1/src/peakenv~.c')

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);
 }
 
-- 
cgit v1.2.1