summaryrefslogtreecommitdiff
path: root/types.bmx
diff options
context:
space:
mode:
Diffstat (limited to 'types.bmx')
-rw-r--r--types.bmx30
1 files changed, 15 insertions, 15 deletions
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