Sorry your browser is not supported!

class Vector3
    X as float
    Y as float
    Z as float
endclass

class Object3D
    ObjNum as integer
    Position()
    GetPosition() as Vector3
endclass

class ArrayTest
    data[] as integer
endclass

sync on

MyTest as ArrayTest
MyTest = new ArrayTest
MyTest.data = new integer[5]
MyTest.data[0] = 1
MyTest.data[1] = 2
MyTest.data[2] = 3
MyTest.data[3] = 4
MyTest.data = ResizeArray(MyTest.data,3)
print MyTest.data[0]
print MyTest.data[1]
print MyTest.data[2]
print MyTest.data[3]
print ArraySize(MyTest.data)

sync : sync
wait key

MyVector as Vector3

MyObject as Object3D
MyObject = CreateCube(10)

do
    if MyVector
        delete MyVector
    endif
    MyVector = MyObject.GetPosition()
    MyVector.X = MyVector.X + 0.01
    MyObject.Position(MyVector)
    text 0,0,str$(MyObject.GetPosition().X)
    sync
loop

function Object3D.Position(Pos as Vector3)
    position object me.ObjNum,Pos.X,Pos.Y,Pos.Z
endfunction

function Object3D.GetPosition()
    Pos as Vector3
    Pos = new Vector3
    Pos.X = object position x(me.ObjNum)
    Pos.Y = object position y(me.ObjNum)
    Pos.Z = object position z(me.ObjNum)
endfunction Pos

function CreateCube(size as float)
    obj as Object3D
    obj = new Object3D
    obj.ObjNum = find free object()
    make object cube obj.ObjNum,size
endfunction obj

sync on

MyTest as integer
MyTest = alloc zeroed(8)
poke integer MyTest+0, InitArray(5,4)
poke integer peek integer(MyTest+0)+8+(0)*4, 1
poke integer peek integer(MyTest+0)+8+(1)*4, 2
poke integer peek integer(MyTest+0)+8+(2)*4, 3
poke integer peek integer(MyTest+0)+8+(3)*4, 4
poke integer MyTest+0, ResizeArray(peek integer(MyTest+0),3)
print peek integer(peek integer(MyTest+0)+8+(0)*4)
print peek integer(peek integer(MyTest+0)+8+(1)*4)
print peek integer(peek integer(MyTest+0)+8+(2)*4)
print peek integer(peek integer(MyTest+0)+8+(3)*4)
print ArraySize(peek integer(MyTest+0))

sync : sync
wait key

MyVector as integer

MyObject as integer
MyObject = CreateCube(10)

do
if MyVector
free MyVector
endif
MyVector = object3d_getposition(MyObject)
poke float MyVector+0, peek float(MyVector+0) + 0.01
object3d_position(MyObject, MyVector)
text 0,0,str$(peek float(object3d_getposition(MyObject)+0))
sync
loop

function object3d_position(me as integer, Pos as integer)
position object peek integer(me+0),peek float(Pos+0),peek float(Pos+4),peek float(Pos+8)
endfunction

function object3d_getposition(me as integer)
Pos as integer
Pos = alloc zeroed(12)
poke float Pos+0, object position x(peek integer(me+0))
poke float Pos+4, object position y(peek integer(me+0))
poke float Pos+8, object position z(peek integer(me+0))
endfunction Pos

function CreateCube(size as float)
obj as integer
obj = alloc zeroed(4)
poke integer obj+0, find free object()
make object cube peek integer(obj+0),size
endfunction obj

function InitArray(size as integer,elementsize as integer)
array = alloc zeroed(size*elementsize+8)
poke integer array,size
poke integer array+4,elementsize
endfunction array
function ArraySize(array as integer)
size = peek integer(array)
endfunction size
function CloneArray(array as integer)
size = peek integer(array)*peek integer(array+4)+8
newarray = alloc zeroed(size)
copy memory newarray,array,size
endfunction newarray
function ResizeArray(array as integer, newsize as integer)
elementsize = peek integer(array+4)
oldbytes = peek integer(array)*elementsize
newbytes = newsize*elementsize
if newbytes < oldbytes then oldbytes = newbytes
newarray = alloc zeroed(newbytes+8)
copy memory newarray+8,array+8,oldbytes
free array
endfunction newarray

public struct Color
  b as byte
  g as byte
  r as byte
  a as byte
  <offset=0> color as dword
endstruct

public struct Vector2
  x as float
  y as float
endstruct

public struct Vector3
  x as float
  y as float
  z as float
endstruct

Declare "Header.txt"

myvec2 as Vector2
myvec2.x = 1
myvec2.y = 2

myvec3 as Vector3
myvec3.x = 3
myvec3.y = 4
myvec3.z = 5

mycol as Color
mycol.a = 255
mycol.r = 255
mycol.g = 0
mycol.b = 0
box 1,1,100,100,mycol.color,mycol.color,mycol.color,mycol.color

print myvec2.x
print myvec2.y
print myvec3.x
print myvec3.y
print myvec3.z

sync
wait key
end

rem Header was declared here!

myvec2 as integer : myvec2 = alloc zeroed(4)
poke float ((myvec2)+0) , 1
poke float ((myvec2)+4) , 2

myvec3 as integer : myvec3 = alloc zeroed(8)
poke float ((myvec3)+0) , 3
poke float ((myvec3)+4) , 4
poke float ((myvec3)+8) , 5

mycol as integer : mycol = alloc zeroed(3)
poke byte ((mycol)+3) , 255
poke byte ((mycol)+2) , 255
poke byte ((mycol)+1) , 0
poke byte ((mycol)+0) , 0
box 1,1,100,100,peek dword(((mycol)+0)),peek dword(((mycol)+0)),peek dword(((mycol)+0)),peek dword(((mycol)+0))

print peek float(((myvec2)+0))
print peek float(((myvec2)+4))
print peek float(((myvec3)+0))
print peek float(((myvec3)+4))
print peek float(((myvec3)+8))

sync
wait key
end

function InitArray(size as integer,elementsize as integer)
array = alloc zeroed(size*elementsize+8)
poke integer array,size
poke integer array+4,elementsize
endfunction array
function ArraySize(array as integer)
size = peek integer(array)
endfunction size
function CloneArray(array as integer)
size = peek integer(array)*peek integer(array+4)+8
newarray = alloc zeroed(size)
copy memory newarray,array,size
endfunction newarray
function ResizeArray(array as integer, newsize as integer)
elementsize = peek integer(array+4)
oldbytes = peek integer(array)*elementsize
newbytes = newsize*elementsize
if newbytes < oldbytes then oldbytes = newbytes
newarray = alloc zeroed(newbytes+8)
copy memory newarray+8,array+8,oldbytes
free array
endfunction newarray
function MemCmp(ptr1,ptr2,size)
for i = 0 to size-1
if peek byte(ptr1+i) <> peek byte(ptr2+i)
exitfunction 0
endif
next i
endfunction 1