my $music = SDL::Mixer::Music::load_MUS( $file );-
load_MUS loads a music file into a SDL::Music::MixMusic structure. This can be passed to play_music.
load_MUS loads a music file into a SDL::Mixer::MixMusic structure. This can be passed to play_music (play_music in SDL::Mixer::Music).
SDL::Mixer::Music::hook_music( $callback, $position ); - or - - SDL::Mixer::Music::hook_music( &callback, $position ); -
This sets up a custom music player function, so you can pass your own audio stream data into the SDL::Mixer.
The function will be called with position passed into the first parameter when the callback is called.
@@ -66,10 +62,10 @@ The music player will then be called automatically when the mixer needs it. Musi
All the music playing and stopping functions have no effect on music after this. Pause and resume will work.
Using a custom music player and the internal music player is not possible, the custom music player takes priority.
To stop the custom music player call hook_music() without arguments.
Note: NEVER call SDL::Mixer functions, nor SDL::Audio::lock, from a callback function.
Note: NEVER call SDL::Mixer functions, nor SDL::Audio::lock (lock in SDL::Audio), from a callback function.
Note: At program termination also call SDL::Mixer::Music::hook_music() to stop this callback.
Example:
- my $callback = sub
+ sub callback
{
my $position = shift; # position (first time its 0, on each call $length is added)
my $length = shift; # length of bytes we have to put in stream
@@ -83,26 +79,30 @@ Using a custom music player and the internal music player is not possible, the c
}
return @stream;
- };
+ }
- SDL::Mixer::Music::hook_music( $callback, 0 );
+ SDL::Mixer::Music::hook_music( 'main::callback', 0 );
SDL::Mixer::Music::hook_music_finished( $callback ); +SDL::Mixer::Music::hook_music_finished( 'main::callback' );-This callback is called when music called by e.g. play_music or fade_in_music stops naturally. This happens when the music is over or is -fading out.
-Note: If you play music via hook_music, this callback will never be called.
+This callback is called when music called by e.g. SDL::Mixer::Music::play_music or SDL::Mixer::Music::fade_in_music stops naturally. +This happens when the music is over or is fading out.
+Note: If you play music via SDL::Mixer::Music::hook_music, this callback will never be called.
Example:
my $music_is_playing = 0; my @music = qw(first.mp3 next.mp3 other.mp3 last.mp3); - my $callback = sub{ $music_is_playing = 0; }; - SDL::Mixer::Music::hook_music_finished( $callback ); + sub callback + { + $music_is_playing = 0; + } + + SDL::Mixer::Music::hook_music_finished( 'main::callback' ); foreach my $this_song ( @music ) { @@ -122,7 +122,7 @@ fading out.my $position = SDL::Mixer::Music::get_music_hook_data();-Returns the
+position(first) parameter that will be passed to hook_music's callback.Returns the
position(first) parameter that will be passed to SDL::Mixer::Music::hook_music's callback.
$loops will loop the music infinitely.
my $music = SDL::Mixer::Music::fade_in_music( $mix_music, $loops, $ms );-
Same as play_music but you can specify the fade-in time by $ms.
Same as SDL::Mixer::Music::play_music but you can specify the fade-in time by $ms.
Jumps to position seconds from the current position in the stream. -So you may want to call rewind_music before this. +So you may want to call SDL::Mixer::Music::rewind_music before this. Does not go in reverse... negative values do nothing.
-Returns: 0 on success, or -1 if the codec doesn't support this function.
Returns: 0 on success, or -1 if the codec doesn't support this function.
my $paused = SDL::Mixer::Music::paused_music();-
Returns 1 if the music is paused, otherwise 0.
Returns 1 if the music is paused, otherwise 0.
my $playing_music = SDL::Mixer::Music::playing_music();-
Returns 1 if the music is playing sound, otherwise 0. It does'nt check if the music is paused.
Returns 1 if the music is playing sound, otherwise 0. It does'nt check if the music is paused.