whats the error you get in dbpro?
for some reason i keep getting told my types are causing errors all over the shop (i'm not sure why though)
if you want to use the DB version, place down a plane and a cube, you'll notice what it's suppose to do - that zoom is based on the mouse scroll wheel
i forgot to put with that my movement code
which should be
remstart
/*
Developer: FMTau Labs LLC
Title: Camera Tech Demo
Version: 0.0.1 alpha (Build 000)
Date: 02-04-2003 | 17:47
DarkBasic: Standard (1.0+) | Enhanced (1.10+)
Additional Notes:
credits at the bottoms...
*/ ** orbitcamera.dba ****
remend
`// program declarations
Radius# = 30.0
while spacekey()=0
`// Camera Zoom
CamZ# = mousemovez()/8
if mouseclick()=1
CamRotXZ# = wrapvalue( CamRotXZ# + (mousemovex()/2) ) :`// ground plane
CamRotY# = wrapvalue( CamRotY# + (mousemovey()/2) ) :`// height
`// calculate vectors
CamPosY# = sin( CamRotY# ) * Radius#
CamPosX# = ( cos( CamRotXZ ) * Radius# ) * cos( CamRotY# )
CamPosZ# = ( sin( CamRotXZ ) * Radius# ) * cos( CamRotY# )
`// update camera rotation
rotate camera wrapvalue((CamRotY# * -1) + 180),wrapvalue((CamRotXZ# * -1) + 90),0
endif
`// controls movement
if mouseclick()=2
CamMovX#=newxvalue(Camera Position X(),CamY#,(mousemovex()*0.3))
CamMovZ#=newzvalue(Camera Position Z(),CamY#,(mousemovez()*0.3))
endif
`// controls camera's height
if inkey$()="-" then CamMovY#=CamMoveY#-1.0+Extra#
if inkey$()="+" then CamMovY#=CamMoveY#+1.0+Extra#
`// update the camera's position & zoom
position camera (CamMovX# + CamPosX#),(CamMovY# + CamY#),(CamMovZ# + CamPosZ#)
move camera CamZ#
sync :`// update sync
endwhile
remstart
/*
Credits:
-- Programming ----
Robert 'Raven' Lettan
Copyright© 2003 Robert Lettan. All Rights Reserved.
*/
now that should not only be able to move the camera around the scene, but also zoom in/out, orbit a point & be able to move up/down
left mouse button = orbit
right mouse button = move
scroll wheel = zoom
+/- = up/down
oh and Extra# is there for if you need to put on say a Matrix height, you can just add those values to the Extra# and it'll automatically be taken into account
- also you could zoom by changing the Rotation Value.
make object plain 1,1000,1000
position object 1,-500,0,-500
make object cube 2,100
position object 2,0,50,0
add that at the start to see what is going on when you do something
Tsu'va Oni Ni Jyuuko Fiori Sei Tau!
One block follows the suit ... the whole suit of blocks is the path ... what have you found?
