From 2afd44a7ba2c1d8b9c162ab9c6ccdfbd9f1310c0 Mon Sep 17 00:00:00 2001
From: Ian C <ianc@noddybox.co.uk>
Date: Wed, 24 Aug 2005 00:25:34 +0000
Subject: Changed typenames to Blitz standard naming.  Added unimplemented
 TVector.

---
 vector.mod/.cvsignore |  5 +++++
 vector.mod/vector.bmx | 35 +++++++++++++++++++++++++++++++++++
 2 files changed, 40 insertions(+)
 create mode 100644 vector.mod/.cvsignore
 create mode 100644 vector.mod/vector.bmx

(limited to 'vector.mod')

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
-- 
cgit v1.2.3