#!/usr/bin/perl 
#==========================================================================
#
#         FILE:  SDLx_Sound.pl
#
#        USAGE:  ./examples/SDLx_Sound.pl  
#                  
#
#  DESCRIPTION:  Sound tests
#                A SDLx::Sound can play, pause, resume and stop
#
#      OPTIONS:  ---
# REQUIREMENTS:  ---
#         BUGS:  ---
#        NOTES:  ---
#       AUTHOR:  Ricardo Filipo (rf), ricardo.filipo@gmail.com
#      COMPANY:  Mito-Lógica design e soluções de comunicação ltda
#      VERSION:  1.0
#      CREATED:  16-08-2010 21:47:33
#     REVISION:  ---
#==========================================================================

use strict;
use warnings;

use lib 'lib';
use SDL;
use SDLx::Sound;
use SDLx::App;
use SDL::Event;
use SDL::Events; 

my $app = SDLx::App->new(
		height => 120,
		width  => 480,
		depth  => 16,
		title  => 'Sound example',
		);
my $snd = SDLx::Sound->new();

# load and play a sound
my $play = $snd->play('test/data/sample.wav');

# pause or resume on keydown 
$app->add_event_handler( sub{
		my $e = $_[0];
		$_[1]->stop() if $e->type == SDL_QUIT;
		if( $e->type == SDL_KEYDOWN )
		{ 
		print "Ai\n"; 
		if($play){
		$snd->pause;
		$play=0;
		}else{
		$snd->resume;
		$play=1;
		} 
		}    
		} );

$app->run();