[sdlgit/SDL_perl.git] / test / wave.pl

#!/usr/bin/env perl
#
# This example plays a .WAV sound sample
#
use strict;
use warnings;
use SDL;
use SDL::Mixer;
use SDL::Sound;

my $filename = shift || 'data/sample.wav';

# we want a frequency that is higher than the default
my $mixer = SDL::Mixer->new(
    -frequency => 44100,
);
print "Using audio driver: ", SDL::AudioDriverName(), "\n";

my $wave = SDL::Sound->new($filename);

# we don't care what channel, and we only want to play it once
my $channel = $mixer->play_channel( -1, $wave, 0 );

# wait until it has finished playing
while ( $mixer->playing($channel) ) {
    SDL::Delay(10);
}
Commit	Line	Data
71dfa2cb	1	#!/usr/bin/env perl
	2	#
	3	# This example plays a .WAV sound sample
	4	#
	5	use strict;
	6	use warnings;
	7	use SDL;
	8	use SDL::Mixer;
	9	use SDL::Sound;
	10
71dfa2cb	11	my $filename = shift \|\| 'data/sample.wav';
71dfa2cb	12
061fcbaa	13	# we want a frequency that is higher than the default
71dfa2cb	14	my $mixer = SDL::Mixer->new(
	15	-frequency => 44100,
	16	);
	17	print "Using audio driver: ", SDL::AudioDriverName(), "\n";
	18
	19	my $wave = SDL::Sound->new($filename);
	20
	21	# we don't care what channel, and we only want to play it once
	22	my $channel = $mixer->play_channel( -1, $wave, 0 );
	23
	24	# wait until it has finished playing
	25	while ( $mixer->playing($channel) ) {
	26	SDL::Delay(10);
	27	}
	28