1 files changed, 63 insertions, 35 deletions
diff --git a/vector.mod/vector.bmx b/vector.mod/vector.bmx
index f32035b..67818fe 100644
--- a/vector.mod/vector.bmx
+++ b/vector.mod/vector.bmx
@@ -1,3 +1,6 @@
+Rem
+bbdoc: noddybox.vector
+EndRem
 Module noddybox.vector
 
 ModuleInfo "Framework: Simple Vector class"
@@ -10,21 +13,30 @@ ModuleInfo "Version: $Revision$"
 Strict
 Import brl.math
 
+Rem
+bbdoc: Implements a 3D vector.  Can be used as a 2D vector by ignoring Z.
+EndRem
 Type TVector
 
+	Rem
+	bbdoc: The X component of the vector.
+	EndRem
 	Field x:Float
+	Rem
+	bbdoc: The Y component of the vector.
+	EndRem
 	Field y:Float
+	Rem
+	bbdoc: The Z component of the vector.
+	EndRem
 	Field z:Float
 
 
-	' Creates a new vector
-	'	
-	' dx		- X componenent
-	' dy		- Y componenent
-	' dz		- Z componenent
-	'
-	' Returns null for invalid parameters.
-	'
+	Rem
+	bbdoc: Create a vector.
+	returns: The created vector.
+	about: @dx, @dy and @dz are the initial component values.
+	EndRem
 	Function Create:TVector(dx:Float=0.0, dy:Float=0.0, dz:Float=0.0)
 		Local o:TVector
 		
@@ -37,14 +49,18 @@ Type TVector
 		Return o
 	End Function
 	
-	' Is this vector null
-	'
+	Rem
+	bbdoc: Is the vector null.
+	returns: True if the vector is null (all components zero), False otherwise.
+	EndRem
 	Method IsNull:Int()
 		Return x=0 And y=0 And z=0
 	End Method
 	
-	' Get the length of the vector
-	'
+	Rem
+	bbdoc: The length of the vector.
+	returns: The length of the vector.
+	EndRem
 	Method Length:Float()
 		If (IsNull())
 			Return 0
@@ -53,8 +69,9 @@ Type TVector
 		EndIf
 	End Method
 	
-	' Normalise the vector
-	'
+	Rem
+	bbdoc: Normalise the vector so its length is 1.
+	EndRem
 	Method Normalise()
 		Local l:Float=Length()
 		If (l<>0)
@@ -64,78 +81,89 @@ Type TVector
 		EndIf
 	End Method
 	
-	' Set the vector to a length
-	'
+	Rem
+	bbdoc: Set the vector so its length is @sc.
+	EndRem
 	Method SetLength(sc:Float)
 		Normalise()
 		Scale(sc)
 	End Method
 	
-	' Add a scalar to the vector
-	'
+	Rem
+	bbdoc: Adds @sc to all components.
+	EndRem
 	Method AddScalar(sc:Float)
 		x:+sc
 		y:+sc
 		z:+sc
 	End Method
 	
-	' Flip the vector
-	'
+	Rem
+	bbdoc: Reverse the direction of the vector.
+	EndRem
 	Method Minus()
 		x=-x
 		y=-y
 		z=-z
 	End Method
 	
-	' Scale the vector by a scalar
-	'
+	Rem
+	bbdoc: Scale all components by @sc.
+	EndRem
 	Method Scale(sc:Float)
 		x:*sc
 		y:*sc
 		z:*sc
 	End Method
 	
-	' Add another vector to this
-	'
+	Rem
+	bbdoc: Add another vector to this vector.
+	EndRem
 	Method Add(v:TVector)
 		x:+v.x
 		y:+v.y
 		z:+v.z
 	End Method
 	
-	' Subtract another vector from this
-	'
+	Rem
+	bbdoc: Subtract another vector from this vector.
+	EndRem
 	Method Subtract(v:TVector)
 		x:-v.x
 		y:-v.y
 		z:-v.z
 	End Method
 
-	' Scale this with another vector
-	'
+	Rem
+	bbdoc: Scale this vector by another vector.
+	EndRem
 	Method ScaleVector(v:TVector)
 		x:*v.x
 		y:*v.y
 		z:*v.z
 	End Method
 
-	' Inverse scale this with another vector
-	'
+	Rem
+	bbdoc: Inverse scale this vector by another vector.
+	EndRem
 	Method InverseScaleVector(v:TVector)
 		x:/v.x
 		y:/v.y
 		z:/v.z
 	End Method
 	
-	' Calculate the cross product of this vector with another.
-	' Returns a new vector.
-	'
+	Rem
+	bbdoc: Calculate the cross product of this vector with another.
+	returns: A new @TVector holding the cross product.
+	EndRem
 	Method Cross:TVector(v:TVector)
 		Return TVector.Create(y * v.z - v.y * z, z * v.x - v.z * x, x * v.y - v.x * y)
 	End Method
 
-	' Calculate the dot product of this vector with another.
-	'
+	Rem
+	bbdoc: Calculate the dot product of this vector with another.
+	returns: The dot product.
+	EndRem
 	Method Dot:Float(v:TVector)
 		Return x*v.x + y*v.y + z*v.z
 	End Method