pods::SDLx::Sound(3pm) User Contributed Perl Documentation pods::SDLx::Sound(3pm)

SDLx::Sound - SDL sound extension

Extension

    use SDLx::Sound;
    my $snd = SDLx::Sound->new();
    
    # loads and plays a single sound now
    $snd->play('myfile.wav');
    # load a single file
    $snd->load('theSound.aif');
    # plays it or all loaded files
    $snd->play();
    # more sounds
    my %files = (
        channel_01 => "/my_sound1.wav",
        channel_02 => "/my_sound2.ogg"
    );
    # times sounds bangs
    my %times = (
        channel_01 => 0,      # start
        channel_01 => 1256,   # milliseconds
        channel_02 => 2345
    );
    
    # Load files in channels for realtime play
    $snd->load(%files);
    # sets sound channel_01 loudness
    $snd->loud('channel_01', 80);       # loud at 80%
    $snd->play(%times);                 # play loaded files at times
    $snd->play;                         # play again
    # plays sound channel_01 at 578 milliseconds from now
    $snd->play('channel_01', 578);
    # fades sound 
    $snd->fade('channel_02', 2345, 3456, -20);
    # in a single act do the whole Sound
    my $snd = SDLx::Sound->new(
        files => (
            channel_01 => "/my_sound1.wav",
            channel_02 => "/my_sound2.ogg"
 
        ), 
        loud  => (
            channel_01 => 80,
            channel_02 => 75
        ),
        times => (
            channel_01 => 0,      # start
            channel_01 => 1256,   # milliseconds
            channel_02 => 2345
        ),
        fade  => (
            channel_02 => [2345, 3456, -20]
        )
    )->play();

You can think about the SDLx::Sound at 2 approaches.

Your application will say what the best approach.

In a taste that resembles to perl and to SDL, our SDLx:Sound hooks at SDL::Audio and SDL::Mixer with a graceful and simple interface that can offer to monks a modern perlish way to manage sounds.

An SDLx::Sound object can load sounds from filesystem, play it, adjust this loudness level or stops the sound.

Each sound will play in the next available channel, so it can be handled isolately.

Returns a new instance of SDLx::Sound

 $sdlx_sound->play('file.wav');

Play a file

See "AUTHORS" in SDL.

This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

2024-03-31 perl v5.38.2