Changed typenames to Blitz standard naming. Added unimplemented TVector.

2 files changed, 40 insertions, 0 deletions

diff --git a/vector.mod/.cvsignore b/vector.mod/.cvsignore
new file mode 100644
index 0000000..b79bf02
--- /dev/null
+++ b/vector.mod/.cvsignore
@@ -0,0 +1,5 @@
+vector.release.win32.i

+vector.debug.win32.a

+vector.debug.win32.i

+vector.release.win32.a

+.bmx
\ No newline at end of file
diff --git a/vector.mod/vector.bmx b/vector.mod/vector.bmx
new file mode 100644
index 0000000..c2ca8a4
--- /dev/null
+++ b/vector.mod/vector.bmx
@@ -0,0 +1,35 @@
+Module noddybox.vector
+
+ModuleInfo "Framework: Simple Vector class"
+ModuleInfo "Copyright: Public Domain"
+ModuleInfo "Author: Ian Cowburn"
+ModuleInfo "Version: $Revision$"
+
+' $Id$
+
+Import brl.Basic
+
+Strict
+
+Type TVector
+
+	' These are considered private
+	'
+	Field v:Float[4,4]
+
+	' Creates a new vector
+	'	
+	' x		- X componenent
+	' y		- Y componenent
+	' z		- Z componenent
+	'
+	' Returns null for invalid parameters.
+	'
+	Function Create:TVector(x:Float, y:Float, z:Float)
+		Local o:TVector
+		
+		o=New TVector
+		
+		Return o
+	End Function
+End Type