made smlib compliant with double precision

svn path=/trunk/externals/smlib/; revision=15707

38 files changed, 247 insertions, 244 deletions

diff --git a/bp.c b/bp.c
index d21bc19..c18b5f7 100644
--- a/bp.c
+++ b/bp.c
@@ -4,21 +4,21 @@
 

 typedef struct bpctl

 {

-    float c_x1;

-    float c_x2;

-    float c_coef1;

-    float c_coef2;

-    float c_gain;

+    t_float c_x1;

+    t_float c_x2;

+    t_float c_coef1;

+    t_float c_coef2;

+    t_float c_gain;

 } t_bpctl;

 

 typedef struct bp

 {

     t_object x_obj;

-    float x_freq;

-    float x_q;

+    t_float x_freq;

+    t_float x_q;

     t_bpctl x_cspace;

     t_bpctl *x_ctl;

-    float x_f;

+    t_float x_f;

 } t_bp;

 

 t_class *bp_class;

@@ -39,29 +39,29 @@ static void *bp_new(t_floatarg f, t_floatarg q)
     return (x);

 }

 

-static float bp_qcos(float f)

+static t_float bp_qcos(t_float f)

 {

-    if (f >= -(0.5f*3.14159f) && f <= 0.5f*3.14159f)

+    if (f >= -(0.5*3.141592653589793) && f <= 0.5*3.141592653589793)

     {

-    	float g = f*f;

-    	return (((g*g*g * (-1.0f/720.0f) + g*g*(1.0f/24.0f)) - g*0.5f) + 1);

+    	t_float g = f*f;

+    	return (((g*g*g * (-1.0/720.0) + g*g*(1.0/24.0)) - g*0.5) + 1);

     }

     else return (0);

 }

 

 static void bp_docoef(t_bp *x, t_floatarg f, t_floatarg q)

 {

-    float r, oneminusr, omega;

-    if (f < 0.0001f) f = 0.0001f;

+    t_float r, oneminusr, omega;

+    if (f < 0.0001) f = 0.0001;

     if (q < 0) q = 0;

     x->x_freq = f;

     x->x_q = q;

-    omega = f * (2.0f * 3.14159f);

-    if (q < 0.001) oneminusr = 1.0f;

+    omega = f * (2.0 * 3.141592653589793);

+    if (q < 0.001) oneminusr = 1.0;

     else oneminusr = omega/q;

-    if (oneminusr > 1.0f) oneminusr = 1.0f;

-    r = 1.0f - oneminusr;

-    x->x_ctl->c_coef1 = 2.0f * bp_qcos(omega) * r;

+    if (oneminusr > 1.0) oneminusr = 1.0;

+    r = 1.0 - oneminusr;

+    x->x_ctl->c_coef1 = 2.0 * bp_qcos(omega) * r;

     x->x_ctl->c_coef2 = - r * r;

     x->x_ctl->c_gain = 2 * oneminusr * (oneminusr + r * omega);

     /* post("r %f, omega %f, coef1 %f, coef2 %f",

@@ -85,15 +85,15 @@ static void bp_clear(t_bp *x, t_floatarg q)
 

 static void bp_perform(t_bp *x, t_float in)

 {

-	float out;

+	t_float out;

     t_bpctl *c = x->x_ctl;

-    float last = c->c_x1;

-    float prev = c->c_x2;

-    float coef1 = c->c_coef1;

-    float coef2 = c->c_coef2;

-    float gain = c->c_gain;

+    t_float last = c->c_x1;

+    t_float prev = c->c_x2;

+    t_float coef1 = c->c_coef1;

+    t_float coef2 = c->c_coef2;

+    t_float gain = c->c_gain;

 

-	float output =  in + coef1 * last + coef2 * prev;

+	t_float output =  in + coef1 * last + coef2 * prev;

    	out = gain * output;

 

 	prev = last;

diff --git a/defines.h b/defines.h
index 093a477..b92efa6 100644
--- a/defines.h
+++ b/defines.h
@@ -1,10 +1,11 @@
 #include <m_pd.h>

 #include <math.h>

-#define MAXFLOAT  1e18f;

+#ifndef MAXFLOAT

+#define MAXFLOAT  1e18;

+#endif

 #define LOGTEN 2.302585092994

 

-/* NT and OSX don't appear to have single-precision ANSI math */

-#if defined(_WIN32) || defined(__APPLE__)

+#if PD_FLOAT_PRECISION == 64

 #define sinf sin

 #define cosf cos

 #define atanf atan

diff --git a/deltas.c b/deltas.c
index 178d59e..d79faa8 100644
--- a/deltas.c
+++ b/deltas.c
@@ -7,11 +7,11 @@ static t_class *deltas_class;
 typedef struct _deltas

 {

     t_object x_obj;

-	float m_lo;

-	float m_hi;

+	t_float m_lo;

+	t_float m_hi;

 	int m_buffer_size;

 	int m_buffer_index;

-	float *m_buffer;  // circular buffer

+	t_float *m_buffer;  // circular buffer

 } t_deltas;

 

 static void deltas_set(t_deltas *x, t_float lo, t_float hi, t_float size);

@@ -29,8 +29,8 @@ static void deltas_bang(t_deltas *x)
 {

 	int lo,hi,n,index,size;

 	t_atom *ap,*app;

-	float last;

-	float *buffer, *bp;

+	t_float last;

+	t_float *buffer, *bp;

 

     deltas_set(x, x->m_lo, x->m_hi, x->m_buffer_size);

 	lo=(int)x->m_lo;

@@ -104,11 +104,11 @@ static void deltas_bang(t_deltas *x)
 static void deltas_clear(t_deltas *x)

 {

 	int i,s;

-	float *f;

+	t_float *f;

 	f=x->m_buffer;

 	s=x->m_buffer_size;

 	for (i=0;i<s;i++)

-		*f++=0.0f;

+		*f++=0.0;

 }

 

 static void deltas_set(t_deltas *x, t_float lo, t_float hi, t_float size)

@@ -137,16 +137,17 @@ static void deltas_set(t_deltas *x, t_float lo, t_float hi, t_float size)
 	if (hi<=lo)

 	{

 		logpost(x, 2, "[deltas]: higher bound (%g) must be greater than lower bound (%g)", hi, lo);	

-		lo=hi-1.0f;

+		lo=hi-1.0;

 	}

 

-	x->m_hi=(float)((int)hi);

-	x->m_lo=(float)((int)lo);

+	x->m_hi=(t_float)((int)hi);

+	x->m_lo=(t_float)((int)lo);

+

     if (x->m_buffer_size != size)

     {

         freebytes(x->m_buffer, x->m_buffer_size);

         x->m_buffer_size = (int)size;

-        x->m_buffer = (float*)getbytes(sizeof(float)*x->m_buffer_size);

+        x->m_buffer = (t_float*)getbytes(sizeof(t_float)*x->m_buffer_size);

         deltas_clear(x);

         x->m_buffer_index=0;

     }

diff --git a/hip.c b/hip.c
index b1425c1..fc9a5ee 100644
--- a/hip.c
+++ b/hip.c
@@ -4,18 +4,18 @@
 

 typedef struct hipctl

 {

-    float c_x;

-    float c_coef;

+    t_float c_x;

+    t_float c_coef;

 } t_hipctl;

 

 typedef struct hip

 {

     t_object x_obj;

-    float x_sr;

-    float x_hz;

+    t_float x_sr;

+    t_float x_hz;

     t_hipctl x_cspace;

     t_hipctl *x_ctl;

-    float x_f;

+    t_float x_f;

 } t_hip;

 

 t_class *hip_class;

@@ -45,11 +45,11 @@ static void hip_ft1(t_hip *x, t_floatarg f)
 static void hip_perform(t_hip *x, t_float in)

 {

     t_hipctl *c = x->x_ctl;

-    float last = c->c_x;

-    float coef = c->c_coef;

-	float out;

+    t_float last = c->c_x;

+    t_float coef = c->c_coef;

+	t_float out;

 

-	float new = in + coef * last;

+	t_float new = in + coef * last;

 	out = new - last;

 	last = new;

 

diff --git a/hist.c b/hist.c
index 32bf5b7..fdfaf8f 100644
--- a/hist.c
+++ b/hist.c
@@ -8,12 +8,12 @@ static t_class *hist_class;
 typedef struct _hist

 {

     t_object x_obj;

-	float m_lo;

-	float m_hi;

-	float m_scale;

+	t_float m_lo;

+	t_float m_hi;

+	t_float m_scale;

 	int m_nbins;

 	int m_n_observations;

-	float *m_hist;

+	t_float *m_hist;

 } t_hist;

 

 

@@ -41,7 +41,7 @@ static void hist_perform_list(t_hist *x, t_symbol *s, int argc, t_atom *argv)
 static void hist_bang(t_hist *x)

 {

 	int i,n;

-	float *f;

+	t_float *f;

 	t_atom *ap,*app;

 

 	n=x->m_nbins;

@@ -63,8 +63,8 @@ static void hist_bang(t_hist *x)
 static void hist_relative(t_hist *x)

 {

 	int i,n;

-	float *f;

-	float invn;

+	t_float *f;

+	t_float invn;

 	t_atom *ap,*app;

 	n=x->m_nbins;

     ap = (t_atom *)getbytes(sizeof(t_atom)*n);

@@ -87,7 +87,7 @@ static void hist_relative(t_hist *x)
 static void hist_clear(t_hist *x)

 {

 	int i;

-	float *f;

+	t_float *f;

 	f=x->m_hist;

 	for (i=0;i<x->m_nbins;i++)

 		*f++=0.0f;

@@ -114,8 +114,8 @@ static void hist_set(t_hist *x, t_float lo, t_float hi, t_float nbins)
 	x->m_hi=hi;

 	x->m_lo=lo;

 	x->m_nbins=(int)nbins;

-	x->m_scale=(float)x->m_nbins/(hi-lo);

-    x->m_hist = (float*)getbytes(sizeof(float)*x->m_nbins);

+	x->m_scale=(t_float)x->m_nbins/(hi-lo);

+    x->m_hist = (t_float*)getbytes(sizeof(t_float)*x->m_nbins);

 

 	hist_clear(x);

 }

diff --git a/itov.c b/itov.c
index 97f5280..c2c027b 100644
--- a/itov.c
+++ b/itov.c
@@ -11,16 +11,16 @@ typedef struct _itov
 	t_outlet *f_out1;

 	t_outlet *f_out2;

 	t_outlet *f_out3;

-	float m_lo;

-	float m_hi;

-	float m_scale;

+	t_float m_lo;

+	t_float m_hi;

+	t_float m_scale;

 	int m_nbins;

 } t_itov;

 

 

 static void itov_perform_float(t_itov *x, t_float j)

 {

-	float i;

+	t_float i;

 	j-=1.0f;

 	j=(j>0)?(j<x->m_nbins?j:x->m_nbins-1):0; // limit without IF

 

@@ -54,7 +54,7 @@ static void itov_set(t_itov *x, t_float lo, t_float hi, t_float nbins)
 	x->m_hi=hi;

 	x->m_lo=lo;

 	x->m_nbins=(int)nbins;

-	x->m_scale=(float)x->m_nbins/(hi-lo);

+	x->m_scale=(t_float)x->m_nbins/(hi-lo);

 }

 

 static void *itov_new(t_float lo, t_float hi, t_float nbins)

diff --git a/lavg.c b/lavg.c
index fce0015..081ce9e 100644
--- a/lavg.c
+++ b/lavg.c
@@ -7,9 +7,9 @@ static t_class *lavg_class;
 typedef struct _lavg

 {

     t_object x_obj;

-	float m_avg;

-	float m_c_leak;

-	float m_leak;

+	t_float m_avg;

+	t_float m_c_leak;

+	t_float m_leak;

 } t_lavg;

 

 

@@ -21,13 +21,13 @@ static void lavg_perform(t_lavg *x, t_float in)
 

 static void lavg_clear(t_lavg *x)

 {

-	x->m_avg=0.0f;

+	x->m_avg=0.0;

 }

 

 static void lavg_setHalfDecay(t_lavg *x, t_float halfDecayTime)

 {

-	x->m_c_leak=(float)powf(.5,(1.0f/halfDecayTime));

-	x->m_leak=1.0f-x->m_c_leak;

+	x->m_c_leak=(t_float)powf(.5,(1.0/halfDecayTime));

+	x->m_leak=1.0-x->m_c_leak;

 }

 

 static void *lavg_new( t_float halfDecayTime)

diff --git a/lhist.c b/lhist.c
index 5f27b9b..1210e0e 100644
--- a/lhist.c
+++ b/lhist.c
@@ -7,19 +7,19 @@ static t_class *lhist_class;
 typedef struct _lhist

 {

     t_object x_obj;

-	float m_lo;

-	float m_hi;

-	float m_scale;

-	float m_c_leak;

-	float m_leak;

+	t_float m_lo;

+	t_float m_hi;

+	t_float m_scale;

+	t_float m_c_leak;

+	t_float m_leak;

 	int m_nbins;

 //	int m_n_observations;

-	float *m_lhist;

+	t_float *m_lhist;

 } t_lhist;

 

 static void lhist_setHalfDecay(t_lhist *x, t_float halfDecayTime)

 {

-	x->m_c_leak=(float)powf(.5,(1.0f/halfDecayTime));

+	x->m_c_leak=(t_float)powf(.5,(1.0f/halfDecayTime));

 	x->m_leak=1.0f-x->m_c_leak;

 }

 

@@ -47,8 +47,8 @@ static void lhist_perform_list(t_lhist *x, t_symbol *s, int argc, t_atom *argv)
 static void lhist_leak(t_lhist *x)

 {

 	int i;

-	float *f;

-	float sc;

+	t_float *f;

+	t_float sc;

 	f=x->m_lhist;

     sc=x->m_c_leak;

 	i=x->m_nbins;

@@ -59,7 +59,7 @@ static void lhist_leak(t_lhist *x)
 static void lhist_bang(t_lhist *x)

 {

 	int i,n;

-	float *f;

+	t_float *f;

 	t_atom *ap,*app;

 	n=x->m_nbins;

     ap = (t_atom *)getbytes(sizeof(t_atom)*n);

@@ -79,8 +79,8 @@ static void lhist_bang(t_lhist *x)
 static void lhist_relative(t_lhist *x)

 {

 	int i,n;

-	float *f;

-	float invn,sum;

+	t_float *f;

+	t_float invn,sum;

 	t_atom *ap,*app;

 

 	n=x->m_nbins;

@@ -107,7 +107,7 @@ static void lhist_relative(t_lhist *x)
 static void lhist_clear(t_lhist *x)

 {

 	int i;

-	float *f;

+	t_float *f;

 	f=x->m_lhist;

 	for (i=0;i<x->m_nbins;i++)

 		*f++=0.0f;

@@ -131,8 +131,8 @@ static void lhist_set(t_lhist *x, t_float lo, t_float hi, t_float nbins)
 	x->m_hi=hi;

 	x->m_lo=lo;

 	x->m_nbins=(int)nbins;

-	x->m_scale=(float)x->m_nbins/(hi-lo);

-    x->m_lhist = (float*)getbytes(sizeof(float)*x->m_nbins);

+	x->m_scale=(t_float)x->m_nbins/(hi-lo);

+    x->m_lhist = (t_float*)getbytes(sizeof(t_float)*x->m_nbins);

 

 	lhist_clear(x);

 }

diff --git a/lhisti.c b/lhisti.c
index f6433c0..3baf04e 100644
--- a/lhisti.c
+++ b/lhisti.c
@@ -8,19 +8,19 @@ static t_class *lhisti_class;
 typedef struct _lhisti

 {

     t_object x_obj;

-	float m_lo;

-	float m_hi;

-	float m_scale;

-	float m_c_leak;

-	float m_leak;

+	t_float m_lo;

+	t_float m_hi;

+	t_float m_scale;

+	t_float m_c_leak;

+	t_float m_leak;

 	int m_nbins;

 //	int m_n_observations;

-	float *m_lhisti;

+	t_float *m_lhisti;

 } t_lhisti;

 

 static void lhisti_setHalfDecay(t_lhisti *x, t_float halfDecayTime)

 {

-	x->m_c_leak=(float)powf(.5,(1.0f/halfDecayTime));

+	x->m_c_leak=(t_float)powf(.5,(1.0f/halfDecayTime));

 	x->m_leak=1.0f-x->m_c_leak;

 }

 

@@ -47,8 +47,8 @@ static void lhisti_perform_list(t_lhisti *x, t_symbol *s, int argc, t_atom *argv
 static void lhisti_leak(t_lhisti *x)

 {

 	int i;

-	float *f;

-	float sc;

+	t_float *f;

+	t_float sc;

 	f=x->m_lhisti;

     sc=x->m_c_leak;

 	i=x->m_nbins;

@@ -59,7 +59,7 @@ static void lhisti_leak(t_lhisti *x)
 static void lhisti_bang(t_lhisti *x)

 {

 	int i,n;

-	float *f;

+	t_float *f;

 	t_atom *ap,*app;

 	n=x->m_nbins;

     ap = (t_atom *)getbytes(sizeof(t_atom)*n);

@@ -79,8 +79,8 @@ static void lhisti_bang(t_lhisti *x)
 static void lhisti_relative(t_lhisti *x)

 {

 	int i,n;

-	float *f;

-	float invn,sum;

+	t_float *f;

+	t_float invn,sum;

 	t_atom *ap,*app;

 

 	n=x->m_nbins;

@@ -107,7 +107,7 @@ static void lhisti_relative(t_lhisti *x)
 static void lhisti_clear(t_lhisti *x)

 {

 	int i;

-	float *f;

+	t_float *f;

 	f=x->m_lhisti;

 	for (i=0;i<x->m_nbins;i++)

 		*f++=0.0f;

@@ -131,8 +131,8 @@ static void lhisti_set(t_lhisti *x, t_float lo, t_float hi, t_float nbins)
 	x->m_hi=hi;

 	x->m_lo=lo;

 	x->m_nbins=(int)nbins;

-	x->m_scale=(float)x->m_nbins/(hi-lo);

-    x->m_lhisti = (float*)getbytes(sizeof(float)*x->m_nbins);

+	x->m_scale=(t_float)x->m_nbins/(hi-lo);

+    x->m_lhisti = (t_float*)getbytes(sizeof(t_float)*x->m_nbins);

 

 	lhisti_clear(x);

 }

diff --git a/linspace.c b/linspace.c
index c3af9c2..f593ffd 100644
--- a/linspace.c
+++ b/linspace.c
@@ -9,9 +9,9 @@ static t_class *linspace_class;
 typedef struct _linspace

 {

     t_object x_obj;

-	float m_lo;

-	float m_hi;

-	float m_n;

+	t_float m_lo;

+	t_float m_hi;

+	t_float m_n;

 } t_linspace;

 

 

@@ -22,7 +22,7 @@ static void linspace_bang(t_linspace *x)
 	if ((n<256)&&(n>1))

 	{

 		int i;

-		float lo,step;

+		t_float lo,step;

 		t_atom *ap,*app;

 

 		ap = (t_atom *)getbytes(sizeof(t_atom)*n);

diff --git a/lmax.c b/lmax.c
index 911304f..723b1ac 100644
--- a/lmax.c
+++ b/lmax.c
@@ -7,9 +7,9 @@ static t_class *lmax_class;
 typedef struct _lmax

 {

     t_object x_obj;

-	float m_max;

-	float m_leak;

-	float m_c_leak;

+	t_float m_max;

+	t_float m_leak;

+	t_float m_c_leak;

 } t_lmax;

 

 

@@ -21,8 +21,8 @@ static void lmax_perform(t_lmax *x, t_float in)
 

 static void lmax_setHalfDecay(t_lmax *x, t_float halfDecayTime)

 {

-	x->m_c_leak=(float)powf(.5,(1.0f/halfDecayTime));

-	x->m_leak=1.0f-x->m_c_leak;

+	x->m_c_leak=(t_float)powf(.5,(1.0/halfDecayTime));

+	x->m_leak=1.0-x->m_c_leak;

 }

 

 static void lmax_clear(t_lmax *x)

diff --git a/lmin.c b/lmin.c
index 51b333a..54ea855 100644
--- a/lmin.c
+++ b/lmin.c
@@ -7,9 +7,9 @@ static t_class *lmin_class;
 typedef struct _lmin

 {

     t_object x_obj;

-	float m_min;

-	float m_leak;

-	float m_c_leak;

+	t_float m_min;

+	t_float m_leak;

+	t_float m_c_leak;

 } t_lmin;

 

 

@@ -21,7 +21,7 @@ static void lmin_perform(t_lmin *x, t_float in)
 

 static void lmin_setHalfDecay(t_lmin *x, t_float halfDecayTime)

 {

-	x->m_c_leak=(float)powf(.5,(1.0f/halfDecayTime));

+	x->m_c_leak=(t_float)powf(.5,(1.0f/halfDecayTime));

 	x->m_leak=1.0f-x->m_c_leak;

 }

 

diff --git a/lrange.c b/lrange.c
index 8f5b296..be13207 100644
--- a/lrange.c
+++ b/lrange.c
@@ -7,10 +7,10 @@ static t_class *lrange_class;
 typedef struct _lrange

 {

     t_object x_obj;

-	float m_min;

-	float m_max;

-	float m_c_leak;

-	float m_leak;

+	t_float m_min;

+	t_float m_max;

+	t_float m_c_leak;

+	t_float m_leak;

 } t_lrange;

 

 

@@ -23,7 +23,7 @@ static void lrange_perform(t_lrange *x, t_float in)
 

 static void lrange_setHalfDecay(t_lrange *x, t_float halfDecayTime)

 {

-	x->m_c_leak=(float)powf(.5,(1.0f/halfDecayTime));

+	x->m_c_leak=(t_float)powf(.5,(1.0f/halfDecayTime));

 	x->m_leak=1.0f-x->m_c_leak;

 }

 

diff --git a/lstd.c b/lstd.c
index 1873bda..538e6b4 100644
--- a/lstd.c
+++ b/lstd.c
@@ -7,26 +7,26 @@ static t_class *lstd_class;
 typedef struct _lstd

 {

     t_object x_obj;

-	float m_avg;

-	float m_sum_squares;

-	float m_std;

-	float m_c_leak;

-	float m_leak;

+	t_float m_avg;

+	t_float m_sum_squares;

+	t_float m_std;

+	t_float m_c_leak;

+	t_float m_leak;

 } t_lstd;

 

 

 static void lstd_perform(t_lstd *x, t_float in)

 {

-	float tmp=x->m_avg-in;

+	t_float tmp=x->m_avg-in;

 	x->m_avg= x->m_avg * x->m_c_leak + in * x->m_leak;

 	x->m_sum_squares=x->m_sum_squares * x->m_c_leak + x->m_leak*tmp*tmp;

-	x->m_std=(float)sqrtf(x->m_sum_squares);

+	x->m_std=(t_float)sqrtf(x->m_sum_squares);

     outlet_float(x->x_obj.ob_outlet, x->m_std);

 }

 

 static void lstd_setHalfDecay(t_lstd *x, t_float halfDecayTime)

 {

-	x->m_c_leak=(float)powf(.5,(1.0f/halfDecayTime));

+	x->m_c_leak=(t_float)powf(.5,(1.0f/halfDecayTime));

 	x->m_leak=1.0f-x->m_c_leak;

 }

 

diff --git a/prevl.c b/prevl.c
index d43a2df..e061a93 100644
--- a/prevl.c
+++ b/prevl.c
@@ -7,11 +7,11 @@ static t_class *prevl_class;
 typedef struct _prevl

 {

     t_object x_obj;

-	float m_lo;

-	float m_hi;

+	t_float m_lo;

+	t_float m_hi;

 	int m_buffer_size;

 	int m_buffer_index;

-	float *m_buffer;  // circular buffer

+	t_float *m_buffer;  // circular buffer

 } t_prevl;

 

 static void prevl_set(t_prevl *x, t_float lo, t_float hi, t_float size);

@@ -29,7 +29,7 @@ static void prevl_bang(t_prevl *x)
 {

 	int lo,hi,n,index,size;

 	t_atom *ap,*app;

-	float *buffer, *bp;

+	t_float *buffer, *bp;

 

     prevl_set(x, x->m_lo, x->m_hi, x->m_buffer_size);

 	lo=(int)x->m_lo;

@@ -84,11 +84,11 @@ static void prevl_bang(t_prevl *x)
 static void prevl_clear(t_prevl *x)

 {

 	int i,s;

-	float *f;

+	t_float *f;

 	f=x->m_buffer;

 	s=x->m_buffer_size;

 	for (i=0;i<s;i++)

-		*f++=0.0f;

+		*f++=0.0;

 }

 

 static void prevl_set(t_prevl *x, t_float lo, t_float hi, t_float size)

@@ -118,17 +118,18 @@ static void prevl_set(t_prevl *x, t_float lo, t_float hi, t_float size)
 	{

 		logpost(x, 2, "[prevl] higher bound (%g) must be greater than lower bound (%g)",

                 hi, lo);	

-		lo=hi-1.0f;

+		lo=hi-1.0;

 	}

 

 

-	x->m_hi=(float)((int)hi);

-	x->m_lo=(float)((int)lo);

+	x->m_hi=(t_float)((int)hi);

+	x->m_lo=(t_float)((int)lo);

+

     if (x->m_buffer_size != size)

     {

         x->m_buffer_size=(int)size;

         freebytes(x->m_buffer, x->m_buffer_size);

-        x->m_buffer = (float*)getbytes(sizeof(float)*x->m_buffer_size);

+        x->m_buffer = (t_float*)getbytes(sizeof(t_float)*x->m_buffer_size);

         prevl_clear(x);

         x->m_buffer_index=0;

     }

diff --git a/threshold.c b/threshold.c
index 2d99e03..e031234 100644
--- a/threshold.c
+++ b/threshold.c
@@ -11,11 +11,11 @@ typedef struct _threshold
     t_outlet *x_outlet2;    	/* bang out for low thresh */

     t_clock *x_clock;	    	/* wakeup for message output */

     int x_state;    			/* 1 = high, 0 = low */

-    float x_hithresh;	    	/* value of high threshold */

-    float x_lothresh;	    	/* value of low threshold */

-    float x_deadwait;	    	/* msec remaining in dead period */

-    float x_hideadtime;	    	/* hi dead */

-    float x_lodeadtime;	    	/* lo dead */

+    t_float x_hithresh;	    	/* value of high threshold */

+    t_float x_lothresh;	    	/* value of low threshold */

+    t_float x_deadwait;	    	/* msec remaining in dead period */

+    t_float x_hideadtime;	    	/* hi dead */

+    t_float x_lodeadtime;	    	/* lo dead */

 } t_threshold;

 

 static void threshold_tick(t_threshold *x);

diff --git a/vabs.c b/vabs.c
index c928c5e..8c2a3b1 100644
--- a/vabs.c
+++ b/vabs.c
@@ -21,7 +21,7 @@ static void vabs_perform(t_vabs *x, t_symbol *s, int argc, t_atom *argv)
 

 	for (i = 0; i < argc; i++)

 	{

-		float f=atom_getfloat(argv++);

+		t_float f=atom_getfloat(argv++);

 		SETFLOAT(app, f>0?f:-f);

 		app++;

 	}

diff --git a/vclip.c b/vclip.c
index 4a11ef5..dfda2fd 100644
--- a/vclip.c
+++ b/vclip.c
@@ -9,15 +9,15 @@ static t_class *vclip_class;
 typedef struct _vclip

 {

     t_object x_obj;

-	float m_lo;

-	float m_hi;

+	t_float m_lo;

+	t_float m_hi;

 } t_vclip;

 

 

 static void vclip_perform(t_vclip *x, t_symbol *s, int argc, t_atom *argv)

 {

 	int i;

-	float lo,hi;

+	t_float lo,hi;

 	t_atom *ap,*app;

     ap = (t_atom *)getbytes(sizeof(t_atom)*argc);

 	app=ap;

@@ -25,7 +25,7 @@ static void vclip_perform(t_vclip *x, t_symbol *s, int argc, t_atom *argv)
 	hi=x->m_hi;

 	for (i = 0; i < argc; i++)

 	{

-		float f=atom_getfloat(argv++);

+		t_float f=atom_getfloat(argv++);

 		SETFLOAT(app, (f<lo?lo:(f>hi?hi:f)));

 		app++;

 	}

diff --git a/vcog.c b/vcog.c
index 1dd68a4..211e817 100644
--- a/vcog.c
+++ b/vcog.c
@@ -12,16 +12,16 @@ typedef struct _vcog
 

 static void vcog_perform(t_vcog *x, t_symbol *s, int argc, t_atom *argv)

 {

-	float sum=0.f;

-	float wsum=0.0f;

+	t_float sum=0.;

+	t_float wsum=0.0;

 	int i;

 	for (i = 0; i < argc; i++)

 	{

-		float tmp=atom_getfloat(&argv[i]);

+		t_float tmp=atom_getfloat(&argv[i]);

 		sum+= tmp;

 		wsum+= tmp*i;

 	}

-	if (sum!=0.0f) outlet_float(x->x_obj.ob_outlet, 1.0f+(wsum/sum));

+	if (sum!=0.0f) outlet_float(x->x_obj.ob_outlet, 1.0+(wsum/sum));

 }

 

 static void *vcog_new( t_float halfDecayTime)

diff --git a/vdbtorms.c b/vdbtorms.c
index ab954f6..962452e 100644
--- a/vdbtorms.c
+++ b/vdbtorms.c
@@ -9,7 +9,7 @@ typedef struct _vdbtorms
     t_object x_obj;

 } t_vdbtorms;

 

-float dbtorms(float f)

+static t_float decibelbtorms(t_float f)

 {

     if (f <= 0)

     	return(0);

@@ -18,7 +18,7 @@ float dbtorms(float f)
     	if (f > 485)

 	    f = 485;

     }

-    return (float)(exp((LOGTEN * 0.05) * (f-100.)));

+    return (t_float)(exp((LOGTEN * 0.05) * (f-100.)));

 }

 

 static void vdbtorms_perform(t_vdbtorms *x, t_symbol *s, int argc, t_atom *argv)

@@ -30,7 +30,7 @@ static void vdbtorms_perform(t_vdbtorms *x, t_symbol *s, int argc, t_atom *argv)
 

 	for (i = 0; i < argc; i++)

 	{

-		SETFLOAT(app, dbtorms(atom_getfloat(argv++)));

+		SETFLOAT(app, decibelbtorms(atom_getfloat(argv++)));

 		app++;

 	}

 	outlet_list(x->x_obj.ob_outlet,gensym("list"),argc,ap);

diff --git a/vdelta.c b/vdelta.c
index cc809db..e61e01f 100644
--- a/vdelta.c
+++ b/vdelta.c
@@ -8,9 +8,9 @@ static t_class *vdelta_class;
 typedef struct _vdelta

 {

     t_object x_obj;

-	float m_c_leak;

-	float m_leak;

-	float *m_prev;

+	t_float m_c_leak;

+	t_float m_leak;

+	t_float *m_prev;

 	int m_n;

 } t_vdelta;

 

@@ -19,9 +19,9 @@ static void vdelta_perform(t_vdelta *x, t_symbol *s, int argc, t_atom *argv)
 {

 	int i;

 	t_atom *ap,*app;

-	float *fp;

-	float m_leak;

-	float m_c_leak;

+	t_float *fp;

+	t_float m_leak;

+	t_float m_c_leak;

 	m_leak=x->m_leak;

 	m_c_leak=x->m_c_leak;

 

@@ -30,7 +30,7 @@ static void vdelta_perform(t_vdelta *x, t_symbol *s, int argc, t_atom *argv)
 		int i;

 		if (x->m_prev)

 			freebytes(x->m_prev,x->m_n);

-		x->m_prev=(float*)getbytes(argc*sizeof(float));

+		x->m_prev=(t_float*)getbytes(argc*sizeof(t_float));

 		for(i=0;i<argc;i++)

 			x->m_prev[i]=0.0f;

 		x->m_n=argc;

@@ -41,7 +41,7 @@ static void vdelta_perform(t_vdelta *x, t_symbol *s, int argc, t_atom *argv)
 	app=ap;

 	for (i = 0; i < argc; i++)

 	{

-		float f=atom_getfloat(argv++);

+		t_float f=atom_getfloat(argv++);

 		SETFLOAT(app, f-*fp);

 		app++;

 		*fp++=f;

diff --git a/vfmod.c b/vfmod.c
index 7b7d1af..9f23fc5 100644
--- a/vfmod.c
+++ b/vfmod.c
@@ -9,14 +9,14 @@ static t_class *vfmod_class;
 typedef struct _vfmod

 {

     t_object x_obj;

-	float m_y;

+	t_float m_y;

 } t_vfmod;

 

 

 static void vfmod_perform(t_vfmod *x, t_symbol *s, int argc, t_atom *argv)

 {

 	int i;

-	float y;

+	t_float y;

 	t_atom *ap,*app;

     ap = (t_atom *)getbytes(sizeof(t_atom)*argc);

 	app=ap;

@@ -25,7 +25,7 @@ static void vfmod_perform(t_vfmod *x, t_symbol *s, int argc, t_atom *argv)
 		y=1.0f;

 	for (i = 0; i < argc; i++)

 	{

-		SETFLOAT(app, (float)fmod(atom_getfloat(argv++),y));

+		SETFLOAT(app, (t_float)fmod(atom_getfloat(argv++),y));

 		app++;

 	}

 	outlet_list(x->x_obj.ob_outlet,gensym("list"),argc,ap);

diff --git a/vftom.c b/vftom.c
index 6355006..99acc0b 100644
--- a/vftom.c
+++ b/vftom.c
@@ -9,9 +9,9 @@ typedef struct _vftom
     t_object x_obj;

 } t_vftom;

 

-float ftom(float f)

+t_float ftom(t_float f)

 {

-    return (float)(f > 0 ? 17.3123405046 * log(.12231220585 * f) : -1500);

+    return (t_float)(f > 0 ? 17.3123405046 * log(.12231220585 * f) : -1500);

 }

 

 static void vftom_perform(t_vftom *x, t_symbol *s, int argc, t_atom *argv)

diff --git a/vlavg.c b/vlavg.c
index 1e6ba98..ff590e9 100644
--- a/vlavg.c
+++ b/vlavg.c
@@ -9,9 +9,9 @@ static t_class *vlavg_class;
 typedef struct _vlavg

 {

     t_object x_obj;

-	float m_c_leak;

-	float m_leak;

-	float *m_avg;

+	t_float m_c_leak;

+	t_float m_leak;

+	t_float *m_avg;

 	int m_n;

 } t_vlavg;

 

@@ -20,9 +20,9 @@ static void vlavg_perform(t_vlavg *x, t_symbol *s, int argc, t_atom *argv)
 {

 	int i;

 	t_atom *ap,*app;

-	float *fp;

-	float m_leak;

-	float m_c_leak;

+	t_float *fp;

+	t_float m_leak;

+	t_float m_c_leak;

 	m_leak=x->m_leak;

 	m_c_leak=x->m_c_leak;

 

@@ -31,7 +31,7 @@ static void vlavg_perform(t_vlavg *x, t_symbol *s, int argc, t_atom *argv)
 		int i;

 		if (x->m_avg)

 			freebytes(x->m_avg,x->m_n);

-		x->m_avg=(float*)getbytes(argc*sizeof(float));

+		x->m_avg=(t_float*)getbytes(argc*sizeof(t_float));

 		for(i=0;i<argc;i++)

 			x->m_avg[i]=0.0f;

 		x->m_n=argc;

@@ -42,7 +42,7 @@ static void vlavg_perform(t_vlavg *x, t_symbol *s, int argc, t_atom *argv)
 	app=ap;

 	for (i = 0; i < argc; i++)

 	{

-		float f=atom_getfloat(argv++);

+		t_float f=atom_getfloat(argv++);

 		*fp = *fp * m_c_leak + f * m_leak;

 		SETFLOAT(app, *fp);

 		app++;

@@ -54,7 +54,7 @@ static void vlavg_perform(t_vlavg *x, t_symbol *s, int argc, t_atom *argv)
 

 static void vlavg_setHalfDecay(t_vlavg *x, t_floatarg halfDecayTime)

 {

-	x->m_c_leak=(float)powf(.5,(1.0f/halfDecayTime));

+	x->m_c_leak=(t_float)powf(.5,(1.0f/halfDecayTime));

 	x->m_leak=1.0f-x->m_c_leak;

 }

 

diff --git a/vlmax.c b/vlmax.c
index a566f49..83b3c37 100644
--- a/vlmax.c
+++ b/vlmax.c
@@ -9,9 +9,9 @@ static t_class *vlmax_class;
 typedef struct _vlmax

 {

     t_object x_obj;

-	float m_c_leak;

-	float m_leak;

-	float *m_max;

+	t_float m_c_leak;

+	t_float m_leak;

+	t_float *m_max;

 	int m_n;

 } t_vlmax;

 

@@ -20,9 +20,9 @@ static void vlmax_perform(t_vlmax *x, t_symbol *s, int argc, t_atom *argv)
 {

 	int i;

 	t_atom *ap,*app;

-	float *fp;

-	float m_leak;

-	float m_c_leak;

+	t_float *fp;

+	t_float m_leak;

+	t_float m_c_leak;

 	m_leak=x->m_leak;

 	m_c_leak=x->m_c_leak;

 

@@ -31,9 +31,9 @@ static void vlmax_perform(t_vlmax *x, t_symbol *s, int argc, t_atom *argv)
 		int i;

 		if (x->m_max)

 			freebytes(x->m_max,x->m_n);

-		x->m_max=(float*)getbytes(argc*sizeof(float));

+		x->m_max=(t_float*)getbytes(argc*sizeof(t_float));

 		for(i=0;i<argc;i++)

-			x->m_max[i]=0.0f;

+			x->m_max[i]=0.0;

 		x->m_n=argc;

 	}

 

@@ -42,7 +42,7 @@ static void vlmax_perform(t_vlmax *x, t_symbol *s, int argc, t_atom *argv)
 	app=ap;

 	for (i = 0; i < argc; i++)

 	{

-		float f=atom_getfloat(argv++);

+		t_float f=atom_getfloat(argv++);

 		*fp =(f > *fp ) ? f : *fp *m_c_leak + f*m_leak;

 		SETFLOAT(app, *fp);

 		app++;

@@ -54,8 +54,8 @@ static void vlmax_perform(t_vlmax *x, t_symbol *s, int argc, t_atom *argv)
 

 static void vlmax_setHalfDecay(t_vlmax *x, t_floatarg halfDecayTime)

 {

-	x->m_c_leak=(float)powf(.5,(1.0f/halfDecayTime));

-	x->m_leak=1.0f-x->m_c_leak;

+	x->m_c_leak=(t_float)powf(.5,(1.0/halfDecayTime));

+	x->m_leak=1.0-x->m_c_leak;

 }

 

 static void *vlmax_new(t_float halfDecayTime)

diff --git a/vlmin.c b/vlmin.c
index b839826..9d708d2 100644
--- a/vlmin.c
+++ b/vlmin.c
@@ -9,9 +9,9 @@ static t_class *vlmin_class;
 typedef struct _vlmin

 {

     t_object x_obj;

-	float m_c_leak;

-	float m_leak;

-	float *m_min;

+	t_float m_c_leak;

+	t_float m_leak;

+	t_float *m_min;

 	int m_n;

 } t_vlmin;

 

@@ -20,9 +20,9 @@ static void vlmin_perform(t_vlmin *x, t_symbol *s, int argc, t_atom *argv)
 {

 	int i;

 	t_atom *ap,*app;

-	float *fp;

-	float m_leak;

-	float m_c_leak;

+	t_float *fp;

+	t_float m_leak;

+	t_float m_c_leak;

 	m_leak=x->m_leak;

 	m_c_leak=x->m_c_leak;

 

@@ -31,9 +31,9 @@ static void vlmin_perform(t_vlmin *x, t_symbol *s, int argc, t_atom *argv)
 		int i;

 		if (x->m_min)

 			freebytes(x->m_min,x->m_n);

-		x->m_min=(float*)getbytes(argc*sizeof(float));

+		x->m_min=(t_float*)getbytes(argc*sizeof(t_float));

 		for(i=0;i<argc;i++)

-			x->m_min[i]=0.0f;

+			x->m_min[i]=0.0;

 		x->m_n=argc;

 	}

 

@@ -42,7 +42,7 @@ static void vlmin_perform(t_vlmin *x, t_symbol *s, int argc, t_atom *argv)
 	app=ap;

 	for (i = 0; i < argc; i++)

 	{

-		float f=atom_getfloat(argv++);

+		t_float f=atom_getfloat(argv++);

 		*fp =(f < *fp ) ? f : *fp *m_c_leak + f*m_leak;

 		SETFLOAT(app, *fp);

 		app++;

@@ -54,8 +54,8 @@ static void vlmin_perform(t_vlmin *x, t_symbol *s, int argc, t_atom *argv)
 

 static void vlmin_setHalfDecay(t_vlmin *x, t_floatarg halfDecayTime)

 {

-	x->m_c_leak=(float)powf(.5,(1.0f/halfDecayTime));

-	x->m_leak=1.0f-x->m_c_leak;

+	x->m_c_leak=(t_float)powf(.5,(1.0/halfDecayTime));

+	x->m_leak=1.0-x->m_c_leak;

 }

 

 static void *vlmin_new(t_float halfDecayTime)

diff --git a/vlrange.c b/vlrange.c
index 07b383f..81f32ff 100644
--- a/vlrange.c
+++ b/vlrange.c
@@ -9,10 +9,10 @@ static t_class *vlrange_class;
 typedef struct _vlrange

 {

     t_object x_obj;

-	float m_c_leak;

-	float m_leak;

-	float *m_min;

-	float *m_max;

+	t_float m_c_leak;

+	t_float m_leak;

+	t_float *m_min;

+	t_float *m_max;

 	int m_n;

 } t_vlrange;

 

@@ -21,9 +21,9 @@ static void vlrange_perform(t_vlrange *x, t_symbol *s, int argc, t_atom *argv)
 {

 	int i;

 	t_atom *ap,*app;

-	float *fmin, *fmax;

-	float m_leak;

-	float m_c_leak;

+	t_float *fmin, *fmax;

+	t_float m_leak;

+	t_float m_c_leak;

 	m_leak=x->m_leak;

 	m_c_leak=x->m_c_leak;

 

@@ -35,12 +35,12 @@ static void vlrange_perform(t_vlrange *x, t_symbol *s, int argc, t_atom *argv)
 			freebytes(x->m_min,x->m_n);

 			freebytes(x->m_max,x->m_n);

 		}

-		x->m_min=(float*)getbytes(argc*sizeof(float));

-		x->m_max=(float*)getbytes(argc*sizeof(float));

+		x->m_min=(t_float*)getbytes(argc*sizeof(t_float));

+		x->m_max=(t_float*)getbytes(argc*sizeof(t_float));

 		for(i=0;i<argc;i++)

 		{

-			x->m_min[i]=0.0f;

-			x->m_max[i]=0.0f;

+			x->m_min[i]=0.0;

+			x->m_max[i]=0.0;

 		}

 		x->m_n=argc;

 	}

@@ -51,7 +51,7 @@ static void vlrange_perform(t_vlrange *x, t_symbol *s, int argc, t_atom *argv)
 	app=ap;

 	for (i = 0; i < argc; i++)

 	{

-		float f=atom_getfloat(argv++);

+		t_float f=atom_getfloat(argv++);

 		*fmax =(f > *fmax ) ? f : *fmax *m_c_leak + f*m_leak;

 		*fmin =(f < *fmin ) ? f : *fmin *m_c_leak + f*m_leak;

 		SETFLOAT(app, *fmax-*fmin);

@@ -65,7 +65,7 @@ static void vlrange_perform(t_vlrange *x, t_symbol *s, int argc, t_atom *argv)
 

 static void vlrange_setHalfDecay(t_vlrange *x, t_floatarg halfDecayTime)

 {

-	x->m_c_leak=(float)powf(.5,(1.0f/halfDecayTime));

+	x->m_c_leak=(t_float)powf(.5,(1.0/halfDecayTime));

 	x->m_leak=1.0f-x->m_c_leak;

 }

 

diff --git a/vmax.c b/vmax.c
index ac56423..2326a14 100644
--- a/vmax.c
+++ b/vmax.c
@@ -18,10 +18,10 @@ static void vmax_perform(t_vmax *x, t_symbol *s, int argc, t_atom *argv)
 {

 	int i;

 	int maxi;

-	float max=-MAXFLOAT;

+	t_float max=-MAXFLOAT;

 	for (i = 0; i < argc; i++)

 	{

-		float f=atom_getfloat(&argv[i]);

+		t_float f=atom_getfloat(&argv[i]);

 		if (f>max)

 		{ 

 			max=f;

@@ -29,7 +29,7 @@ static void vmax_perform(t_vmax *x, t_symbol *s, int argc, t_atom *argv)
 		}

 	}

 	outlet_float(x->x_obj.ob_outlet, max);

-	outlet_float(x->m_out_maxi, (float)(maxi+1));

+	outlet_float(x->m_out_maxi, (t_float)(maxi+1));

 }

 

 static void *vmax_new( t_float halfDecayTime)

diff --git a/vmin.c b/vmin.c
index a0b578e..559659e 100644
--- a/vmin.c
+++ b/vmin.c
@@ -18,10 +18,10 @@ static void vmin_perform(t_vmin *x, t_symbol *s, int argc, t_atom *argv)
 {

 	int i;

 	int mini;

-	float min=MAXFLOAT;

+	t_float min=MAXFLOAT;

 	for (i = 0; i < argc; i++)

 	{

-		float f=atom_getfloat(&argv[i]);

+		t_float f=atom_getfloat(&argv[i]);

 		if (f<min)

 		{ 

 			min=f;

@@ -29,7 +29,7 @@ static void vmin_perform(t_vmin *x, t_symbol *s, int argc, t_atom *argv)
 		}

 	}

 	outlet_float(x->x_obj.ob_outlet, min);

-	outlet_float(x->m_out_maxi, (float)(mini+1));

+	outlet_float(x->m_out_maxi, (t_float)(mini+1));

 }

 

 static void *vmin_new( t_float halfDecayTime)

diff --git a/vmtof.c b/vmtof.c
index 828dcb6..5cfe7a6 100644
--- a/vmtof.c
+++ b/vmtof.c
@@ -9,11 +9,11 @@ typedef struct _vmtof
     t_object x_obj;

 } t_vmtof;

 

-float mtof(float f)

+t_float mtof(t_float f)

 {

     if (f <= -1500) return(0);

     else if (f > 1499) return(mtof(1499));

-    else return (float)(8.17579891564 * exp(.0577622650 * f));

+    else return (t_float)(8.17579891564 * exp(.0577622650 * f));

 }

 

 static void vmtof_perform(t_vmtof *x, t_symbol *s, int argc, t_atom *argv)

diff --git a/vnmax.c b/vnmax.c
index 7003f6d..ad8c97f 100644
--- a/vnmax.c
+++ b/vnmax.c
@@ -21,10 +21,10 @@ static void vnmax_perform(t_vnmax *x, t_symbol *s, int argc, t_atom *argv)
 {

 	int i;

 	int maxi;

-	float max=-MAXFLOAT;

+	t_float max=-MAXFLOAT;

 	for (i = 0; i < argc; i++)

 	{

-		float f=atom_getfloat(&argv[i]);

+		t_float f=atom_getfloat(&argv[i]);

 		if (f>max)

 		{ 

 			max=f;

@@ -32,7 +32,7 @@ static void vnmax_perform(t_vnmax *x, t_symbol *s, int argc, t_atom *argv)
 		}

 	}

 	outlet_float(x->x_obj.ob_outlet, max);

-	outlet_float(x->m_out_maxi, (float)(maxi+1));

+	outlet_float(x->m_out_maxi, (t_float)(maxi+1));

 }

 

 static void *vnmax_new( t_float halfDecayTime)

diff --git a/vpow.c b/vpow.c
index 6859859..d8a9bcf 100644
--- a/vpow.c
+++ b/vpow.c
@@ -7,14 +7,14 @@ static t_class *vpow_class;
 typedef struct _vpow

 {

     t_object x_obj;

-	float m_y;

+	t_float m_y;

 } t_vpow;

 

 

 static void vpow_perform(t_vpow *x, t_symbol *s, int argc, t_atom *argv)

 {

 	int i;

-	float y;

+	t_float y;

 	t_atom *ap,*app;

     ap = (t_atom *)getbytes(sizeof(t_atom)*argc);

 	app=ap;

@@ -23,9 +23,9 @@ static void vpow_perform(t_vpow *x, t_symbol *s, int argc, t_atom *argv)
 		y=1.0f;

 	for (i = 0; i < argc; i++)

 	{

-		float x=atom_getfloat(argv++);

+		t_float x=atom_getfloat(argv++);

 		if (x>0) 

-			x=(float)powf(x,y);

+			x=(t_float)powf(x,y);

 		else

 			x=-1000.;

 		SETFLOAT(app, x);

diff --git a/vrms.c b/vrms.c
index 52b8d6d..ff7f33e 100644
--- a/vrms.c
+++ b/vrms.c
@@ -12,14 +12,14 @@ typedef struct _vrms
 

 static void vrms_perform(t_vrms *x, t_symbol *s, int argc, t_atom *argv)

 {

-	float sum=0.f;

+	t_float sum=0.;

 	int i;

 	for (i = 0; i < argc; i++)

 	{

-		float tmp=atom_getfloat(&argv[i]);

+		t_float tmp=atom_getfloat(&argv[i]);

 		sum+= tmp*tmp;

 	}

-	outlet_float(x->x_obj.ob_outlet, (float)sqrtf(sum/argc));

+	outlet_float(x->x_obj.ob_outlet, (t_float)sqrtf(sum/argc));

 }

 

 static void *vrms_new( t_float halfDecayTime)

diff --git a/vrmstodb.c b/vrmstodb.c
index d375bf9..25e3cf9 100644
--- a/vrmstodb.c
+++ b/vrmstodb.c
@@ -9,12 +9,12 @@ typedef struct _vrmstodb
     t_object x_obj;

 } t_vrmstodb;

 

-float rmstodb(float f)

+static t_float rmstodecibel(t_float f)

 {

     if (f <= 0) return (0);

     else

     {

-    	float val = (float)(100 + 20./LOGTEN * log(f));

+    	t_float val = (t_float)(100 + 20./LOGTEN * log(f));

     	return (val < 0 ? 0 : val);

     }

 }

@@ -28,7 +28,7 @@ static void vrmstodb_perform(t_vrmstodb *x, t_symbol *s, int argc, t_atom *argv)
 

 	for (i = 0; i < argc; i++)

 	{

-		SETFLOAT(app, rmstodb(atom_getfloat(argv++)));

+		SETFLOAT(app, rmstodecibel(atom_getfloat(argv++)));

 		app++;

 	}

 	outlet_list(x->x_obj.ob_outlet,gensym("list"),argc,ap);

diff --git a/vstd.c b/vstd.c
index 538cb94..c88807c 100644
--- a/vstd.c
+++ b/vstd.c
@@ -12,18 +12,18 @@ typedef struct _vstd
 

 static void vstd_perform(t_vstd *x, t_symbol *s, int argc, t_atom *argv)

 {

-	float sumsq=0.0f;

-	float sum=0.0f;

+	t_float sumsq=0.0f;

+	t_float sum=0.0f;

 	int i;

 	for (i = 0; i < argc; i++)

 	{

-		float tmp=atom_getfloat(&argv[i]);

+		t_float tmp=atom_getfloat(&argv[i]);

 		sumsq+= tmp*tmp;

 		sum+=tmp;

 	}

 	sumsq/=argc;

 	sum/=argc;

-	outlet_float(x->x_obj.ob_outlet, (float)sqrtf(sumsq-sum*sum));

+	outlet_float(x->x_obj.ob_outlet, (t_float)sqrtf(sumsq-sum*sum));

 }

 

 static void *vstd_new( t_float halfDecayTime)

diff --git a/vsum.c b/vsum.c
index dd49f4c..d32db9a 100644
--- a/vsum.c
+++ b/vsum.c
@@ -12,7 +12,7 @@ typedef struct _vsum
 

 static void vsum_perform(t_vsum *x, t_symbol *s, int argc, t_atom *argv)

 {

-	float sum=0.f;

+	t_float sum=0.;

 	int i;

 	for (i = 0; i < argc; i++)

 	{

diff --git a/vthreshold.c b/vthreshold.c
index 106cf72..5e0bef4 100644
--- a/vthreshold.c
+++ b/vthreshold.c
@@ -12,10 +12,10 @@ typedef struct _vthreshold
     t_outlet *x_outlet2;    	/* bang out for low thresh */

     int *x_state;    			/* 1 = high, 0 = low */

 	int x_n;

-    float x_hithresh;	    	/* value of high vthreshold */

-    float x_lothresh;	    	/* value of low vthreshold */

-    float x_hideadtime;	    	/* hi dead */

-    float x_lodeadtime;	    	/* lo dead */

+    t_float x_hithresh;	    	/* value of high vthreshold */

+    t_float x_lothresh;	    	/* value of low vthreshold */

+    t_float x_hideadtime;	    	/* hi dead */

+    t_float x_lodeadtime;	    	/* lo dead */

 } t_vthreshold;

 

     /* "set" message to specify vthresholds and dead times */

@@ -62,14 +62,14 @@ static void vthreshold_perform(t_vthreshold *x, t_symbol *s, int argc, t_atom *a
 	if (argc>x->x_n) argc=x->x_n;

 	for (i=0;i<argc;i++)

 	{

-		float f;

+		t_float f;

 		f=atom_getfloat(argv++);

 

 		if (*state<0)

 		{

 			if (f>x->x_hithresh)

 			{

-				outlet_float(x->x_outlet1, (float)i); // on

+				outlet_float(x->x_outlet1, (t_float)i); // on

 				*state=1;

 			}

 		}

@@ -77,7 +77,7 @@ static void vthreshold_perform(t_vthreshold *x, t_symbol *s, int argc, t_atom *a
 		{

 			if (f<x->x_lothresh)

 			{

-				outlet_float(x->x_outlet2, (float)i); // off

+				outlet_float(x->x_outlet2, (t_float)i); // off

 				*state=-1;

 			}

 		}

diff --git a/vvconv.c b/vvconv.c
index 5541705..1e107f0 100644
--- a/vvconv.c
+++ b/vvconv.c
@@ -101,7 +101,7 @@ static void vvconv_lst(t_vvconv *x, t_symbol *s, int argc, t_atom *argv)
       SETFLOAT(a, *g++);

       a++;

     }

-    freebytes(f,sizeof(float)*n);

+    freebytes(f,sizeof(t_float)*n);

   }

   outlet_list(x->x_obj.ob_outlet, gensym("list"), n, ap);

   freebytes(ap, sizeof(t_atom)*n);