From 7d41c2213b5070d444fa17cdb04eeb9fdc955309 Mon Sep 17 00:00:00 2001
From: Katja <katjav@users.sourceforge.net>
Date: Sun, 6 Nov 2011 15:38:24 +0000
Subject: made smlib compliant with double precision

svn path=/trunk/externals/smlib/; revision=15707
---
 vlmin.c | 22 +++++++++++-----------
 1 file changed, 11 insertions(+), 11 deletions(-)

(limited to 'vlmin.c')

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