TheGameCreators - CodeBase - Third-Person Camera

Return to the CodeBase listing

Category: 3D Maths

Version: 1.0

Information

Uploaded: 13th Dec 2006 01:22

Modified: 13th Dec 2006 01:23

Author: Image All

Summary

Keep the camera free, but also keep it locked on target.

Full Description

Your primary concern here is the camera_follow() function. It does some math to compute the new camera destination for a very free feel, yet it never lets the object out of view.

DarkBASIC Professional Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

sync on : sync rate 45 : hide mouse

make matrix 1,1000,1000,20,20

randomize matrix 1,20

update matrix 1

make object cone 1,5

xrotate object 1,90

fix object pivot 1

set object cull 1,0

color object 1,0x00ff00

global speed# as float

global movement as integer

speed#=0.00

movement=0

if keystate(17)=1 then speed#=curvevalue(0.5,speed#,10) : movement=1

if keystate(31)=1 then speed#=curvevalue(-0.5,speed#,10) : movement=1

if movement=0 then speed#=curvevalue(0,speed#,10)

move object 1,speed#

yrotate object 1,wrapvalue(object angle y(1)+(mousemovex()*0.2))

position object 1,object position x(1),get ground height(1,object position x(1),object position z(1))+2.5,object position z(1)

camera_follow(0, 1, 15, 20)

text 5,5,"W/S to move"

text 5,25,"Mouse to look"

sync

loop

function camera_follow(cam as integer,object as integer,maxdist# as float,smoothing as integer)

`capture camera positions

camx#=camera position x(cam)

camy#=camera position y(cam)

camz#=camera position z(cam)

`capture object positions

objx#=object position x(object)

objy#=object position y(object)

objz#=object position z(object)

`get the distance between object and camera

dist#=abs(sqrt(((camx#-objx#)^2)+((camy#-objy#)^2)+((camz#-objz#)^2)))

`calculate the x and z of where the camera should end up around the

`object with a buffer radius of maxdist#

goalx#=(objx#+(sin(atanfull((camx#-objx#),(camz#-objz#)))*maxdist#))

goalz#=(objz#+(cos(atanfull((camx#-objx#),(camz#-objz#)))*maxdist#))

`calculate the new x and z for the camera if the object strays too far away

if dist#>maxdist#

camx#=curvevalue(goalx#,camx#,smoothing)

camz#=curvevalue(goalz#,camz#,smoothing)

endif

`calculate the camera's height at object position, plus 1-1/5 the object's height

camy#=curvevalue(objy#+((object size y(object)/5)*6),camy#,smoothing)

`point the camera at the object

point camera cam,objx#,objy#,objz#

`position the camera on the new calculated destination

position camera cam,camx#,camy#,camz#

endfunction

Download

Please login to download

Comments

No comments yet.

Author Name:	Image All
CodeBase Entries:	4

CodeBase - Third-Person Camera