<li><a href="#GetAudioStatus">GetAudioStatus </a></li>
<li><a href="#load_WAV">load_WAV </a></li>
<li><a href="#free_WAV">free_WAV </a></li>
-<li><a href="#convert_audio">convert_audio</a></li>
+<li><a href="#convert">convert</a></li>
<li><a href="#MixAudio">MixAudio </a></li>
<li><a href="#lock">lock</a></li>
<li><a href="#unlock">unlock</a></li>
<p>Frees previously opened WAV data</p>
</div>
-<h2 id="convert_audio">convert_audio</h2>
-<div id="convert_audio_CONTENT">
-<pre> SDL::Audio->convert_audio( cvt, data, len )
+<h2 id="convert">convert</h2>
+<div id="convert_CONTENT">
+<pre> SDL::Audio->convert( cvt, data, len )
</pre>
<p>Converts audio data to a desired audio format.</p>
use SDL::AudioSpec;
use SDL::AudioCVT;
+ SDL::init(SDL_INIT_AUDIO);
+
# Converting some WAV data to hardware format
my $desired = SDL::AudioSpec->new();
$desired->samples(8192);
# Open the audio device
- if( SDL::Audio::open_audio($desired, $obtained) < 0 )
+ if( SDL::Audio::open($desired, $obtained) < 0 )
{
printf( STDERR "Couldn't open audio: %s\n", SDL::get_error() );
exit(-1);
}
# Load the test.wav
- my $wav_ref = SDL::Audio::load_wav('C:/SDL_perl/test/data/sample.wav', $obtained);
+ my $wav_ref = SDL::Audio::load_wav('../../test/data/sample.wav', $obtained);
unless( $wav_ref )
{
- printf( STDERR "Could not open sample.wav: %s\n", SDL::get_error() );
+ warn("Could not open sample.wav: %s\n", SDL::get_error() );
SDL::Audio::close_audio();
+ SDL::quit;
exit(-1);
}
$obtained->format, $obtained->channels, $obtained->freq);
# Check that the convert was built
- unless( $wav_cvt )
+ if( $wav_cvt == -1 )
{
- printf( STDERR "Couldn't build converter!\n" );
- SDL::Audio::close_audio();
+ warn("Couldn't build converter!\n" );
+ SDL::Audio::close();
SDL::Audio::free_wav($wav_buf);
+ SDL::quit();
+ exit(-1);
}
# And now we're ready to convert
- SDL::Audio::convert_audio($wav_cvt, $wav_buf, $wav_len);
+ SDL::Audio::convert($wav_cvt, $wav_buf, $wav_len);
+
+
- # We can delete to original WAV data now
+
+ # We can freeto original WAV data now
SDL::Audio::free_wav($wav_buf);
+
+
+
+
+
+
</pre>
<p><strong>TODO</strong>: What to do with it? How to use callback? See http://www.libsdl.org/cgi/docwiki.cgi/SDL_ConvertAudio</p>