sdl::cd(3pm) [debian man page]

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

NAME

       SDL::CD -- SDL Bindings for structure SDL_CD

CATEGORY

       Core, CDROM, Structure

SYNOPSIS

	use SDL;
	use SDL::CDROM;
	use SDL::CD;

	SDL::init(SDL_INIT_CDROM);

	my $drives = SDL::CDROM::num_drives;

	if( $drives > 0 )
	{
	 my $CD = SDL::CD->new( 0 );

	  if($CD)
	  {
	       ...
	  }

	}

CONSTANTS

       The constants are exported by default. You can avoid this by doing:

	use SDL::CD ();

       and access them directly:

	SDL::CD::CD_TRAYEMPTY;

       or by choosing the export tags below:

       Export tag: ':status'

	CD_TRAYEMPTY
	CD_STOPPED
	CD_PLAYING
	CD_PAUSED
	CD_ERROR

       Export tag: ':defaults'

	CD_FPS
	SDL_MAX_TRACKS

METHOD

   new
	my $CD = SDL::CD->new($drive)

       Makes a new SDL::CD object. Returns "undef" if the drive is busy or inaccessible.

   status
	my $status = $CD->status();

       Returns the current status of the CD tray

       Returns on of the following constants:

       o   CD_TRAYEMPTY

       o   CD_STOPPED

       o   CD_PLAYING

       o   CD_PAUSED

       o   CD_ERROR

   play_tracks
	$CD->play_tracks($start_track, $start_frame, $ntracks, $nframes)

       Plays the given SDL::CD starting at track $start_track, for $ntracks tracks.

       $start_frame is the frame offset, from the beginning of the $start_track, at which to start. $nframes is the frame offset, from the
       beginning of the last track ($start_track+$ntracks), at which to end playing.

       play_tracks() should only be called after calling "status" to get information about the CD.

       Note: Data tracks are ignored.

       Returns 0, or "-1" if there was an error.

   play
	$CD->play($start, $length);

       Plays the given SDL::CD , starting a frame $start for $length frames.

       Returns 0 on success, "-1" on error

   pause
	$CD->pause();

       Pauses play on CD

       Returns 0 on success, or "-1" on an error.

   resume
	$CD->resume();

       Returns 0 on success, or "-1" on an error.

   stop
	$CD->stop();

       Stops play on the CD.

       Returns 0 on success, or "-1" on an error.

   eject
	$CD->eject();

       Ejects the CD.

       Returns 0 on success, or "-1" on an error.

   id
	$CD->id();

       Private drive identifier

   num_tracks
	$CD->num_tracks();

       Number of tracks on the CD

   cur_track
	$CD->cur_track();

       Current track on the CD;

   track
	my $track =  $CD->track($number);

       Retrieves track description of track $number in CD. See SDL::CDTrack.

   FRAMES_TO_MSF
	my ($min, $sec, $fra) = FRAMES_TO_MSF($frames);

       Conversion functions from frames to Minute/Second/Frames

   MSF_TO_FRAMES
	my $frames = MSF_TO_FRAMES($min, $sec, $fra);

SEE ALSO

       SDL::CDROM, SDL::CDTrack

AUTHORS

       See "AUTHORS" in SDL.

perl v5.14.2							    2012-05-28							pods::SDL::CD(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::cd(3pm) [debian man page]

Check Out this Related Man Page