TheGameCreators - CodeBase - 3d sound example, with explanations

Return to the CodeBase listing

Category: Sound / Music

Version: 1.0

Information

Uploaded: 11th Sep 2005 02:57

Modified: 13th Sep 2005 03:03

Author: Captain Taco

Summary

An example/tutorialish of 3d sounds, how to position them, the listener, and move the listener about

Full Description

DarkBASIC Professional Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

remstart

written by Mr. Rob Howes aka Captain Taco

when you use this program, close your eyes, and visualize the fountain (starts in right ear)

and the drain (starts in left ear).  notice how you can see the picture, and watch it move as

you move your character, no 3d environment was included in this program so it is easier to

learn the basics.

remend

` this is actually just an improved version of a tutorial out of

` the "beginner's guide to darkbasic"

` Loading the 3d sound effect

LOAD 3DSOUND "datasoundsfountain loop.wav", 6

load 3dsound "datasoundssewer loop.wav", 7

` positions the sound, if you can't visualise this, use cartography shop and put

` boxes in the cordinants of the sounds include yourself in this visual representation

` the position sound variables are as follows, soundnumber,xpos,ypos,zpos

` if you look in cartography shop notice the z plane, you'll be rotating the box (you)

` left and right on that plane

` first sound will be put to the left of the listener

POSITION SOUND 6, 100,0,10

` second sound to the right

position sound 7, 500,0,10

` now, put the listener in the middle of the two

POSITION LISTENER 300,0,10

` Play the sounds continuously

LOOP SOUND 6

LOOP SOUND 7

`define variables

`zang is in short, your z angle... z ang... zang, it is a variable so you can change direction later

zang = 0

ypos = 0

`set sync on

sync on

`set a decent sync rate so you don't spin so fast your head flies off

sync rate 60

`start main loop

cls

`use left and right to turn left or right in the 3d room

`notice the use of zang (z angle variable)

if leftkey() = 1 then zang=zang+1

if rightkey() = 1 then zang=zang-1

if upkey() = 1 then ypos=ypos+1

if downkey()=1 then ypos=ypos-1

` time to specify your rotation, notice again the use of zang your z angle,

` this time zang lives up to it's name, and as it changes so will z angle in

` the rotate listener comand

ROTATE LISTENER 0,0,zang

position listener 300,ypos,10

` this will print the corodinants of the listener

` Locate The X angle of the listener

tempstring$ = "Listener X angle = "+STR$(LISTENER ANGLE X())

text 20,20, tempstring$;

` Locate The Y angle of the listener

tempstring$ = " Y angle = "+STR$(LISTENER ANGLE Y())

text 85,40, tempstring$;

` Locate The Z angle of the listener

tempstring$ = " Z angle = "+STR$(LISTENER ANGLE Z())

text 85,60, tempstring$

tempstring$ = " x pos = "+STR$(LISTENER position x())

text 85,80, tempstring$

tempstring$ = " y pos = "+STR$(LISTENER position y())

text 85,90, tempstring$

tempstring$ = " z pos = "+STR$(LISTENER position z())

text 85,100, tempstring$

` although darkbasic continues to rotate after 360 (in short 360 is the equiv. to 0)

` I prefer not to reach the thousands when spinning in circles... therefor when 360

` is reached, this will reset the angle back to 0, to keep the numbers manigable.

if zang = 360 then zang = 0

if zang = -1 then zang = 359

`and end if escape key is hit

if escapekey()= 1 then end

sync

loop

`well, most of that was in absolute lamens terms, but it elliminates all confusion... and

`yes, i know my spelling is bad, thats why i'm in programming, it's logic... not writing!

Download

Please login to download

Comments

No comments yet.

Author Name:	Captain Taco
CodeBase Entries:	1

CodeBase - 3d sound example, with explanations