[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;

SDL::Init(SDL_INIT_AUDIO);

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

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
	11	SDL::Init(SDL_INIT_AUDIO);
	12
	13	my $filename = shift \|\| 'data/sample.wav';
	14
	15	my $mixer = SDL::Mixer->new(
	16	-frequency => 44100,
	17	);
	18	print "Using audio driver: ", SDL::AudioDriverName(), "\n";
	19
	20	my $wave = SDL::Sound->new($filename);
	21
	22	# we don't care what channel, and we only want to play it once
	23	my $channel = $mixer->play_channel( -1, $wave, 0 );
	24
	25	# wait until it has finished playing
	26	while ( $mixer->playing($channel) ) {
	27	SDL::Delay(10);
	28	}
	29