sdl::mixer::samples(3pm) [debian man page]

pods::SDL::Mixer::Samples(3pm)				User Contributed Perl Documentation			    pods::SDL::Mixer::Samples(3pm)

NAME

       SDL::Mixer::Samples - functions for loading sound samples

CATEGORY

       Mixer

METHODS

   get_num_chunk_decoders
	my $num_decoders = SDL::Mixer::Samples::get_num_chunk_decoders();

       Returns the number of available decoders.

   get_chunk_decoder
	my $decoder = SDL::Mixer::Samples::get_chunk_decoder( $num_decoder );

       Returns the decoder for the given id.

   load_WAV
	my $mix_chunk = SDL::Mixer::Samples::load_WAV( $file );

       "load_WAV" reads a file and passes it to SDL::Mixer::Samples::load_WAV_RW. SO this is a quick way to load a file into a chunk.

       Example:

	my $chunk = SDL::Mixer::Samples::load_WAV('sample.wav');

	SDL::Mixer::Channels::play_channel(-1, $chunk, -1);
	SDL::delay(2000);

   load_WAV_RW
	my $mix_chunk = SDL::Mixer::Samples::load_WAV_RW( $rwops, $free );

       "load_WAV_RW" is a macro that loads a sound sample from a a block of memory. It supports WAVE-, MOD-, MIDI-, OGG- and MP3 files (sometimes
       depends on compilation options). It accepts two arguments, the first being a RWops object from which to read and the second being a flag to
       free the source memory after loading is complete or not.

       Returns a Mix_Chunk containing the whole sample on success, or "undef" on error.

       Note: Do not reuse the RWops-object for another call to this function!

       Example:

	my $rwops = SDL::RWOps->new_file('sample.wav', 'r');

	my $chunk = SDL::Mixer::Samples::load_WAV_RW($rwops, 0);

	SDL::Mixer::Channels::play_channel(-1, $chunk, -1);
	SDL::delay(2000);

   quick_load_WAV
	SDL::Mixer::Samples::quick_load_WAV( $buf );

       to be documented.

   quick_load_RAW
	SDL::Mixer::Samples::quick_load_RAW( $buf, $len );

       to be documented.

   volume_chunk
	my $volume_before = SDL::Mixer::Samples::volume_chunk( $chunk, $new_volume );

       "volume_chunk" let you set and get the volume of a chunk. When a chunk is created is volume is "MIX_MAX_VOLUME" (128).

       If you pass "-1" as $new_volume you just get its volume without changing it.

AUTHORS

       See "AUTHORS" in SDL.

perl v5.14.2							    2012-05-28					    pods::SDL::Mixer::Samples(3pm)

Check Out this Related Man Page

pods::SDL::Mouse(3pm)					User Contributed Perl Documentation				     pods::SDL::Mouse(3pm)

NAME

       SDL::Mouse - SDL Bindings for the Mouse device

CATEGORY

       Core, Mouse

CONSTANTS

       The constants for SDL::Mouse belong to SDL::Events/SDL::Event, under the export tag of ':state'.

METHODS

   warp_mouse
	SDL::Mouse::warp_mouse( $x, $y );

       Set the position of the mouse cursor (generates a mouse motion event).  Even if the mouse is warped to where it currently is, a mouse
       motion event is generated.

   set_cursor
	SDL::Mouse::set_cursor( $cursor_object );

       Sets the currently active cursor to the specified one.  See SDL::Cursor for details on cursor objects.  If the cursor is currently visible,
       the change will be immediately represented on the display.  "set_cursor()" can be used to force cursor redraw, if this is desired for any
       reason.

   get_cursor
	my $cursor_object = SDL::Mouse::get_cursor;

       Gets the currently active mouse cursor.

   show_cursor
	my $return = SDL::Mouse::show_cursor( $state );

       Toggle whether or not the cursor is shown on the screen.  Passing "SDL_ENABLE" displays the cursor and passing "SDL_DISABLE" hides it.  The
       current state of the mouse cursor can be queried by passing "SDL_QUERY", either "SDL_DISABLE" or "SDL_ENABLE" will be returned.

	use SDL;
	use SDL::Mouse;
	use SDL::Video;
	use SDL::Events ':state'; #For the constants

	SDL::init(SDL_INIT_VIDEO);
	SDL::Video::set_video_mode(640, 480, 16, SDL_SWSURFACE);

	printf("Cursor is %s
", SDL::Mouse::show_cursor(SDL_QUERY) ? 'visible' : 'not visible');

	sleep(3);

	SDL::Mouse::show_cursor(SDL_DISABLE);
	printf("Cursor is %s
", SDL::Mouse::show_cursor(SDL_QUERY) ? 'visible' : 'not visible');

	sleep(3);

	SDL::Mouse::show_cursor(SDL_ENABLE);
	printf("Cursor is %s
", SDL::Mouse::show_cursor(SDL_QUERY) ? 'visible' : 'not visible');

	sleep(3);

SEE ALSO

       SDL::Cursor

AUTHORS

       See "AUTHORS" in SDL.

perl v5.14.2							    2012-05-28						     pods::SDL::Mouse(3pm)

Linux and UNIX Man Pages

sdl::mixer::samples(3pm) [debian man page]

Check Out this Related Man Page