Sorry your browser is not supported!

pick screen screen width()/2, screen height()/2, 1.0

(get pick vector x(); get pick vector y(); get pick vector z())

sync on
sync rate 0

`Load DBP camera debug dll
load dll "DBProCameraDebug.dll", 1
make memblock 1, 64 : `Will hold the camera matrix

`Cube
make object cube 1, 5

`Sphere
make object sphere 2, 1

do

    angle# = wrapvalue(angle# + 0.1)
    position camera newxvalue(0, angle#, 10), 10, newzvalue(0, angle#, 10)
    point camera 0, 0, 0
    
    `Get internal data
    GetCameraInternal(0, 1)
    
    `Show internal data
    set cursor 0, 0
    print memblock float(1, 0), " : ", memblock float(1, 4), " : ", memblock float(1, 8), " : ", memblock float(1, 12)
    print memblock float(1, 16), " : ", memblock float(1, 20), " : ", memblock float(1, 24), " : ", memblock float(1, 28)
    print memblock float(1, 32), " : ", memblock float(1, 36), " : ", memblock float(1, 40), " : ", memblock float(1, 44)
    print memblock float(1, 48), " : ", memblock float(1, 52), " : ", memblock float(1, 56), " : ", memblock float(1, 60)

    `Position the sphere right in front of the camera
    position object 2, camera position x() + memblock float(1, 8)*4.0, camera position y() + memblock float(1, 24)*4.0, camera position z() + memblock float(1, 40)*4.0

    sync
loop

function GetCameraInternal(id, mem)
    `Get access to the internal camera structure
    ptr = call dll(1, "?GetInternalData@@YAPAXH@Z", id)
    
    `Copy the view matrix (offset +64) to the memblock
    copy memory get memblock ptr(mem), ptr + 64, 64
endfunction

set vector3 vectorNum, sin(camera angle y()) * Cos(camera angle x()), -Sin(camera angle x()), Cos(camera angle y()) * Cos(camera angle x())

sync on
sync rate 0

`Load DBP camera debug dll
load dll "DBProCameraDebug.dll", 1

`Cube
make object cube 1, 5

`Sphere
make object sphere 2, 1

do

    angle# = wrapvalue(angle# + 0.1)
    position camera newxvalue(0, angle#, 10), 10, newzvalue(0, angle#, 10)
    point camera 0, 0, 0
    
    `Get internal data (parameters: camera ID, returns pointer to the internal data structure)
    ptr = call dll(1, "?GetInternalData@@YAPAXH@Z", 0)
    
    `Make sure the pointer points to the view matrix inside the data structure
    inc ptr, 64

    `Position the sphere right in front of the camera
    position object 2, camera position x() + peek float(ptr+8)*4.0, camera position y() + peek float(ptr+24)*4.0, camera position z() + peek float(ptr+40)*4.0

    sync
loop

sync on
sync rate 0

`Load DBP camera debug dll
load dll "DBProCameraDebug.dll", 1

`Cube
make object cube 1, 5

`Sphere
make object sphere 2, 1

`Get internal data (parameters: camera ID, returns pointer to the internal data structure)
ptr = call dll(1, "?GetInternalData@@YAPAXH@Z", 0)

`Make sure the pointer points to the view matrix inside the data structure
inc ptr, 64

do

    angle# = wrapvalue(angle# + 0.1)
    position camera newxvalue(0, angle#, 10), 10, newzvalue(0, angle#, 10)
    point camera 0, 0, 0

    `Position the sphere right in front of the camera
    position object 2, camera position x() + peek float(ptr+8)*4.0, camera position y() + peek float(ptr+24)*4.0, camera position z() + peek float(ptr+40)*4.0

    sync
loop

sync on
sync rate 0
set display mode 640,480,32
make object cube 1,1
ft=timer()+10000
while timer()<ft
	center text 320,0,"FPS 1:"+str$(screen fps())
	move camera 1
	x1#=camera position x()
	y1#=camera position y()
	z1#=camera position z()
	move camera -1
	x2#=camera position x()
	y2#=camera position y()
	z2#=camera position z()
	vx#=x1#-x2#
	vy#=y1#-y2#
	vz#=z1#-z2#
	inc count1
	sync
endwhile

ft=timer()+10000
while timer()<ft
	center text 320,0,"FPS 2:"+str$(screen fps())
	pick screen 320,240,1.0
	vx#=get pick vector x()
	vy#=get pick vector y()
	vz#=get pick vector z()
	inc count2
	sync
endwhile

load dll "DBProCameraDebug.dll", 1
ptr = call dll(1, "?GetInternalData@@YAPAXH@Z", 0)
inc ptr, 64
ft=timer()+10000
while timer()<ft
	center text 320,0,"FPS 3:"+str$(screen fps())
	vx#=camera position x() + peek float(ptr+8)*4.0
	vy#=camera position y() + peek float(ptr+24)*4.0
	vz#=camera position z() + peek float(ptr+40)*4.0
	inc count3
	sync
endwhile

center text 320,0,"Method1:"+str$(count1)
center text 320,30,"Method2:"+str$(count2)
center text 320,60,"Method3:"+str$(count3)
sync

wait key

sync on
sync rate 0

`Cube
make object cube 1, 5

`Sphere
make object sphere 2, 1

`Create a matrix for the camera view matrix
r = make matrix4(1)

do

    angle# = wrapvalue(angle# + 0.1)
    position camera newxvalue(0, angle#, 10), 10, newzvalue(0, angle#, 10)
    point camera 0, 0, 0

    `Position the sphere right in front of the camera
    view matrix4 1
    position object 2, camera position x() + get matrix4 element(1, 2)*4.0, camera position y() + get matrix4 element(1, 6)*4.0, camera position z() + get matrix4 element(1, 10)*4.0

    sync
loop