From 2f3aeb2c37136463c73a1df65797d7996b6f6034 Mon Sep 17 00:00:00 2001
From: Ian C <ianc@noddybox.co.uk>
Date: Sat, 1 Oct 2005 02:23:59 +0000
Subject: Changed to using Doubles

---
 types.bmx | 30 +++++++++++++++---------------
 1 file changed, 15 insertions(+), 15 deletions(-)

(limited to 'types.bmx')

diff --git a/types.bmx b/types.bmx
index a0974e3..0c06eba 100644
--- a/types.bmx
+++ b/types.bmx
@@ -23,10 +23,10 @@ Type GameGFX
 End Type
 
 Type TMass
-	Field x:Float
-	Field y:Float
+	Field x:Double
+	Field y:Double
 	Field v:TVector
-	Field mass:Float
+	Field mass:Double
 	Field friend:Int
 	Field inverse:Int
 	Field img:TImage
@@ -48,7 +48,7 @@ Type TMass
 		EndIf
 		
 		Local d:TVector=TVector.Create(o.x-x,o.y-y)
-		Local l:Float=d.Length()
+		Local l:Double=d.Length()
 		
 		If l>0.1
 			l:*l
@@ -83,10 +83,10 @@ End Type
 Type TPoint
 	Global img:TImage
 	
-	Field x:Float
-	Field y:Float
-	Field lx:Float
-	Field ly:Float
+	Field x:Double
+	Field y:Double
+	Field lx:Double
+	Field ly:Double
 	Field v:TVector
 	Field r:Int
 	Field g:Int
@@ -113,7 +113,7 @@ Type TPoint
 		EndIf
 		
 		Local d:TVector=TVector.Create(o.x-x,o.y-y)
-		Local l:Float=d.Length()
+		Local l:Double=d.Length()
 		
 		If l<MASSRAD
 			If o.friend
@@ -167,15 +167,15 @@ End Type
 
 Type TParticle
 	Global img:TImage
-	Field x:Float
-	Field y:Float
-	Field a:Float
+	Field x:Double
+	Field y:Double
+	Field a:Double
 	Field r:Int
 	Field g:Int
 	Field b:Int
-	Field dx:Float
-	Field dy:Float
-	Field ai:Float
+	Field dx:Double
+	Field dy:Double
+	Field ai:Double
 	
 	Function FromLostPoint:TParticle(p:TPoint, d:Int)
 		Local o:TParticle=New TParticle
-- 
cgit v1.2.3