2nd June 2007, 1:04 PM
This may be off use to you OB1:
[indent]'PseudoCode
Dim sound engine as phantom sound
Phantom Sound.Initalize
Phantom Sound.Start Engine
'Main Program Idle Loop
'Run Once
Dim Sound Object 1 = Phantom sound.create layer("Background Music.wav",loop)
sound object1.x = 100
sound object1.y = 100
sound object1.z = 100
sound object1.play
'Run Random
Dim Sound Object 2 = Phantom sound.create layer("bird1.wav", noloop)
sound object2.x = 100
sound object2.y = 100
sound object2.z = 200
sound object2.play
Dim Sound Object 3 = Phantom sound.create layer("bird2.wav", noloop)
sound object3.x = 100
sound object3.y = 100
sound object3.z = 200
sound object3.play
'On Shut Down
Phantom Sound.Stop Engine
Phantom Sound.Distroy
[/indent]
- Unlimited Number of sound layers
- All layers dynamically rendered on a 3 dimensional sound scape in real time.
- Simply start the engine, tag sound objects to in game objects, and update sound object x / y / z coordinates from time to time, the engine automatically adjusts and calculates the new sound wave form and outputs the changes in preserving the mixtures of layers in real time.
- Supports Dolby 5.1 and Simulated Stereo surround sound.
- Extremely easy to use and implement.
- Supports Wave files for easy setup.
[indent]'PseudoCode
Dim sound engine as phantom sound
Phantom Sound.Initalize
Phantom Sound.Start Engine
'Main Program Idle Loop
'Run Once
Dim Sound Object 1 = Phantom sound.create layer("Background Music.wav",loop)
sound object1.x = 100
sound object1.y = 100
sound object1.z = 100
sound object1.play
'Run Random
Dim Sound Object 2 = Phantom sound.create layer("bird1.wav", noloop)
sound object2.x = 100
sound object2.y = 100
sound object2.z = 200
sound object2.play
Dim Sound Object 3 = Phantom sound.create layer("bird2.wav", noloop)
sound object3.x = 100
sound object3.y = 100
sound object3.z = 200
sound object3.play
'On Shut Down
Phantom Sound.Stop Engine
Phantom Sound.Distroy
[/indent]