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