Sorry your browser is not supported!

remstart
/*
   Name: Vector.inc.dba
   Desc: Vector Header File
*/ 0.01.r0.alpha
remend

`------------------------------
`// Header Declarations
`------------------------------
#constant ADDRESS             dword
#constant VECTOR_EPSILON      0.01
#constant VECTOR_TABLE_SIZE   256

#constant SUCCESS 1
#constant FAIL    0

global g_Vec3 as ADDRESS

`------------------------------
`// Type Declarations
`------------------------------
type fVec3_t
   x as float
   y as float
   z as float
endtype

`// Initilise the Vectors
if ( FAIL=InitVectors() )
   exit prompt "Error","Unable to Access Vector Tables"
endif

`/* -----------------------------
`   Name: InitVectors()
`   Desc: Initialise Vector Table
`   ----------------------------- */
function InitVectors( )
`{
   local result as boolean = FAIL

   `// setup Vector3 Table
   if g_Vec3=0
      g_Vec3=make memory(12*VECTOR_TABLE_SIZE+12)
      fill memory g_Vec3,0,12*VECTOR_TABLE_SIZE
      result=SUCCESS
   endif

   endfunction result
`}

`/* -----------------------------
`   Name: ReleaseVectors()
`   Desc: Releases Vector Tables
`   ----------------------------- */
function ReleaseVectors( )
`{
   local result as boolean = FAIL

   `// release Vector3 Table
   if g_Vec3<>0
      delete memory *g_Vec3
      result=SUCCESS
   endif

   endfunction result
`}

`/* ------------------------------------
`   Name: GetVec3Addr()
`   Desc: Returns the address pointer of
`         of the given Vector
`   ------------------------------------ */
function GetVec3Addr( Vector as integer )
`{
   local Addr as ADDRESS

   if Vector<0 or Vector>VECTOR_TABLE_SIZE
      Vector=NULL
   endif
   Addr=g_Vec3+( 12*Vector )

   endfunction Addr
`}

`/* ------------------------------------
`   Name: SET_VECTOR3
`   Desc: Sets the Vector3 Vector Points
`   ------------------------------------ */
function SET_VECTOR3( Vector as dword, _
                      x as float, y as float, z as float )
`{
   local Addr as ADDRESS

   Addr=GetVec3Addr( Vector )
   *Addr=x
    Addr=Addr+4
   *Addr=y
    Addr=Addr+4
   *Addr=z

   endfunction
`}

`/* ------------------------------------
`   Name: VEC3_X|Y|Z()
`   Desc: Returns the address pointer of
`         of the given Vector
`   ------------------------------------ */
function VEC3_X( Vector as integer )
`{
   local Addr     as ADDRESS
   local result   as float

   Addr=GetVec3Addr( Vector )
   result=*Addr

   endfunction result
`}

function VEC3_Y( Vector as integer )
`{
   local Addr     as ADDRESS
   local result   as float

   Addr=GetVec3Addr( Vector )+4
   result=*Addr

   endfunction result
`}

function VEC3_Z( Vector as integer )
`{
   local Addr     as ADDRESS
   local result   as float

   Addr=GetVec3Addr( Vector )+8
   result=*Addr

   endfunction result
`}

remstart
/*
   Copyright© 2003 FMTau Labs, LLC. All Rights Reserved.
*/ 0.01.r0.alpha
remend

`//#include <vector.inc.dba>
#constant TRUE=(1=1)
#constant FALSE=(1=0)

InitVectors() :`// initilise vector table
IsTrue as boolean

`// grab vector points
MyVectorA as dword = GetVec3Addr( 1 )
MyVectorB as dword = GetVec3Addr( 2 )

`// set vector values
SET_VECTOR3( MyVectorA, 0.0, 1.0, 0.0  )
SET_VECTOR3( MyVectorB, 0.0, 1.0, 0.01 )

IsTrue = VectorCompare( MyVectorA, MyVectorB )

if IsTrue=TRUE
   print "Vectors are the Same"
else
   print "Vectors are Different"
endif

wait key
ReleaseVectors() :`// make sure you release else you get memory leaks!!

function VectorCompare(Vec1 as dword, Vec2 as dword)
`{
   local i as integer
   local result as boolean
   local dim v1(2) as float
      v1(0)=VEC3_X(Vec1) : v1(1)=VEC3_Y(Vec1) : v1(2)=VEC3_Z(Vec1)
   local dim v2(2) as float
      v2(0)=VEC3_X(Vec2) : v2(1)=VEC3_Y(Vec2) : v1(2)=VEC3_Z(Vec2)
   
   for i=0 to 2
      if (abs(v1[i]-v2[i]) > VECTOR_EPSILON)
         result=FALSE
         undim v1(2) : undim v2(2)
         exitfunction result
      endif
   next i
	
   result=TRUE	
   undim v1(2) : undim v2(2)	
   endfunction result
`} boolean

type MyType_t
   x as integer
   y as integer
   speed as float
   angle as float
endtype

global dim MyType() as MyType_t
global dim FreePool_MyType() as integer

function New_MyType()
   local Index as integer

   ` If there is something in the freepool, use the one on top of the stack
   if array count( FreePool_MyType() ) > 0
      array index to stack FreePool_MyType()
      Index=FreePool_MyType()
      remove from stack FreePool_MyType()
   else
      ` Othersize, allocate a new item
      array insert at bottom MyType()
      Index=array count( MyType() )
   endif

   ` Could put an item constructor here
endfunction Index

function Delete_MyType(Index as integer)
   array insert at bottom FreePool_MyType()
   array index to stack FreePool_MyType()
   FreePool_MyType()=Index
endfunction

function Initialise_MyType()
   undim MyType()
   undim FreePool_MyType()
   global dim MyType() as MyType_t
   global dim FreePool_MyType() as integer
endfunction

Initialise_MyType()

x=New_MyType()

print x

MyType(x).x=1
MyType(x).y=1
MyType(x).speed=1.234
MyType(x).angle=180.0

` Call functions here that expect 'x' as an argument, where x refers
` to our object.

Delete_MyType(x)

end

#inline a->b MyFunction([a],[b])

Value as dword
Value=5->10

print str$(value)

function MyFunction( ValueA as dword, ValueB as dword )
`{
  local result as dword
  result=(ValueA*ValueB)/ValueB
  endfunction result
`}