Code archives/Audio/Make Audio example

This code has been declared by its author to be Public Domain code.

Download source code

Make Audio example by Ziltch2004
A simple example of how to make wav files
Include "MakeAudio.bb"

Print "Create Wav in memory"
WavBank=CreateWavBank(6000,22050,16,2 )

Print "Generate Sine and square waves"
Freq# = 14000
amp#= 2000
;CreateSinWav(wavbank,Freq#,amp#,LEFT_CHANNEL)
;CreateSqrWav(wavbank,22000,1000,RIGHT_CHANNEL)
;
CreateSinWav(wavbank,8000,5000,ALL_CHANNELS)

Print "Play Sample"
PlaySoundbank(wavbank ,snd_loop) ; play sample

Print ""
Print "Hit any key to save file"
While GetKey()=0
Wend


BankToFile(wavbank,"SinWave.wav") ; save modified sample
Print "stop sample playing"
StopSoundBank()

Print ""
Print "Hit any key"
While GetKey()=0
Wend
Print "Generate Sine Sweeps"

StartFreq# = 52000
EndFreq#   = 100
CreateSinSweep(wavbank,StartFreq#,EndFreq#,2500,LEFT_CHANNEL)
StartFreq# = 100
EndFreq#   = 52100
CreateSinSweep(wavbank,StartFreq#,EndFreq#,2500,RIGHT_CHANNEL)

Print "Play Sample"
PlaySoundbank(wavbank ,snd_loop)

Print ""
Print "Hit any key to save file"
While GetKey()=0
Wend


BankToFile(wavbank,"SinSweep.wav") ; save modified sample
StopSoundBank() ; stop sample playing

FreeBank wavbank

Print "finished"
Print ""
Print "Hit any key"
While GetKey()=0
Wend
End

Comments

Jürgen2004
Nice piece of work! If you would add a real-time-microfone-access, one could create nice effects with manipulating the output-buffer!


Code Archives Forum