/usr/lib/perl5/pods/SDL/Cursor.pod is in libsdl-perl 2.540-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 | =pod
=head1 NAME
SDL::Cursor - Mouse cursor structure
=head1 CATEGORY
Core, Mouse, Structure
=head1 SYNOPSIS
my $cursor = SDL::Cursor->new(
\@data,
\@mask,
$width,
$height,
$hotspot_left,
$hotspot_top
);
SDL::Mouse::set_cursor($cursor);
=head1 DESCRIPTION
The C<SDL::Cursor> module handles mouse cursors, and allows the developer to use custom-made cursors.
Note that cursors can only be in black and white.
=head1 METHODS
=head2 new
my $cursor = SDL::Cursor->new(
\@data, \@mask, $width, $height, $hotspot_left, $hotspot_top
);
Create a cursor using the specified data and mask (in MSB format).
The cursor is created in black and white according to the following:
Data / Mask Resulting pixel on screen
0 / 1 White
1 / 1 Black
0 / 0 Transparent
1 / 0 Inverted color if possible, black if not.
If you want to have color cursor, then this function is not for you.
Instead, you should hide the cursor with C<SDL::Mouse::show_cursor(SDL_DISABLE)>.
Then in your main loop, when you draw graphics, draw a C<SDL::Surface> at the location of the mouse cursor.
Example:
use SDL;
use SDL::Video;
use SDL::Mouse;
use SDL::Cursor;
SDL::init(SDL_INIT_VIDEO);
SDL::Video::set_video_mode(640, 480, 16, SDL_SWSURFACE);
my @data = (
0b00000000,
0b00111100,
0b01111110,
0b01111110,
0b01111110,
0b01111110,
0b00111100,
0b00000000
);
my @mask = (
0b00111100,
0b01111110,
0b11100111,
0b11000011,
0b11000011,
0b11100111,
0b01111110,
0b00111100
);
my $cursor = SDL::Cursor->new(\@data, \@mask, 8, 8, 0, 0);
sleep(1);
SDL::Mouse::set_cursor($cursor);
sleep(5);
The width of cursors work in groups of 8.
If the width is above 8, twice the amount of elements in C<@data> and C<@mask> are required.
If the width is above 16, three times are required, and so on.
For example, if you wanted a 9 pixel crosshair you might do the following:
my @data = (
0b00001000,0b00000000,
0b00001000,0b00000000,
0b00001000,0b00000000,
0b00001000,0b00000000,
0b11111111,0b10000000,
0b00001000,0b00000000,
0b00001000,0b00000000,
0b00001000,0b00000000,
0b00001000,0b00000000,
);
my @mask = @data;
my $cursor = SDL::Cursor->new(\@data, \@mask, 9, 9, 4, 4);
The hotspot is offset by 4 pixels because a crosshair clicks from the center instead of the top left.
=head1 AUTHORS
See L<SDL/AUTHORS>.
=head1 SEE ALSO
L<perl> L<SDL::Mouse>
=cut
|