MaxPhysics Community Project: Complete Source Code

BlitzMax Forums/BlitzMax Module Tweaks/MaxPhysics Community Project: Complete Source Code

Tibit (Posted 2005) [#1]

This topic should always contain the latest version of every file in the MaxPhysics Module. All code to all types of the module will be found here aswell as links to compete compilations. This is an public module open to everyone. Take, Share and have fun! Download in Zip [a http://link to a zip file]here[/a] NOTE: [Don't post in this topic unless I'm "gone"] This topic is used to keep the complete parts together. I will update all posts in this topic to reflect any updates and tweaks people do. (as time permits of course ) Anyone may add and improve to the code in this module. Make sure that you, in the comments at the top of the file, write what have changed and what addition you have done or bugs you have discovered, perhaps even fixed. ALSO please note that you should NOT post any changes you do in this topic. All Tweaks or code Additions you wish to share go here Don't be afraid to use the tweak forum to post code which you are unsure about. Let everyone take a look at it and then decide! All Suggestions go here All News can be found here Examples and Demos go here

Tibit (Posted 2005) [#2]

Vector2D.bmx Strict Rem File: "Vector2D.bmx" 2D Vector Module The Vector Module which is a part of the Public MaxPhysics PROJECT VERSION HISTORY: ADDITIONS: Added some more function commands (these should be in a aseparate file..) Added methods for converting and creating perpendicular vectors (normals) ' \__ Commands see: CreateLeftNormal() Added a method: Plus( value!) - increases a vectors leangth with a scalar FIXES: Fixed: Now using the real cartesian coordinate system Fixed: Replaced floats with doubles. TO DO: Add methods and functions from the PollyCode Vector Each method should have a equivalent function only 3-4 are done. EndRem ' / / / / / / / / / / / / / / / / ' T V E C T O R '------------------------------------------------------------------------ Type Vector2D Field X!,Y! '=============== ' BASIC COMMANDS '=============== ' C R E A T E V E C T O R '----------------------------------------------- Function Create:Vector2D( X!, Y! ) Local Vector:Vector2D Vector = New Vector2D Vector.X! = X! Vector.Y! = Y! Return Vector End Function ' C R E A T E V E C T O R F R O M '---------------------------------------------- Function CreateFrom:Vector2D( Position1:Vector2D , Position2:Vector2D ) Local Vector:Vector2D = Create(0,0) Vector.VectorFrom( Position1, Position2 ) Return Vector EndFunction ' C R E A T E /w D I E C T I O N '---------------------------------------------- ' I don't know any good name for this method Function CreateField:Vector2D( Length , Direction ) Local Vector:Vector2D = Create(1,0) Vector.SetLength( Length ) Vector.SetDirection( Direction ) Return Vector EndFunction ' C O P Y V E C T O R '---------------------------------------------- Method Copy:Vector2D()' Return Create( X , Y ) End Method ' S E T V E C T O R '---------------------------------------------- Method Set( newX! , newY! )' X! = newX! Y! = newY! End Method ' S E T D I R E C T I O N '---------------------------------------------- Method SetDirection( Angle! )' Local Length! = Length() X = Cos( Angle! )*Length Y = -Sin( Angle! )*Length End Method Method SetDir( Angle! ) SetDirection( Angle ) EndMethod ' S E T L E N G T H '---------------------------------------------- Method SetLength( Length! ) 'If we want to set vector to zero If Length = 0 Set(0,0);Return 'If the new length is negative assume we want to If Length < 0 Turn180() 'Reverse Local Angle! = Angle()'Of this Vector X = Cos(Angle) * Length Y = -Sin(Angle) * Length EndMethod Method SetMagnitude( Length! ) SetLength( Length ) EndMethod ' G E T L E N G T H '---------------------------------------------- Method Length!() Return Sqr( X*X + Y*Y )' EndMethod 'Alternative Names - Use whatever you like Method Magnitude!() Return Length() EndMethod Method GetLength!() Return Length() EndMethod Method GetMagnitude!() Return Length() EndMethod ' G E T L E N G T H S Q U A R E D '---------------------------------------------- Method LengthSquared() Return ( X*X + Y*Y )' EndMethod ' G E T D I R E C T I O N '---------------------------------------------- Method Direction!() Return ATan2(-y , x) End Method 'Also Alternative Names - Use whatever you like Method GetDirection!() Return Direction() EndMethod Method Dir!() Return Direction() EndMethod Method GetAngle!() Return Direction() EndMethod Method Angle!() Return Direction() EndMethod 'And alternative to get 0<= Angle <360 Method Dir360!() Local Angle! = Direction!() If Angle < 0 Then Angle:+360 Return Angle End Method ' C R E A T E L E F T N O R M A L '---------------------------------------------- ' This is a a Perpendicular Vector! 'As if you would rotate it 90 degrees Method CreateLeftNormal:Vector2D( ) Return Create( Y, -X ) EndMethod ' C R E A T E R I G H T N O R M A L '---------------------------------------------- ' This is a a Perpendicular Vector! Method CreateRightNormal:Vector2D( ) Return Create( -Y, X ) EndMethod ' M A K E L E F T N O R M A L '---------------------------------------------- Method MakeLeftNormal() Return Set( Y, -X ) EndMethod ' M A K E R I G H T N O R M A L '---------------------------------------------- Method MakeRightNormal() Return Set( -Y, X ) EndMethod ' R E V E R S E V E C T O R '---------------------------------------------- Method Reverse() 'or Turn 180 Degrees X = -X Y = -Y End Method Method Turn180() Reverse() EndMethod ' V E C T O R F R O M '---------------------------------------------- Method VectorFrom( Position1:Vector2D , Position2:Vector2D) X = ( Position2.X - Position1.X ) Y = ( Position2.Y - Position1.Y ) 'Change the vector into a vector from Position1 to Position2 EndMethod '=============== ' MATH COMMANDS '=============== ' A D D '---------------------------------------------- Method Add( Vector:Vector2D ) X:+ Vector.X Y:+ Vector.Y EndMethod ' A D D /w D E L T A T I M E '---------------------------------------------- Method AddDelta( Vector:Vector2D ) Add( Vector ) MultiplyDeltaTime() EndMethod ' A D D C O P Y '---------------------------------------------- ' Add two Vectors and return the result as a ' third vector. Method AddCopy:Vector2D( Vector:Vector2D ) Local NewVector:Vector2D NewVector = Self.Copy() NewVector.Add( Vector ) Return NewVector EndMethod ' A D D N E W /w D E L T A T I M E '---------------------------------------------- Method AddDeltaCopy:Vector2D( Vector:Vector2D ) Local NewVector:Vector2D NewVector = AddCopy( Vector ) NewVector.MultiplyDeltaTime() Return NewVector EndMethod Method Increase( Value! )'Add a value to the vectors length Local Angle# = GetAngle() X:+ Cos( Angle ) * Value Y:- Sin( Angle ) * Value End Method Method Plus( Value! ) Increase( Value ) EndMethod ' R O T A T E '---------------------------------------------- Method Rotate( Angle! ) Local CurrentAngle! = Direction() Local Length! = Length() X = Cos( CurrentAngle + Angle ) * Length Y = -Sin( CurrentAngle + Angle ) * Length EndMethod Method AddAngle( Angle! ) Rotate( Angle ) EndMethod ' S U B T R A C T '---------------------------------------------- Method Subtract( Vector:Vector2D ) X:- Vector.X Y:- Vector.Y 'This would also work 'Self.Add( Vector.Copy().Reverse() ) EndMethod ' D O T P R O D U C T '---------------------------------------------- Method DOT!( Vector:Vector2D ) Return ( X * Vector.X + Y * Vector.Y) EndMethod 'Alternative Name Method DotProduct!( Vector:Vector2D ) Return Self.DOT( Vector ) EndMethod ' M U L T I P L Y V E C T O R '---------------------------------------------- Method Multiply( Value! ) X:*Value Y:*Value EndMethod ' M U L T I P L Y /w Delta Time '---------------------------------------------- ' Method MultiplyDeltaTime() Self.Multiply( Delta.Time() ) EndMethod ' N O R M A L I Z E '---------------------------------------------- Method Normalize() Local Length! = Length() If Length = 0 Return'Don't divide by zero Set( (X / Length), ( Y / Length) ) 'Make length = 1 End Method ' U N I T V E C T O R '---------------------------------------------- Method Unit:Vector2D() Local Vector:Vector2D Vector = Self.Copy() Vector.Normalize() Return Vector'Returns a New vector with length = 1 End Method 'Check if this vector collides with another Vector 'You need to specify the start point of both vectors 'Returns null if no collision found, returns a vector if they do 'the vector represents the intersection point. Method Collide:Vector2D( Q:Vector2D, ZStart:Vector2D ,QStart:Vector2D ) 'Z = Self 'Makes the equations easier to follow 'We have two vectors: Z and Q, and their start points Local LineDeltaZ!' Local LineDeltaQ!' If Q.X = 0 If Y = 0 LineDeltaZ = 0 Else LineDeltaZ = ( QStart.Y - ZStart.Y) / Y EndIf Else Local A = (QStart.Y - ZStart.Y) Local B = (Q.Y / Q.X) Local C = (ZStart.X - QStart.X ) Local D = (Y - Q.Y * X / Q.X ) If D = 0 LineDeltaZ = 0 Else LineDeltaZ = ( A + B*C ) / D EndIf 'ORIGINAL EQUATION on one single line - breaks if divide by 0 'L1d = ( _Line.StartPoint.y - StartPoint.y + (L2y/L2x)*( StartPoint.x - _Line.StartPoint.x )) / ( L1y - L2y*L1x/L2x ) EndIf 'Are we on the line? If LineDeltaZ >= 0 And LineDeltaZ <= 1 If Q.X = 0 LineDeltaQ = 0 Else LineDeltaQ = ( ZStart.X + X*LineDeltaZ - QStart.X ) / Q.X EndIf If LineDeltaQ >=0 And LineDeltaQ <=1 Local Xi = ZStart.X + LineDeltaQ*X Local Yi = ZStart.Y + LineDeltaQ*Y Return Vector2D.Create( Xi,Yi ) EndIf EndIf Return Null End Method '=============== ' DEBUG COMMANDS '=============== ' D R A W V E C T O R '-------------------------------------------------- Method DrawModify( From:Vector2D , Multiply! , Xtra ) DrawLine From.X + Xtra, From.Y, From.X + Xtra + X* Multiply , From.Y + Y* Multiply EndMethod Method DrawXY( FromX, FromY, Multiply! , Xtra ) DrawModify( Point(FromX, FromY) , Multiply! , Xtra ) End Method ' D R A W R E A L V E C T O R '-------------------------------------------------- Method Draw( Origin:Vector2D =Null ) If Origin = Null Origin = Create( 0, 0 ) DrawModify( Origin , 1 , 0 ) EndMethod ' D R A W V E C T O R D A T A '----------------------------------------------- Method DrawData( sLen, sDir, X, Y ) Local Row = 0 If sLen DrawText "Length : "+Length(),X,Y +Row*15; Row:+1 If sDir DrawText "Dir : " +Dir360(),X,Y +Row*15; Row:+1 End Method EndType ' / / / / / / / / / / / / / / / / '------------------------------------------------------------------------ ' C R E A T E V E C T O R '----------------------------------------------- 'Purpose: Creates a New Vector 'Parameters: X = Vectors X value ' Same For Y 'Returns: New Vector Type '----------------------------------------------- Function CreateVector:Vector2D( X!=0, Y!=0 ) Return Vector2D.Create( X, Y ) EndFunction ' C O P Y V E C T O R '---------------------------------------------- 'Purpose: Copies a Vector into a New vector 'Parameters: VECTOR 'Returns: a VECTOR, exact copy of first VECTOR '----------------------------------------------- Function CopyVector:Vector2D( Vector:Vector2D ) Return Vector.Copy() EndFunction ' V E C T O R D I R E C T I O N '---------------------------------------------------- 'Purpose: Calculates the direction of a vector 'Parameters: VECTOR 'Returns: Degrees 'Note on Angel: 0 is Left, 90 is down (BlitzStyle) 'Note LastDir: If Length = 0 this Function returns LastDir '--------------------------------------------------------- Function VectorDirection!( Vector:Vector2D ) If Vector = Null Return Return Vector.Direction() EndFunction ' S E T V E C T O R '---------------------------------------------- Function SetVector( Vector:Vector2D, X!=0, Y!=0 ) If Vector = Null Return Vector.Set( X, Y ) EndFunction ' M A K E L E F T N O R M A L '---------------------------------------------- ' Creates Vector that is perpendicular to the first ' Fast way to rotate it 90 degrees. ' Function CreateLeftNormal:Vector2D( Vector:Vector2D ) Return Vector.CreateLeftNormal() EndFunction ' D O T P R O D U C T '--------------------------------------------------- 'Purpose: Calculated the Dot-Product of Two Vectors 'Parameters: Two vectors you want to "Dot" 'Returns: The result '--------------------------------------------------- Function Dot!(Vector:Vector2D,Vector2:Vector2D) If Vector = Null Return Return Vector.DOT( Vector2 ) End Function 'Alternative Naming (Both these works the same) Function DotProduct!(Vector:Vector2D,Vector2:Vector2D) If Vector = Null Return Return Vector.DOT( Vector2 ) End Function ' N O R M A L I Z E '---------------------------------------------- 'Purpose: Sets Vector length To ONE but keeps ' it's direction 'Parameters: VECTOR to normalize '----------------------------------------------- Function NormalizeVector( Vector:Vector2D ) If Vector = Null Return Vector.Normalize() EndFunction ' R O T A T E '---------------------------------------------- ' Rotates the Vector by this much. ' Possitive numbers for clockwise movement ' Negative for Anit-Clockwise =) ' 'Note: Don't confuse this command with SetVectorDirection() Function RotateVector( Vector:Vector2D, Angle! ) If Vector = Null Return Vector.Rotate( Angle! ) EndFunction ' U N I T V E C T O R '---------------------------------------------- 'Note: This is same as Normalizing a vector ' except that this function does not alter the ' original vector. Instead it return a new vector Function CreateUnitVector:Vector2D( Vector:Vector2D ) If Vector Return Vector.Unit() EndIf EndFunction ' D R A W V E C T O R '__________________________________________________ 'Purpose: Draws the vector from the specifed point 'Parameters: X,Y location '-------------------------------------------------- Function DrawVector( Vector:Vector2D, From:Vector2D , Multiply!=1 , Xtra=0 ) Vector.DrawModify( From , Multiply! , Xtra ) EndFunction ' D R A W V E C T O R D A T A '----------------------------------------------- 'Purpose: Prints the data of a vector 'Parameters: sLen=ShowLength, SDir=ShowDirection ' X and Y = Where to start draw the data (text) '----------------------------------------------- Function DrawVectorData( Vector:Vector2D, X=10, Y=20, sLen=True, sDir=False ) Vector.DrawData( sLen, sDir, X, Y ) EndFunction Function DrawVectorInfo( Vector:Vector2D, X=10, Y=20, sLen=True, sDir=False) Vector.DrawData( sLen, sDir, X, Y ) EndFunction Rem If you ever need a function to check something of a point you can use the vector to check against (position vector for example) Ex drawline( Point(50,100), ShipPosition:Vector ) EndRem Function Point:Vector2D( X! , Y! ) Local Vector:Vector2D= New Vector2D Vector.X = X Vector.Y = Y Return Vector EndFunction Function DrawPoint( Point:Vector2D, Radius) DrawOval Point.X-Radius, Point.Y-Radius, Radius*2, Radius*2' Center Point! EndFunction Function DrawLineToPointFromOrigin( Start:Vector2D, Origin:Vector2D ) DrawLine Start.X, Start.Y, Start.X + Origin.X , Start.Y + Origin.Y EndFunction ' / / / / / / / / / / / / / / / / ' D E L T A T I M E '------------------------------------------------------------------------ Type Delta ' '----------------------------------------------------- ' This type is Fully global. Which means you'll always ' refere to it as Delta.Start() , Delta.Time(), ' Delta.Update() ' ' You shouldn't create instances of this type! ' DeltaTime is same for all your objects! ' Global DeltaTime! Global TimeDelay% 'Run this once before your main loop 'If you don't there will be a jump in deltatime Function Start() TimeDelay = MilliSecs() End Function 'Everytime where you want to get the deltatime 'call this: Delta.Time 'You should multiply this to every place which 'adds to you position/speed/acceleration ' ' The basic rule is to add deltatime to all ' things which gets added to every frame ' Like Speed:+ 10*Delta.Time ' ' If you use the Vector Library simply use ' AddDelta() instead of Add() ' And ' AddDeltaNew() Instead of AddNew() Function Time!() Return DeltaTime! End Function 'Put this once in your main loop 'it calculates the current deltatime 'depeding on your framerate or more exact 'the time between each/the last frame. Function Update() '_____________________________________________________ 'Purpose: Calculates DeltaTime , put it in mainloop '----------------------------------------------------- DeltaTime = ( MilliSecs()- TimeDelay )*0.001 TimeDelay = MilliSecs() EndFunction End Type ' / / / / / / / / / / / / / / / / '----------------------------------------------------------------------------------------

Tibit (Posted 2005) [#3]

Line2D

Tibit (Posted 2005) [#4]

Polygon2D

Tibit (Posted 2005) [#5]

PhysicsObject.bmx

Tibit (Posted 2005) [#6]

CollisionPlane.bmx