TheGameCreators - CodeBase - Yaw Pitch and Roll

Return to the CodeBase listing

Category: 3D Maths

Version: 1.0

Information

Uploaded: 25th Jan 2008 22:41

Modified: 27th Jan 2008 14:45

Author: sneaky smith12

Summary

Yaw Pitch and Roll, working example! No media, and works with DBC too I believe.

Full Description

This covers the three main movements an aerial vehicle can make. They are yaw, pitch, and roll. It will also cover acceleration and deceleration.<br /> <br /> Yaw changes the left or right movement.<br /> Pitch tilts the vehicle up or down.<br /> Roll tilts the vehicle left or right.

DarkBASIC Professional Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

`I found this somewhere else. Surprised it wasn't in the codebase ;)

`I'm nice enough to add it though, however I did modify the keys used as I was really

`disgruntled with them :P

cls

make matrix 1,10000,10000,45,45

position matrix 0,0,0

objnum = 1

size = 20

make object cube objnum,size

position object objnum,0,200,0

gosub controls

Loop

controls:

`Changes the acceleration

if upkey()=1 then power#=power#+.15

if downkey()=1 then power#=power# -.2

`Changes the roll

if inkey$() = "d" then rollstep#=rollstep#+.4

if inkey$() = "a"  then rollstep#=rollstep#-.4

`Changes the pitch

if inkey$() = "w" then pitchstep#=pitchstep#+.2

if inkey$() = "s" then pitchstep#=pitchstep#-.2

`Changes the yaw

if inkey$()="e" then rudder#=rudder#+.1

if inkey$()="q" then rudder#=rudder#-.1

gosub flightmaths

return

flightmaths:

if power#>15 then power#=15

if power#<0 then power#=0

rollstep#=rollstep#*.9

roll object right objnum,rollstep#

pitchstep#=pitchstep#*.9

pitch object up objnum, pitchstep#

alt#=object position y(objnum)

turn object right objnum,90

move object objnum,1

sineroll#= object position y(objnum) -alt#

move object objnum, -1

turn object left objnum, 90

turn object left objnum, sineroll#

if sinroll#<0 then cotilt#=(1+sineroll#)*-1 else cotilt#=1-sineroll#

pitch object up objnum, (abs(sineroll#) - abs(sineroll#*cotilt#))

rudder#=rudder#*.9

turn object right objnum,rudder#

move object objnum,1

truepitch#= alt# -object position y(objnum)

move object objnum, -1

gravity#=truepitch#*2

if speed#<2.5 and truepitch#<.3 then pitch object down objnum,.15

coefdrag#=.05

drag#=coefdrag#*speed#*speed#

speed#=speed#+gravity# + power#-drag#

if speed#<1 then speed#= 1

move object objnum,speed#

return

Download

Please login to download

Comments

No comments yet.

Author Name:	sneaky smith12
CodeBase Entries:	4

CodeBase - Yaw Pitch and Roll