TheGameCreators - CodeBase - Camera Panning Function and Demo

Return to the CodeBase listing

Category: Camera

Version: 1.0

Information

Uploaded: 22nd Jan 2006 11:44

Modified: 29th Jan 2006 11:49

Author: Trek

Summary

Makes the camera pan to a desired position and angle within a desired amount of time.

Full Description

This is another function I recently made for my production-in-progress, Codename Countdown. It enables to to specify a point in 3D space, the desired X, Y, and Z angles for the camera, and the amount of time you want the camera to move to that position and orientation. If you're making side-scroller Super Mario-type game with multiple characters, this function could come in very handy.<br /> <br /> As are all my functions, no credit is necessary but a mention that it was produced by Trek Software (http://roborangers.home.comcast.net/Trek.html) is more than welcome.

DarkBASIC Professional Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

` Initial setup not required for function to work correctly

sync on

sync rate 30

hide mouse

autocam off

color backdrop rgb(100,100,150)

position camera 0,0,0

point camera 0,10,4

`Sample objects also not required for function to work

load object "TV II.x",1

position object 1,-2.6,2.2,5

scale object 1,500,500,500

yrotate object 1,340

xrotate object 1,350

load object "TV II.x",2

position object 2,2.6,2.2,5

scale object 2,500,500,500

yrotate object 2,20

xrotate object 2,350

load object "TV II.x",3

position object 3,-2.6,-2.2,5

scale object 3,500,500,500

yrotate object 3,160

xrotate object 3,160

load object "TV II.x",4

position object 4,2.6,-2.2,5

scale object 4,500,500,500

yrotate object 4,210

xrotate object 4,160

load object "TV II.x",5

position object 5,0,.5,5

scale object 5,820,700,700

xrotate object 5,5

` Calls function in order to set camera in a good view of the main screen.

` The first three variables are the desired X, Y, and Z positions (respectively)

` and the second set of three variables are the desired X, Y, and Z angle variables.

` The last value is the desired time for the movement to take place. For example, if

` the value is 1, the camera will move very rapidly, but if its 10, the panning action

` will be much more slow and smooth.

PanCamera(0,0,2,0,0,0,4)

` Main loop with function calls depending on the key being pressed.

if inkey$()="1" then PanCamera(-1.8,1.4,3.2,-10,-22,0,2)

if inkey$()="2" then PanCamera(1.9,1.4,3.2,-10,20,4,2)

if inkey$()="3" then PanCamera(-1.8,-1.3,3.2,10,-22,0,2)

if inkey$()="4" then PanCamera(1.6,-1.3,3.2,10,28,0,2)

if returnkey()=1 then PanCamera(0,0,2,0,0,0,2)

center text 320,10,"Press 1-4 to view corner screens and Enter to view main."

sync

loop

` Function itself. This is the only part of the code that you MUST include in your source

` in order for the function to work correctly.

function PanCamera(PosX#,PosY#,PosZ#,AngleX#,AngleY#,AngleZ#,Time)

CamX#=camera position x()

CamY#=camera position y()

CamZ#=camera position z()

PointX#=camera angle x()

PointY#=camera angle y()

PointZ#=camera angle z()

if CamX#<PosX# then XAccel#=(PosX#-CamX#)/(Time*10)

if CamY#<PosY# then YAccel#=(PosY#-CamY#)/(Time*10)

if CamZ#<PosZ# then ZAccel#=(PosZ#-CamZ#)/(Time*10)

if CamX#>PosX# then XAccel#=ABS((CamX#-PosX#)/(Time*10))*-1

if CamY#>PosY# then YAccel#=ABS((CamY#-PosY#)/(Time*10))*-1

if CamZ#>PosZ# then ZAccel#=ABS((CamZ#-PosZ#)/(Time*10))*-1

if PointX#<AngleX# then AngleXAccel#=(AngleX#-PointX#)/(Time*10)

if PointY#<AngleY# then AngleYAccel#=(AngleY#-PointY#)/(Time*10)

if PointZ#<AngleZ# then AngleZAccel#=(AngleZ#-PointZ#)/(Time*10)

if PointX#>AngleX# then AngleXAccel#=((PointX#-AngleX#)/(Time*10))*-1

if PointY#>AngleY# then AngleYAccel#=((PointY#-AngleY#)/(Time*10))*-1

if PointZ#>AngleZ# then AngleZAccel#=((PointZ#-AngleZ#)/(Time*10))*-1

for n=1 to (Time*10)

CamX#=CamX#+XAccel#

CamY#=CamY#+YAccel#

CamZ#=CamZ#+ZAccel#

PointX#=PointX#+AngleXAccel#

PointY#=PointY#+AngleYAccel#

PointZ#=PointZ#+AngleZAccel#

position camera CamX#,CamY#,CamZ#

Rotate camera PointX#,PointY#,PointZ#

sync

next n

endfunction

Download

Please login to download

Comments

No comments yet.

Author Name:	Trek
CodeBase Entries:	19

CodeBase - Camera Panning Function and Demo