Blitz3D+ Command Reference

SoundReverb ( sound,amount# )

Parameters

sound - sound handle from LoadSound or Load3DSound

amount# - reverb send level from 0 to 1; initially 0

Description

Sets a sound's reverb send level for future plays.

Dry gain stays unchanged: 1 means a full send, not removal of dry sound. Select an environment with AudioReverb. Reverb is a diffuse mono return distributed across output speakers, excluding LFE.

Sound settings affect future plays. Every playback copies its own settings; changing a sound does not change channels already playing. FreeSound does not stop existing channels.

Call InitAudioEffects before the first WAV/Ogg playback. Configuration commands return 1 on success or 0 on failure; use AudioLastError for the reason. Finite numeric values and valid handles are required in Debug and Release. Queries preserve errors unless the query itself fails.

Audio effects process decoded WAV and mono/stereo Ogg at an internal 48 kHz. MIDI uses a separate backend. Sound defaults are copied to independent playing channels. Runtime pause freezes sources, tails and transition time; pausing one channel leaves shared tails running. Event waits service transitions and release completed source resources without ChannelPlaying polling. Lightweight completed handles are retained until program shutdown.

The interactive Audio Playground sample demonstrates the whole effects family together.

Requires Extended mode.

See also: ChannelReverb, AudioReverb, AudioReverbVolume, SoundEcho.

Example

; SoundReverb example. Compile in Extended mode; media ships with Audio Playground.
AppTitle "SoundReverb"
If Not InitAudioEffects() Then RuntimeError AudioLastError$()
Graphics 680,240,0,2
SetBuffer BackBuffer()
sound = LoadSound("../../../samples/audio/media/machine.wav")
If sound = 0 Then RuntimeError "The installed audio sample media is missing."
LoopSound sound
SoundVolume sound,0.25
RequireAudio AudioMasterMeter(True)
RequireAudio AudioGroupMeter(0,True)
message$ = "SoundReverb"
RequireAudio AudioReverb("cave")
RequireAudio SoundReverb(sound,0.6)
channel = PlaySound(sound)
If channel = 0 Then RuntimeError "Unable to play the example sound."

started = MilliSecs()
While KeyDown(1) = False And MilliSecs()-started < 5000

    Cls
    Text 20,20,message
    Text 20,50,"Group 0 peak: " + AudioGroupPeak(0) + "   RMS: " + AudioGroupRMS(0)
    Text 20,80,"Master peak: " + AudioMasterPeak() + "   RMS: " + AudioMasterRMS()
    Text 20,120,"Listen for five seconds, or press Escape to finish."
    Flip
Wend
StopChannel channel
For group = 0 To 3
    RequireAudio AudioGroupClearEffects(group)
Next
Delay 60
FreeSound sound
EndGraphics
End

Function RequireAudio(success)
    If Not success Then RuntimeError AudioLastError$()
End Function

Index