SDL::Surface - Graphic surface structure.
+SDL::Surface - Graphic surface structure
The main surface (display) is provided by SDL::Video::set_video_mode. - use SDL; #provides flags & constants - use SDL::Video; #provides access to set_video_mode - use SDL::Surface; #provides access to SDL_Surface struct internals
-SDL::init(SDL_INIT_VIDEO); - my $display = SDL::Video::set_video_mode(); +use SDL; + use SDL::Video; + use SDL::Surface; --All surfaces constructed from now on are attached to the $display. There are two constructors available to do this.
-my $surface = SDL::Surface->new ( ... ); - my $surface2 = SDL::Surface->new_from ( surface, ... ); + # Create the main surface (display) + SDL::init(SDL_INIT_VIDEO); + my $display = SDL::Video::set_video_mode(640, 480, 16, SDL_SWSURFACE); + + # Create other surfaces attached to the $display. + my $surface = SDL::Surface->new(SDL_ASYNCBLIT | SDL_HWSURFACE, 640, 480, 16, 0, 0, 0, 0); + my $surface2 = SDL::Surface->new_from($surface, 100, 100, 8, 0, 0, 0, 0);@@ -71,51 +61,7 @@
The constants are not exported by default. You can export them into your namespace by doing:
-use SDL::Video ':flags'; - --
or
-use SDL::Video ':all'; - --
or access them directly:
-SDL::Video::SDL_SWSURFACE; - --
Available constants: see flags
- -The constructor creates a new surface with the specified parameter values.
-my $surface = SDL::Surface->new( ... ); - -- -
The constructor creates a new surface with the specified parameter values.
-my $surface = SDL::Surface->new_from( $old_surface, ... ); - - - - -- -
Available flags for new() are exported by SDL::Video
+The constants for SDL::Surface belong to SDL::Video, under the export tag of ':surface'.
Stored in the system memory.
+Store in system memory
Stored in video memory
+Store in video memory
my $surface = SDL::Surface->new( + $flags, $width, $height, $depth, $Rmask, $Gmask, $Bmask, $Amask + ); + ++
The constructor creates a new surface with the specified parameter values.
+The four mask values are the bits that the channel will ignore.
+For example, an Rmask of 0xFF will ignore that channel completely, making everything on the surface more green/blue.
my $surface = SDL::Surface->new_from( + $surface, $width, $height, $depth, $Rmask, $Gmask, $Bmask, $Amask + ); + ++
The constructor creates a new surface with the specified parameter values.
+The flags are taken from the specified $surface.
SDL::Surface width are defined at construction. Thus the following is read only.
-my $w = $surface->w; +my $w = $surface->w;+Returns the width of the surface. +SDL::Surface width is defined at construction so this is read-only.
SDL::Surface height are defined at construction. Thus the following is read only.
-my $h = $surface->h; +my $h = $surface->h;+Returns the height of the surface. +SDL::Surface height is defined at construction so this is read-only.
The format of the pixels stored in the surface. See SDL::PixelFormat
my $format = $surface->format;+
The format of the pixels stored in the surface. +See SDL::PixelFormat
my $pitch = $surface->pitch;-
SDL::Surface's scanline length in bytes
- - -To get the surface's clip_rect we the following
-my $clip_rect = SDL::Rect->new(0,0,0,0); - SDL::Video::get_clip_rect($surface, $clip_rect); - --
To set the surface's clip_rect use the following
-my $clip_rect = SDL::Rect->new(2,23,23,542); - SDL::Video::set_clip_rect($surface, $clip_rect); - -+
The scanline length in bytes.
Disclaimer: This can be very slow, it is suitable for creating surfaces one time and not for animations
+Disclaimer: The following methods can be very slow, making them suitable for creating surfaces, but not for animations
$surface->get_pixels( $offset ) +get_pixel
++my $pixel = $surface->get_pixel( $offset )-Returns the current integer value at (surface->pixels)[offset]
+Returns the pixel value for the given
+$offset. +The pixel value depends on current pixel format.Note: For surfaces with a palette (1 byte per pixel) the palette index is returned instead of color values.
set_pixels
@@ -196,36 +160,25 @@$surface->set_pixels( $offset, $value );-Sets the current integer to $value at (surface->pixels)[offset]
- -
sub putpixel
- {
- my($x, $y, $color) = @_;
- my $lineoffset = $y * ($screen->pitch / $depth_in_bytes);
- $screen->set_pixels( $lineoffset+ $x, $color);
- }
+Sets the pixel $value to the given $offset.
+The pixel value must fit the pixel format of the surface.
+Note: For surfaces with a palette (1 byte per pixel) the palette index must be passed instead of color values.
+Example:
+ sub putpixel {
+ my ($x, $y, $color) = @_;
+ $display->set_pixels( $x + $y * $display->w, $color);
+ }
-Note: $depth_in_bytes for 32 is 4, 16 is 2, 8 is 1;
-See also examples/sols/ch02.pl
+See also examples/pixel_operations/sols/ch02.pl!
$surface->get_pixels_ptr(); +my $ptr = $surface->get_pixels_ptr;-Returns the C ptr to this surfaces's pixels
- - - - - - - +Returns a reference to the surface's pixels.