3 <h3 id="TOP">Index</h3>
5 <ul><li><a href="#NAME">NAME</a></li>
6 <li><a href="#CATEGORY">CATEGORY</a></li>
7 <li><a href="#SYNOPSIS">SYNOPSIS</a></li>
8 <li><a href="#CONSTANTS">CONSTANTS</a></li>
9 <li><a href="#Core_Functions">Core Functions</a>
10 <ul><li><a href="#get_video_surface">get_video_surface</a></li>
11 <li><a href="#get_video_info">get_video_info</a></li>
12 <li><a href="#video_driver_name">video_driver_name</a></li>
13 <li><a href="#list_modes">list_modes</a></li>
14 <li><a href="#video_mode_ok">video_mode_ok</a></li>
15 <li><a href="#set_video_mode">set_video_mode</a>
16 <ul><li><a href="#List_of_avalaibles_flags">List of avalaibles flags</a></li>
19 <li><a href="#convert_surface">convert_surface</a></li>
20 <li><a href="#display_format">display_format</a></li>
21 <li><a href="#display_format_alpha">display_format_alpha</a></li>
22 <li><a href="#load_BMP">load_BMP</a></li>
23 <li><a href="#save_BMP">save_BMP</a></li>
24 <li><a href="#set_color_key">set_color_key</a></li>
25 <li><a href="#set_alpha">set_alpha</a></li>
26 <li><a href="#fill_rect">fill_rect</a></li>
29 <li><a href="#Surface_Locking_and_Unlocking">Surface Locking and Unlocking</a>
30 <ul><li><a href="#lock_surface">lock_surface</a></li>
31 <li><a href="#unlock_surface">unlock_surface</a></li>
32 <li><a href="#MUSTLOCK">MUSTLOCK</a></li>
35 <li><a href="#Screen_Updating_Functions">Screen Updating Functions</a>
36 <ul><li><a href="#set_clip_rect">set_clip_rect</a></li>
37 <li><a href="#get_clip_rect">get_clip_rect</a></li>
38 <li><a href="#blit_surface">blit_surface</a></li>
39 <li><a href="#update_rect">update_rect</a></li>
40 <li><a href="#update_rects">update_rects</a></li>
41 <li><a href="#flip">flip</a></li>
44 <li><a href="#Palette_Color_and_Pixel_Functions">Palette, Color and Pixel Functions</a>
45 <ul><li><a href="#set_colors">set_colors</a></li>
46 <li><a href="#set_palette">set_palette</a></li>
47 <li><a href="#set_gamma">set_gamma</a></li>
48 <li><a href="#get_gamma_ramp">get_gamma_ramp</a></li>
49 <li><a href="#set_gamma_ramp">set_gamma_ramp</a></li>
50 <li><a href="#map_RGB">map_RGB</a></li>
51 <li><a href="#map_RGBA">map_RGBA</a></li>
52 <li><a href="#get_RGB">get_RGB</a></li>
53 <li><a href="#get_RGBA">get_RGBA</a></li>
56 <li><a href="#GL_Methods">GL Methods</a>
57 <ul><li><a href="#GL_load_library">GL_load_library</a></li>
58 <li><a href="#GL_get_proc_address">GL_get_proc_address</a></li>
59 <li><a href="#GL_get_attribute">GL_get_attribute</a></li>
60 <li><a href="#GL_set_attribute">GL_set_attribute</a></li>
61 <li><a href="#GL_swap_buffers">GL_swap_buffers</a></li>
64 <li><a href="#Video_Overlay_Functions">Video Overlay Functions</a>
65 <ul><li><a href="#lock_YUV_overlay">lock_YUV_overlay</a></li>
66 <li><a href="#unlock_YUV_overlay">unlock_YUV_overlay</a></li>
67 <li><a href="#display_YUV_overlay">display_YUV_overlay</a></li>
70 <li><a href="#Window_Management_Functions">Window Management Functions</a>
71 <ul><li><a href="#wm_set_caption">wm_set_caption</a></li>
72 <li><a href="#wm_get_caption">wm_get_caption</a></li>
73 <li><a href="#wm_set_icon">wm_set_icon</a></li>
74 <li><a href="#wm_grab_input">wm_grab_input</a></li>
75 <li><a href="#wm_iconify_window">wm_iconify_window</a></li>
76 <li><a href="#wm_toggle_fullscreen">wm_toggle_fullscreen</a></li>
79 <li><a href="#AUTHORS">AUTHORS</a></li>
80 <li><a href="#SEE_ALSO">SEE ALSO</a>
81 <ul><li><a href="#Category_Objects">Category Objects</a>
86 <!-- INDEX END --><a href="assets/Video.png" target="_blank"><img src="assets/Video.png" style="height: 160px" alt="Video.png"/></a><a href="assets/Video_lock_surface.png" target="_blank"><img src="assets/Video_lock_surface.png" style="height: 160px" alt="Video_lock_surface.png"/></a><hr />
88 <h1 id="NAME">NAME</h1><p><a href="#TOP" class="toplink">Top</a></p>
89 <div id="NAME_CONTENT">
90 <p>SDL::Video - Bindings to the video category in SDL API</p>
93 <h1 id="CATEGORY">CATEGORY</h1><p><a href="#TOP" class="toplink">Top</a></p>
94 <div id="CATEGORY_CONTENT">
98 <h1 id="SYNOPSIS">SYNOPSIS</h1><p><a href="#TOP" class="toplink">Top</a></p>
99 <div id="SYNOPSIS_CONTENT">
105 # the size of the window box or the screen resolution if fullscreen
106 my $screen_width = 800;
107 my $screen_height = 600;
109 SDL::init(SDL_INIT_VIDEO);
112 my $screen_surface = SDL::Video::set_video_mode($screen_width, $screen_height, 32, SDL_ANYFORMAT);
114 # drawing something somewhere
115 my $mapped_color = SDL::Video::map_RGB($screen_surface->format(), 0, 0, 255); # blue
116 SDL::Video::fill_rect($screen_surface,
117 SDL::Rect->new($screen_width / 4, $screen_height / 4,
118 $screen_width / 2, $screen_height / 2), $mapped_color);
120 # update an area on the screen so its visible
121 SDL::Video::update_rect($screen_surface, 0, 0, $screen_width, $screen_height);
123 sleep(5); # just to have time to see it
130 <h1 id="CONSTANTS">CONSTANTS</h1><p><a href="#TOP" class="toplink">Top</a></p>
131 <div id="CONSTANTS_CONTENT">
132 <p>The constants are exported by default. You can avoid this by doing:</p>
133 <pre> use SDL::Video ();
136 <p>and access them directly:</p>
137 <pre> SDL::Video::SDL_SWSURFACE;
140 <p>or by choosing the export tags below:</p>
141 <p>Export tag: ':surface'</p>
142 <pre> SDL_ASYNCBLIT Use asynchronous blit if possible
143 SDL_SWSURFACE Stored in the system memory.
144 SDL_HWSURFACE Stored in video memory
147 <p>Export tag: ':video'</p>
148 <pre> SDL_ANYFORMAT Allow any pixel-format
149 SDL_HWPALETTE Have an exclusive palette
150 SDL_DOUBLEBUF Double buffered
151 SDL_FULLSCREEN Full screen surface
152 SDL_OPENGL Have an OpenGL context
153 SDL_OPENGLBLIT Support OpenGL blitting.
154 NOTE: This option is kept for compatibility only, and is not recommended for new code.
155 SDL_RESIZABLE Resizable surface
156 SDL_NOFRAME No window caption or edge frame
157 SDL_HWACCEL Use Hardware acceleration blit
158 SDL_SRCCOLORKEY Use colorkey blitting
159 SDL_RLEACCELOK Private flag
160 SDL_RLEACCEL Accelerated colorkey blitting with RLE
161 SDL_SRCALPHA Use alpha blending blit
162 SDL_PREALLOC Use preallocated memory
165 <p>Export tag ':overlay'</p>
166 <pre> SDL_YV12_OVERLAY Planar mode: Y + V + U (3 planes)
167 SDL_IYUV_OVERLAY Planar mode: Y + U + V (3 planes)
168 SDL_YUY2_OVERLAY Packed mode: Y0+U0+Y1+V0 (1 plane)
169 SDL_UYVY_OVERLAY Packed mode: U0+Y0+V0+Y1 (1 plane)
170 SDL_YVYU_OVERLAY Packed mode: Y0+V0+Y1+U0 (1 plane)
173 <p>Export tag ':palette'</p>
174 <pre> SDL_LOGPAL Logical palette, which controls how blits are mapped to/from the surface
175 SDL_PHYSPAL Physical palette, which controls how pixels look on the screen
178 <p>Export tag ':grab'</p>
182 SDL_GRAB_FULLSCREEN Used interally
185 <p>Export tag ':gl'</p>
186 <pre> SDL_GL_RED_SIZE
194 SDL_GL_ACCUM_RED_SIZE
195 SDL_GL_ACCUM_GREEN_SIZE
196 SDL_GL_ACCUM_BLUE_SIZE
197 SDL_GL_ACCUM_ALPHA_SIZE
199 SDL_GL_MULTISAMPLEBUFFERS
200 SDL_GL_MULTISAMPLESAMPLES
201 SDL_GL_ACCELERATED_VISUAL
207 <h1 id="Core_Functions">Core Functions</h1><p><a href="#TOP" class="toplink">Top</a></p>
208 <div id="Core_Functions_CONTENT">
211 <h2 id="get_video_surface">get_video_surface</h2>
212 <div id="get_video_surface_CONTENT">
213 <pre> my $surface = SDL::Video::get_video_surface();
216 <p>This function returns the current display <a href="SDL-Surface.html">SDL::Surface</a>. If SDL is doing format conversion on the display surface, this
217 function returns the publicly visible surface, not the real video surface.</p>
219 <pre> # somewhere after you set the video mode
220 my $surface = SDL::Video::get_video_surface();
222 printf( "our screen is %d pixels wide and %d pixels high\n", $surface->w, $surface->h );
227 <h2 id="get_video_info">get_video_info</h2>
228 <div id="get_video_info_CONTENT">
229 <pre> my $video_info = SDL::Video::get_video_info();
232 <p>This function returns a read-only <a href="SDL-VideoInfo.html">SDL::VideoInfo</a> containing information about the video hardware. If it is called before
233 <a href="#set_video_mode">SDL::Video::set_video_mode</a>, the <code>vfmt</code> member of the returned structure will contain the pixel
234 format of the <strong>best</strong> video mode. </p>
239 use SDL::PixelFormat;
241 SDL::init(SDL_INIT_VIDEO);
243 my $video_info = SDL::Video::get_video_info();
245 printf( "we can have %dbits per pixel\n", $video_info->vfmt->BitsPerPixel );
252 <h2 id="video_driver_name">video_driver_name</h2>
253 <div id="video_driver_name_CONTENT">
254 <pre> my $driver_name = SDL::Video::video_driver_name();
257 <p>This function will return the name of the initialized video driver up to a maximum of 1024 characters. The driver name is a simple one
258 word identifier like <code>"x11"</code>, <code>"windib"</code> or <code>"directx"</code>.</p>
259 <p><strong>Note</strong>: Some platforms allow selection of the video driver through the <code>SDL_VIDEODRIVER</code> environment variable. </p>
264 SDL::init(SDL_INIT_VIDEO);
266 print SDL::Video::video_driver_name() . "\n";
273 <h2 id="list_modes">list_modes</h2>
274 <div id="list_modes_CONTENT">
275 <pre> my @modes = @{ SDL::Video::list_modes( $pixel_format, $flags ) };
278 <p>Returns a reference to an array:</p>
280 <li>of available screen dimensions (as <code>SDL::Rect</code>'s) for the given format and video flags. </li>
281 <li>with first array element 'all'. In this case you can set all modes. </li>
282 <li>with first array element 'none' if no mode is available.</li>
285 <p><strong>Note</strong>: <list_modes> should be called before the video_mode ist set. Otherwise you will always get 'all'.</p>
290 use SDL::PixelFormat;
293 SDL::init(SDL_INIT_VIDEO);
295 my $video_info = SDL::Video::get_video_info();
297 my @modes = @{ SDL::Video::list_modes($video_info->vfmt, SDL_NOFRAME) };
301 print("available modes:\n");
302 foreach my $mode ( @modes )
304 printf("%d x %d\n", $mode->w, $mode->h );
309 printf("%s video modes available\n", $modes[0]);
317 <h2 id="video_mode_ok">video_mode_ok</h2>
318 <div id="video_mode_ok_CONTENT">
319 <pre> my $bpp_ok = SDL::Video::video_mode_ok( $width, $height, $bpp, $flags );
322 <p>This function is used to check whether the requested mode is supported by the current video device. The arguments passed to this function
323 are the same as those you would pass to <a href="#set_video_mode">SDL::Video::set_video_mode</a>.
324 It returns <code>0</code> if the mode is not supported at all, otherwise the suggested <code>bpp</code>.</p>
329 SDL::init(SDL_INIT_VIDEO);
331 my $video_mode_ok = SDL::Video::video_mode_ok( 800, 600, 32, SDL_SWSURFACE );
333 unless($video_mode_ok)
335 printf( "this video mode is not supported\n" );
343 <h2 id="set_video_mode">set_video_mode</h2>
344 <div id="set_video_mode_CONTENT">
345 <pre> my $surface = SDL::Video::set_video_mode( 800, 600, 32, SDL_SWSURFACE|SDL_DOUBLEBUF|SDL_FULLSCREEN);
348 <p>Sets up a video mode with the specified width, height, bits-per-pixel and flags.
349 <code>set_video_mode</code> returns a <a href="SDL-Surface.html">SDL::Surface</a> on success otherwise it returns undef on error, the error message is retrieved
350 using <code>SDL::get_error</code>.</p>
353 <h3 id="List_of_avalaibles_flags">List of avalaibles flags</h3>
354 <div id="List_of_avalaibles_flags_CONTENT">
356 <dt><code>SDL_SWSURFACE</code></dt>
358 <p>Create the video surface in system memory</p>
360 <dt><code>SDL_HWSURFACE</code></dt>
362 <p>Create the video surface in video memory</p>
364 <dt><code>SDL_ASYNCBLIT</code></dt>
366 <p>Enables the use of asynchronous updates of the display surface.
367 This will usually slow down blitting on single CPU machines, but may provide a speed increase on SMP systems.</p>
369 <dt><code>SDL_ANYFORMAT</code></dt>
371 <p>Normally, if a video surface of the requested bits-per-pixel (bpp) is not available, SDL will emulate one with a shadow surface.
372 Passing <code>SDL_ANYFORMAT</code> prevents this and causes SDL to use the video surface, regardless of its pixel depth.</p>
374 <dt><code>SDL_HWPALETTE</code></dt>
376 <p>Give SDL exclusive palette access. Without this flag you may not always get the colors you request with SDL::set_colors or SDL::set_palette.</p>
378 <dt><code>SDL_DOUBLEBUF</code></dt>
380 <p>Enable hardware double buffering; only valid with <code>SDL_HWSURFACE</code>. Calling <a href="#flip">SDL::Video::flip</a> will flip the buffers and update
382 All drawing will take place on the surface that is not displayed at the moment.
383 If double buffering could not be enabled then <a href="#flip">SDL::Video::flip</a> will just perform a
384 <a href="#update_rect">SDL::Video::update_rect</a> on the entire screen.</p>
386 <dt><code>SDL_FULLSCREEN</code></dt>
388 <p>SDL will attempt to use a fullscreen mode. If a hardware resolution change is not possible (for whatever reason),
389 the next higher resolution will be used and the display window centered on a black background.</p>
391 <dt><code>SDL_OPENGL</code></dt>
393 <p>Create an OpenGL rendering context. You should have previously set OpenGL video attributes with
394 <a href="#GL_set_attribute">SDL::Video::GL_set_attribute</a>.</p>
396 <dt><code>SDL_OPENGLBLIT</code></dt>
398 <p>Create an OpenGL rendering context, like above, but allow normal blitting operations.
399 The screen (2D) surface may have an alpha channel, and SDL::update_rects must be used for updating changes to the screen surface.
400 NOTE: This option is kept for compatibility only, and will be removed in next versions. Is not recommended for new code.</p>
402 <dt><code>SDL_RESIZABLE</code></dt>
404 <p>Create a resizable window.
405 When the window is resized by the user a <code>SDL_VIDEORESIZE</code> event is generated and
406 <a href="#set_video_mode">SDL::Video::set_video_mode</a> can be called again with the new size.</p>
408 <dt><code>SDL_NOFRAME</code></dt>
410 <p>If possible, SDL_NOFRAME causes SDL to create a window with no title bar or frame decoration.
411 Fullscreen modes automatically have this flag set.</p>
414 <p><strong>Note 1</strong>: Use <code>SDL_SWSURFACE</code> if you plan on doing per-pixel manipulations, or blit surfaces with alpha channels, and require a high framerate.
415 When you use hardware surfaces (by passing the flag <code>SDL_HWSURFACE</code> as parameter), SDL copies the surfaces from video memory to system memory
416 when you lock them, and back when you unlock them. This can cause a major performance hit. Be aware that you may request a hardware surface,
417 but receive a software surface because the video driver doesn't support hardware surface. Many platforms can only provide a hardware surface
418 when using <code>SDL_FULLSCREEN</code>. The <code>SDL_HWSURFACE</code> flag is best used when the surfaces you'll be blitting can also be stored in video memory.</p>
419 <p><strong>Note 2</strong>: If you want to control the position on the screen when creating a windowed surface, you may do so by setting the environment
420 variables <code>SDL_VIDEO_CENTERED=center</code> or <code>SDL_VIDEO_WINDOW_POS=x,y</code>. You can also set them via <code>SDL::putenv</code>.</p>
421 <p><strong>Note 3</strong>: This function should be called in the main thread of your application.</p>
422 <p><strong>User note 1</strong>: Some have found that enabling OpenGL attributes like <code>SDL_GL_STENCIL_SIZE</code> (the stencil buffer size) before the video mode has
423 been set causes the application to simply ignore those attributes, while enabling attributes after the video mode has been set works fine.</p>
424 <p><strong>User note 2</strong>: Also note that, in Windows, setting the video mode resets the current OpenGL context. You must execute again the OpenGL
425 initialization code (set the clear color or the shade model, or reload textures, for example) after calling SDL::set_video_mode. In Linux,
426 however, it works fine, and the initialization code only needs to be executed after the first call to
427 <a href="#set_video_mode">SDL::Video::set_video_mode</a> (although there is no harm in executing the initialization code after
428 each call to <a href="#set_video_mode">SDL::Video::set_video_mode</a>, for example for a multiplatform application). </p>
431 <h2 id="convert_surface">convert_surface</h2>
432 <div id="convert_surface_CONTENT">
433 <pre> $converted_surface = SDL::Video::convert_surface( $surface, $format, $flags );
436 <p>Creates a new SDL::surface of the specified <a href="SDL-PixelFormat.html">SDL::PixelFormat</a>, and then copies and maps the given surface to it.
437 It is also useful for making a copy of a surface.</p>
438 <p>The flags parameter is passed to <a href="SDL-Surface.html">SDL::Surface</a><code>->new</code> and has those semantics.
439 This function is used internally by <a href="#display_format">SDL::Video::display_format</a>.
440 This function can only be called after <code>SDL::init</code>. </p>
441 <p>it returns a <a href="SDL-Surface.html">SDL::Surface</a> on success or <code>undef</code> on error.</p>
444 <h2 id="display_format">display_format</h2>
445 <div id="display_format_CONTENT">
446 <pre> $new_surface = SDL::Video::display_format( $surface );
449 <p>This function takes a surface and copies it to a new surface of the pixel format and colors of the video framebuffer, suitable for fast
450 blitting onto the display surface. It calls <a href="#conver_surface">SDL::Video::convert_surface</a>.</p>
451 <p>If you want to take advantage of hardware colorkey or alpha blit acceleration, you should set the colorkey and alpha value before calling
453 <p>If you want an alpha channel, see <code>SDL::Video::display_format_alpha</code>.
455 <p><strong>Note</strong>: Remember to use a different variable for the returned surface, otherwise you have a memory leak, since the original surface isn't freed. </p>
458 <h2 id="display_format_alpha">display_format_alpha</h2>
459 <div id="display_format_alpha_CONTENT">
460 <pre> $new_surface = SDL::Video::display_format_alpha( $surface );
463 <p>This function takes a surface and copies it to a new surface of the pixel format and colors of the video framebuffer plus an alpha channel,
464 suitable for fast blitting onto the display surface. It calls <a href="#convert_surface">SDL::Video::convert_surface</a>.</p>
465 <p>If you want to take advantage of hardware colorkey or alpha blit acceleration, you should set the colorkey and alpha value before calling
467 <p>This function can be used to convert a colorkey to an alpha channel, if the <code>SDL_SRCCOLORKEY</code> flag is set on the surface. The generated
468 surface will then be transparent (alpha=0) where the pixels match the colorkey, and opaque (alpha=255) elsewhere.</p>
469 <p><strong>Note</strong>: The video surface must be initialised using <a href="#set_video_mode">SDL::Video::set_video_mode</a> before this function is called, or it will
473 <h2 id="load_BMP">load_BMP</h2>
474 <div id="load_BMP_CONTENT">
475 <pre> $surface = SDL::Video::load_BMP( $filename );
478 <p>Loads a <a href="SDL-Surface.html">SDL::Surface</a> from a named Windows BMP file.
479 <code>SDL::Video::load_BMP</code> returns a <a href="SDL-Surface.html">SDL::Surface</a> on success or <code>undef</code> on error.</p>
480 <p><strong>Note</strong>: When loading a 24-bit Windows BMP file, pixel data points are loaded as blue, green, red, and NOT red, green, blue (as one might expect). </p>
486 my $screen_width = 640;
487 my $screen_height = 480;
489 SDL::init(SDL_INIT_VIDEO);
491 my $screen = SDL::Video::set_video_mode($screen_width, $screen_height, 32, SDL_SWSURFACE);
493 my $picture = SDL::Video::load_BMP('test.bmp');
495 die(SDL::get_error) unless $picture;
497 my $rect = SDL::Rect->new(0, 0, $screen_width, $screen_height);
499 SDL::Video::blit_surface( $picture, SDL::Rect->new(0, 0, $picture->w, $picture->h),
500 $screen, SDL::Rect->new(0, 0, $screen->w, $screen->h) );
502 SDL::Video::update_rect( $screen, 0, 0, $screen_width, $screen_height );
511 <h2 id="save_BMP">save_BMP</h2>
512 <div id="save_BMP_CONTENT">
513 <pre> $saved_BMP = SDL::Video::save_BMP( $surface, $filename );
516 <p>Saves the given <a href="SDL-Surface.html">SDL::Surface</a> as a Windows BMP file named filename.
517 it returns 0 on success or -1 on error.</p>
520 <h2 id="set_color_key">set_color_key</h2>
521 <div id="set_color_key_CONTENT">
522 <pre> $set_color_key = SDL::Video::set_color_key( $surface, $flag, $key );
525 <p>Sets the color key (transparent pixel) in a blittable surface and enables or disables RLE blit acceleration.</p>
526 <p>RLE acceleration can substantially speed up blitting of images with large horizontal runs of transparent pixels (i.e., pixels that match
528 The key must be of the same pixel format as the surface, <a href="#map_RGB">SDL::Video::map_RGB</a> is often useful for obtaining an acceptable value.
529 If flag is <code>SDL_SRCCOLORKEY</code> then key is the transparent pixel value in the source image of a blit.</p>
530 <p>If <code>flag</code> is OR'd with <code>SDL_RLEACCEL</code> then the surface will be drawn using RLE acceleration when drawn with SDL::Blit_surface.
531 The surface will actually be encoded for RLE acceleration the first time <a href="#blit_surface">SDL::Video::blit_surface</a> or
532 <code>SDL::Video::display_format|/display_format</code> is called on the surface.
533 If <code>flag</code> is <code>0</code>, this function clears any current color key. </p>
534 <p><code>SDL::Video::set_color_key</code> returns <code>0</code> on success or <code>-1</code> on error.</p>
537 <h2 id="set_alpha">set_alpha</h2>
538 <div id="set_alpha_CONTENT">
539 <pre> $set_alpha = SDL::Video::set_alpha( $surface, $flag, $key );
542 <p><code>set_alpha</code> is used for setting the per-surface alpha value and/or enabling and disabling alpha blending.</p>
543 <p>The surface parameter specifies which SDL::surface whose alpha attributes you wish to adjust.
544 flags is used to specify whether alpha blending should be used ( <code>SDL_SRCALPHA</code> ) and whether the surface should use RLE acceleration for
545 blitting ( <code>SDL_RLEACCEL</code> ).
546 flags can be an OR'd combination of these two options, one of these options or <code>0</code>.
547 If <code>SDL_SRCALPHA</code> is not passed as a flag then all alpha information is ignored when blitting the surface.
548 The alpha parameter is the per-surface alpha value; a surface need not have an alpha channel to use per-surface alpha and blitting can
549 still be accelerated with <code>SDL_RLEACCEL</code>.</p>
550 <p><strong>Note</strong>: The per-surface alpha value of 128 is considered a special case and is optimised, so it's much faster than other per-surface values.</p>
551 <p>Alpha affects surface blitting in the following ways: </p>
553 <dt>RGBA->RGB with <code>SDL_SRCALPHA</code></dt>
555 <p>The source is alpha-blended with the destination, using the alpha channel.
556 SDL_SRCCOLORKEY and the per-surface alpha are ignored.</p>
558 <dt>RGBA->RGB without <code>SDL_SRCALPHA</code></dt>
560 <p>The RGB data is copied from the source. The source alpha channel and the per-surface alpha value are ignored.
561 If SDL_SRCCOLORKEY is set, only the pixels not matching the colorkey value are copied.</p>
563 <dt>RGB->RGBA with <code>SDL_SRCALPHA</code></dt>
565 <p>The source is alpha-blended with the destination using the per-surface alpha value.
566 If SDL_SRCCOLORKEY is set, only the pixels not matching the colorkey value are copied.
567 The alpha channel of the copied pixels is set to opaque.</p>
569 <dt>RGB->RGBA without <code>SDL_SRCALPHA</code></dt>
571 <p>The RGB data is copied from the source and the alpha value of the copied pixels is set to opaque.
572 If SDL_SRCCOLORKEY is set, only the pixels not matching the colorkey value are copied.</p>
574 <dt>RGBA->RGBA with <code>SDL_SRCALPHA</code></dt>
576 <p>The source is alpha-blended with the destination using the source alpha channel.
577 The alpha channel in the destination surface is left untouched. SDL_SRCCOLORKEY is ignored.</p>
579 <dt>RGBA->RGBA without <code>SDL_SRCALPHA</code></dt>
581 <p>The RGBA data is copied to the destination surface.
582 If SDL_SRCCOLORKEY is set, only the pixels not matching the colorkey value are copied.</p>
584 <dt>RGB->RGB with <code>SDL_SRCALPHA</code></dt>
586 <p>The source is alpha-blended with the destination using the per-surface alpha value.
587 If SDL_SRCCOLORKEY is set, only the pixels not matching the colorkey value are copied.</p>
589 <dt>RGB->RGB without <code>SDL_SRCALPHA</code></dt>
591 <p>The RGB data is copied from the source.
592 If SDL_SRCCOLORKEY is set, only the pixels not matching the colorkey value are copied.</p>
595 <p><strong>Note</strong>: When blitting, the presence or absence of <code>SDL_SRCALPHA</code> is relevant only on the source surface, not the destination.
596 <strong>Note</strong>: Note that RGBA->RGBA blits (with <code>SDL_SRCALPHA</code> set) keep the alpha of the destination surface. This means that you cannot compose
597 two arbitrary RGBA surfaces this way and get the result you would expect from "overlaying" them; the destination alpha will work as a mask.</p>
598 <p><strong>Note</strong>: Also note that per-pixel and per-surface alpha cannot be combined; the per-pixel alpha is always used if available. </p>
599 <p><code>SDL::Video::set_alpha</code> returns <code>0</code> on success or <code>-1</code> on error.</p>
602 <h2 id="fill_rect">fill_rect</h2>
603 <div id="fill_rect_CONTENT">
604 <pre> $fill_rect = SDL::Video::fill_rect( $dest, $dest_rect, $pixel );
607 <p>This function performs a fast fill of the given <a href="SDL-Rect.html">SDL::Rect</a> with the given <a href="SDL-PixelFormat.html">SDL::PixelFormat</a>. If dest_rect is NULL, the whole surface
608 will be filled with color.</p>
609 <p>The color should be a pixel of the format used by the surface, and can be generated by the <a href="#map_RGB">SDL::Video::map_RGB</a> or
610 <code>SDL::Video::map_RGBA|/map_RGBA</code> functions. If the color value contains an alpha value then the destination is simply "filled" with that
611 alpha information, no blending takes place.</p>
612 <p>If there is a clip rectangle set on the destination (set via <a href="#set_clip_rect">SDL::Video::set_clip_rect</a>), then this function will clip based
613 on the intersection of the clip rectangle and the dstrect rectangle, and the dstrect rectangle will be modified to represent the area actually
615 <p>If you call this on the video surface (ie: the value of <a href="#get_video_surface">SDL::Video::get_video_surface</a>) you may have to update the video
616 surface to see the result. This can happen if you are using a shadowed surface that is not double buffered in Windows XP using build 1.2.9. </p>
617 <p><code>SDL::Video::fill_rect</code> returns <code>0</code> on success or <code>-1</code> on error.</p>
618 <p>for an example see <a href="#SYNOPSIS">SYNOPSIS</a>.</p>
621 <h1 id="Surface_Locking_and_Unlocking">Surface Locking and Unlocking</h1><p><a href="#TOP" class="toplink">Top</a></p>
622 <div id="Surface_Locking_and_Unlocking_CONTEN">
625 <h2 id="lock_surface">lock_surface</h2>
626 <div id="lock_surface_CONTENT">
627 <pre> int SDL::Video::lock_surface( $surface );
630 <p><code>SDL::Video::lock_surface</code> sets up the given <a href="SDL-Surface.html">SDL::Surface</a> for directly accessing the pixels.
631 Between calls to SDL::lock_surface and SDL::unlock_surface, you can write to ( <code>surface-</code>set_pixels>) and read from ( <code>surface-</code>get_pixels> ),
632 using the pixel format stored in <code>surface-</code>format>.
633 Once you are done accessing the surface, you should use <a href="#unlock_surface">SDL::Video::unlock_surface</a> to release the lock.</p>
634 <p>Not all surfaces require locking. If <a href="#MUSTLOCK">SDL::Video::MUSTLOCK</a> evaluates to <code>0</code>, then reading and writing pixels to the surface can
635 be performed at any time, and the pixel format of the surface will not change.
636 No operating system or library calls should be made between the lock/unlock pairs, as critical system locks may be held during this time.
637 <code>SDL::Video::lock_surface</code> returns <code>0</code> on success or <code>-1</code> on error.</p>
638 <p><strong>Note</strong>: Since SDL 1.1.8, the surface locks are recursive. This means that you can lock a surface multiple times, but each lock must have
639 a matching unlock.</p>
654 my($x, $y, $color) = @_;
655 my $lineoffset = $y * ($screen->pitch / 4);
656 $screen->set_pixels( $lineoffset+ $x, $color);
661 if( SDL::Video::MUSTLOCK( $screen) )
663 return if (SDL::Video::lock_surface( $screen ) < 0)
666 my $ticks = SDL::get_ticks();
667 my ($i, $y, $yofs, $ofs) = (0,0,0,0);
668 for ($i = 0; $i < 480; $i++)
670 for (my $j = 0, $ofs = $yofs; $j < 640; $j++, $ofs++)
672 $screen->set_pixels( $ofs, ( $i * $i + $j * $j + $ticks ) );
674 $yofs += $screen->pitch / 4;
677 putpixel(10, 10, 0xff0000);
678 putpixel(11, 10, 0xff0000);
679 putpixel(10, 11, 0xff0000);
680 putpixel(11, 11, 0xff0000);
682 SDL::Video::unlock_surface($screen) if (SDL::Video::MUSTLOCK($screen));
684 SDL::Video::update_rect($screen, 0, 0, 640, 480);
691 carp 'Unable to init SDL: '.SDL::get_error() if( SDL::init(SDL_INIT_VIDEO) < 0);
693 $screen = SDL::Video::set_video_mode( 640, 480, 32, SDL_SWSURFACE);
695 carp 'Unable to set 640x480x32 video' . SDL::get_error() if(!$screen);
701 my $event = SDL::Event->new();
703 while( SDL::Events::poll_event($event) )
705 my $type = $event->type;
706 return 0 if( $type == SDL_KEYDOWN || $type == SDL_QUIT);
708 SDL::Events::pump_events();
719 <h2 id="unlock_surface">unlock_surface</h2>
720 <div id="unlock_surface_CONTENT">
721 <pre> SDL::Video::unlock_surface( $surface );
724 <p>Surfaces that were previously locked using <a href="#lock_sruface">SDL::Video::lock_surface</a> must be unlocked with <code>SDL::Video::unlock_surface</code>.
725 Surfaces should be unlocked as soon as possible.
726 <code>SDL::Video::unlock_surface</code> doesn't return anything.</p>
727 <p><strong>Note</strong>: Since 1.1.8, the surface locks are recursive. See <a href="#lock_sruface">SDL::Video::lock_surface</a> for more information. </p>
730 <h2 id="MUSTLOCK">MUSTLOCK</h2>
731 <div id="MUSTLOCK_CONTENT">
732 <pre> int SDL::Video::MUSTLOCK( $surface );
735 <p><code>MUSTLOCK</code> returns <code>0</code> if the surface does not have to be locked during pixel operations, otherwise <code>1</code>.</p>
738 <h1 id="Screen_Updating_Functions">Screen Updating Functions</h1><p><a href="#TOP" class="toplink">Top</a></p>
739 <div id="Screen_Updating_Functions_CONTENT">
742 <h2 id="set_clip_rect">set_clip_rect</h2>
743 <div id="set_clip_rect_CONTENT">
744 <pre> SDL::Video::set_clip_rect( $surface, $rect );
747 <p>Sets the clipping rectangle for the given <a href="SDL-Surface.html">SDL::Surface</a>. When this surface is the destination of a blit, only the area within the clip
748 rectangle will be drawn into.
749 The rectangle pointed to by rect will be clipped to the edges of the surface so that the clip rectangle for a surface can never fall
750 outside the edges of the surface.
751 If rect is NULL the clipping rectangle will be set to the full size of the surface.
752 <code>SDL::Video::set_clip_rect</code> doesn't returns anything.</p>
755 <h2 id="get_clip_rect">get_clip_rect</h2>
756 <div id="get_clip_rect_CONTENT">
757 <pre> SDL::Video::get_clip_rect( $surface, $rect );
760 <p>Gets the clipping rectangle for the given <a href="SDL-Surface.html">SDL::Surface</a>. When this surface is the destination of a blit, only the area within the clip
761 rectangle is drawn into.
762 The rectangle pointed to by rect will be filled with the clipping rectangle of the surface.
763 <code>SDL::Video::get_clip_rect</code> doesn't returns anything;</p>
769 my $screen_width = 640;
770 my $screen_height = 480;
772 SDL::init(SDL_INIT_VIDEO);
774 my $screen = SDL::Video::set_video_mode($screen_width, $screen_height, 32, SDL_SWSURFACE);
776 my $rect = SDL::Rect->new(0, 0, 0, 0);
778 SDL::Video::get_clip_rect($screen, $rect);
780 printf( "rect is %d, %d, %d, %d\n", $rect->x, $rect->y, $rect->w, $rect->h);
787 <h2 id="blit_surface">blit_surface</h2>
788 <div id="blit_surface_CONTENT">
789 <pre> SDL::Video::blit_surface( $src_surface, $src_rect, $dest_surface, $dest_rect );
792 <p>This performs a fast blit from the given source <a href="SDL-Surface.html">SDL::Surface</a> to the given destination <a href="SDL-Surface.html">SDL::Surface</a>.
793 The width and height in <code>src_surface</code> determine the size of the copied rectangle. Only the position is used in the <code>dst_rect</code>
794 (the width and height are ignored). Blits with negative <code>dst_rect</code> coordinates will be clipped properly.
795 If <code>src_rect</code> is NULL, the entire surface is copied. If <code>dst_rect</code> is NULL, then the destination position (upper left corner) is (0, 0).
796 The final blit rectangle is saved in <code>dst_rect</code> after all clipping is performed (<code>src_rect</code> is not modified).
797 The blit function should not be called on a locked surface. I.e. when you use your own drawing functions you may need to lock a surface,
798 but this is not the case with <code>SDL::Video::blit_surface</code>. Like most surface manipulation functions in SDL, it should not be used together
800 <p>The results of blitting operations vary greatly depending on whether <code>SDL_SRCALPHA</code> is set or not. See <a href="#set_alpha">SDL::Video::set_alpha</a>
801 for an explanation of how this affects your results. Colorkeying and alpha attributes also interact with surface blitting.
802 <code>SDL::Video::blit_surface</code> doesn't returns anything.</p>
803 <p>For an example see <a href="#load_BMP">SDL::Video::load_BMP</a>.</p>
806 <h2 id="update_rect">update_rect</h2>
807 <div id="update_rect_CONTENT">
808 <pre> update_rect( $surface, $left, $top, $width, $height );
811 <p>Makes sure the given area is updated on the given screen.
812 The rectangle must be confined within the screen boundaries because there's no clipping.
813 update_rect doesn't returns any value.</p>
814 <p><strong>Note</strong>: This function should not be called while screen is locked by <a href="#lock_surface">SDL::Video::lock_surface</a></p>
815 <p><strong>Note2</strong>: If <code>x</code>, <code>y</code>, <code>width</code> and <code>height</code> are all equal to 0, <code>update_rect</code> will update the entire screen. </p>
816 <p>For an example see <a href="#SYNOPSIS">SYNOPSIS</a></p>
819 <h2 id="update_rects">update_rects</h2>
820 <div id="update_rects_CONTENT">
821 <pre> update_rects( $surface, @rects );
824 <p>Makes sure the given list of rectangles is updated on the given screen.
825 The rectangle must be confined within the screen boundaries because there's no clipping.
826 <code>update_rects</code> doesn't returns any value.</p>
827 <p><strong>Note</strong>: This function should not be called while screen is locked by <a href="#lock_surface">SDL::Video::lock_surface</a>.</p>
834 # the size of the window box or the screen resolution if fullscreen
835 my $screen_width = 800;
836 my $screen_height = 600;
838 SDL::init(SDL_INIT_VIDEO);
841 my $screen_surface = SDL::Video::set_video_mode($screen_width, $screen_height, 32, SDL_SWSURFACE);
843 # drawing the whole screen blue
844 my $mapped_color = SDL::Video::map_RGB($screen_surface->format(), 0, 0, 255); # blue
845 SDL::Video::fill_rect($screen_surface,
846 SDL::Rect->new(0, 0, $screen_width, $screen_height),
850 push(@rects, SDL::Rect->new(200, 0, 400, 600));
851 push(@rects, SDL::Rect->new( 0, 150, 800, 300));
853 # updating parts of the screen (should look like a cross)
854 SDL::Video::update_rects($screen_surface, @rects);
863 <h2 id="flip">flip</h2>
864 <div id="flip_CONTENT">
865 <pre> $flip = SDL::Video::flip( $screen_surface );
868 <p>On hardware that supports double-buffering, this function sets up a flip and returns.
869 The hardware will wait for vertical retrace, and then swap video buffers before the next video surface blit or lock will return.
870 On hardware that doesn't support double-buffering or if <code>SDL_SWSURFACE</code> was set, this is equivalent to calling
871 <code>SDL::Video::update_rect( $screen, 0, 0, 0, 0 )</code>.</p>
872 <p>A software screen surface is also updated automatically when parts of a SDL window are redrawn, caused by overlapping windows or by
873 restoring from an iconified state. As a result there is no proper double buffer behavior in windowed mode for a software screen, in
874 contrast to a full screen software mode.</p>
875 <p>The <code>SDL_DOUBLEBUF</code> flag must have been passed to <a href="#set_video_mode">SDL::Video::set_video_mode</a>, when setting the video mode for this function
876 to perform hardware flipping.</p>
877 <p><code>flip</code> returns <code>0</code> on success or <code>-1</code> on error.</p>
878 <p><strong>Note</strong>: If you want to swap the buffers of an initialized OpenGL context, use the function <a href="#GL_swap_buffers">SDL::Video::GL_swap_buffers</a>
885 # the size of the window box or the screen resolution if fullscreen
886 my $screen_width = 800;
887 my $screen_height = 600;
889 SDL::init(SDL_INIT_VIDEO);
892 my $screen_surface = SDL::Video::set_video_mode($screen_width, $screen_height, 32, SDL_DOUBLEBUF|SDL_FULLSCREEN);
894 # do some video operations here
896 # doing page flipping
897 unless( SDL::Video::flip($screen_surface) == 0 )
899 printf( STDERR "failed to swap buffers: %s\n", SDL::get_error() );
907 <h1 id="Palette_Color_and_Pixel_Functions">Palette, Color and Pixel Functions</h1><p><a href="#TOP" class="toplink">Top</a></p>
908 <div id="Palette_Color_and_Pixel_Functions_CO">
911 <h2 id="set_colors">set_colors</h2>
912 <div id="set_colors_CONTENT">
913 <pre> $set_colors = SDL::Video::set_colors( $surface, $start, $color1, $color2, ... )
916 <p>Sets a portion of the colormap for the given 8-bit surface. </p>
917 <p>When surface is the surface associated with the current display, the display colormap will be updated with the requested colors.
918 If <code>SDL_HWPALETTE</code> was set in <a href="#set_video_mode">SDL::Video::set_video_mode</a> flags, <code>SDL::Video::set_colors</code> will always return 1, and the
919 palette is guaranteed to be set the way you desire, even if the window colormap has to be warped or run under emulation.
920 The color components of a <a href="SDL-Color.html">SDL::Color</a> structure are 8-bits in size, giving you a total of 2563 = 16777216 colors.
921 Palettized (8-bit) screen surfaces with the <code>SDL_HWPALETTE</code> flag have two palettes, a logical palette that is used for mapping blits to/from
922 the surface and a physical palette (that determines how the hardware will map the colors to the display).
923 <code>SDL::Video::set_colors</code> modifies both palettes (if present), and is equivalent to calling <a href="#set_palette">SDL::Video::set_palette</a> with the
924 flags set to ( <code>SDL_LOGPAL | SDL_PHYSPAL</code> ). </p>
925 <p>If <code>surface</code> is not a palettized surface, this function does nothing, returning 0.
926 If all of the colors were set as passed to <code>SDL::Video::set_colors</code>, it will return 1.
927 If not all the color entries were set exactly as given, it will return 0, and you should look at the surface palette to determine the
928 actual color palette.</p>
931 <h2 id="set_palette">set_palette</h2>
932 <div id="set_palette_CONTENT">
933 <pre> $set_palette = set_palette( $surface, $flags, $start, $color1, $color2, ... );
936 <p>Sets a portion of the palette for the given 8-bit surface.</p>
937 <p>Palettized (8-bit) screen surfaces with the <code>SDL_HWPALETTE</code> flag have two palettes, a logical palette that is used for mapping blits to/from
938 the surface and a physical palette (that determines how the hardware will map the colors to the display).
939 Non screen surfaces have a logical palette only. <a href="#blit">SDL::Video::blit</a> always uses the logical palette when blitting surfaces (if it has to
940 convert between surface pixel formats). Because of this, it is often useful to modify only one or the other palette to achieve various
941 special color effects (e.g., screen fading, color flashes, screen dimming).</p>
942 <p>This function can modify either the logical or physical palette by specifying <code>SDL_LOGPAL</code> or <code>SDL_PHYSPAL</code> the in the flags parameter.</p>
943 <p>When surface is the surface associated with the current display, the display colormap will be updated with the requested colors.
944 If <code>SDL_HWPALETTE</code> was set in <a href="#set_video_mode">SDL::Video::set_video_mode</a> flags, <code>SDL::Video::set_palette</code> will always return 1, and the
945 palette is guaranteed to be set the way you desire, even if the window colormap has to be warped or run under emulation.
946 The color components of a <code>SDL::Color</code> structure are 8-bits in size, giving you a total of 2563 = 16777216 colors. </p>
947 <p>If <code>surface</code> is not a palettized surface, this function does nothing, returning <code>0</code>. If all of the colors were set as passed to <code>set_palette</code>,
948 it will return <code>1</code>. If not all the color entries were set exactly as given, it will return <code>0</code>, and you should look at the surface palette
949 to determine the actual color palette.</p>
952 <h2 id="set_gamma">set_gamma</h2>
953 <div id="set_gamma_CONTENT">
954 <pre> $set_gamma = SDL::Video::set_gamma( $red_gamma, $green_gamma, $blue_gamma );
957 <p>Sets the "gamma function" for the display of each color component. Gamma controls the brightness/contrast of colors displayed on the screen.
958 A gamma value of 1.0 is identity (i.e., no adjustment is made).</p>
959 <p>This function adjusts the gamma based on the "gamma function" parameter, you can directly specify lookup tables for gamma adjustment
960 with SDL::set_gamma_ramp.</p>
961 <p><strong>Note</strong>: Not all display hardware is able to change gamma.</p>
962 <p><code>SDL::Video::set_gamma</code> returns <code>-1</code> on error.</p>
963 <p><strong>Warning</strong>: Under Linux (X.org Gnome and Xfce), gamma settings affects the entire display (including the desktop)! </p>
969 use Time::HiRes qw( usleep );
971 # the size of the window box or the screen resolution if fullscreen
972 my $screen_width = 800;
973 my $screen_height = 600;
975 SDL::init(SDL_INIT_VIDEO);
978 my $screen_surface = SDL::Video::set_video_mode($screen_width, $screen_height, 32, SDL_SWSURFACE);
980 # drawing something somewhere
981 my $mapped_color = SDL::Video::map_RGB($screen_surface->format(), 128, 128, 128); # gray
982 SDL::Video::fill_rect($screen_surface,
983 SDL::Rect->new($screen_width / 4, $screen_height / 4, $screen_width / 2, $screen_height / 2),
986 # update the whole screen
987 SDL::Video::update_rect($screen_surface, 0, 0, $screen_width, $screen_height);
993 SDL::Video::set_gamma( 1 - $_ / 20, 1, 1 );
999 SDL::Video::set_gamma( $_ / 20, 1, 1 );
1003 SDL::Video::set_gamma( 1, 1, 1 );
1012 <h2 id="get_gamma_ramp">get_gamma_ramp</h2>
1013 <div id="get_gamma_ramp_CONTENT">
1014 <pre> $get_gamma_ramp = SDL::Video::get_gamma_ramp( \@red_table, \@green_table, \@blue_table );
1017 <p>Gets the gamma translation lookup tables currently used by the display. Each table is an array of 256 Uint16 values.
1018 <code>SDL::Video::get_gamma_ramp</code> returns -1 on error.</p>
1022 SDL::init(SDL_INIT_VIDEO);
1024 my (@red, @green, @blue);
1026 my $ret = SDL::Video::get_gamma_ramp( \@red, \@green, \@blue );
1030 print( "an error occoured" );
1034 printf( "for gamma = 1.0: red=0x%04X, green=0x%04X, blue=0x%04X\n", $red[255], $green[255], $blue[255] );
1035 printf( "for gamma = 0.5: red=0x%04X, green=0x%04X, blue=0x%04X\n", $red[127], $green[127], $blue[127] );
1036 printf( "for gamma = 0.0: red=0x%04X, green=0x%04X, blue=0x%04X\n", $red[0], $green[0], $blue[0] );
1044 <h2 id="set_gamma_ramp">set_gamma_ramp</h2>
1045 <div id="set_gamma_ramp_CONTENT">
1046 <pre> $set_gamma_ramp = SDL::Video::set_gamma_ramp( \@red_table, \@green_table, \@blue_table );
1049 <p>Sets the gamma lookup tables for the display for each color component. Each table is an array ref of 256 Uint16 values, representing a
1050 mapping between the input and output for that channel.
1051 The input is the index into the array, and the output is the 16-bit gamma value at that index, scaled to the output color precision.
1052 You may pass NULL to any of the channels to leave them unchanged.</p>
1053 <p>This function adjusts the gamma based on lookup tables, you can also have the gamma calculated based on a "gamma function" parameter
1054 with <a href="#set_gamma">SDL::Video::set_gamma</a>.</p>
1055 <p>Not all display hardware is able to change gamma.
1056 <code>SDL::Video::set_gamma_ramp</code> returns <code>-1</code> on error (or if gamma adjustment is not supported).</p>
1061 SDL::init(SDL_INIT_VIDEO);
1063 my (@red, @green, @blue);
1065 my $ret = SDL::Video::get_gamma_ramp( \@red, \@green, \@blue );
1069 $ret = SDL::Video::set_gamma_ramp( \@red, \@green, \@blue );
1071 $ret = SDL::Video::get_gamma_ramp( \@red, \@green, \@blue );
1075 print( "an error occoured" );
1079 printf( "for gamma = 1.0: red=0x%04X, green=0x%04X, blue=0x%04X\n", $red[255], $green[255], $blue[255] );
1080 printf( "for gamma = 0.5: red=0x%04X, green=0x%04X, blue=0x%04X\n", $red[127], $green[127], $blue[127] );
1081 printf( "for gamma = 0.0: red=0x%04X, green=0x%04X, blue=0x%04X\n", $red[0], $green[0], $blue[0] );
1089 <h2 id="map_RGB">map_RGB</h2>
1090 <div id="map_RGB_CONTENT">
1091 <pre> $pixel = SDL::Video::map_RGB( $pixel_format, $r, $g, $b );
1094 <p>Maps the RGB color value to the specified <a href="SDL-PixelFormat.html">SDL::PixelFormat</a> and returns the pixel value as a 32-bit int.
1095 If the format has a palette (8-bit) the index of the closest matching color in the palette will be returned.
1096 If the specified pixel format has an alpha component it will be returned as all 1 bits (fully opaque). </p>
1097 <p><code>SDL::Video::map_RGB</code> returns a pixel value best approximating the given RGB color value for a given pixel format.
1098 If the <a href="SDL-PixelFormat.html">SDL::PixelFormat</a>'s bpp (color depth) is less than 32-bpp then the unused upper bits of the return value can safely be ignored
1099 (e.g., with a 16-bpp format the return value can be assigned to a Uint16, and similarly a Uint8 for an 8-bpp format).</p>
1102 use SDL::PixelFormat;
1105 SDL::init(SDL_INIT_VIDEO);
1107 my $screen_surface = SDL::Video::set_video_mode(640, 480, 16, SDL_SWSURFACE);
1108 # ^-- 16 bits per pixel
1114 printf( "for 24bpp it is: 0x%02X 0x%02X 0x%02X\n", $r, $g, $b);
1116 my $_16bit = SDL::Video::map_RGB( $screen_surface->format, $r, $g, $b );
1118 # 16bpp is 5 bits red, 6 bits green and 5 bits blue
1119 # we will obtain the values for each color and calculating them back to 24/32bit color system
1120 ($r, $g, $b) = @{ SDL::Video::get_RGB( $screen_surface->format, $_16bit ) };
1122 printf( "for 16bpp it is: 0x%02X 0x%02X 0x%02X\n", $r, $g, $b );
1124 # so color #9CDC67 becomes #9CDF63
1131 <h2 id="map_RGBA">map_RGBA</h2>
1132 <div id="map_RGBA_CONTENT">
1133 <pre> $pixel = SDL::Video::map_RGB( $pixel_format, $r, $g, $b, $a );
1136 <p>Maps the RGBA color value to the specified <a href="SDL-PixelFormat.html">SDL::PixelFormat</a> and returns the pixel value as a 32-bit int.
1137 If the format has a palette (8-bit) the index of the closest matching color in the palette will be returned.
1138 If the specified pixel format has no alpha component the alpha value will be ignored (as it will be in formats with a palette). </p>
1139 <p>A pixel value best approximating the given RGBA color value for a given pixel format.
1140 If the pixel format bpp (color depth) is less than 32-bpp then the unused upper bits of the return value can safely be ignored (e.g.,
1141 with a 16-bpp format the return value can be assigned to a Uint16, and similarly a Uint8 for an 8-bpp format).</p>
1144 <h2 id="get_RGB">get_RGB</h2>
1145 <div id="get_RGB_CONTENT">
1146 <pre> $rgb_array_ref = SDL::Video::get_RGB( $pixel_format, $pixel );
1149 <p>Returns RGB values from a pixel in the specified pixel format. The pixel is an integer (e.g. 16bit RGB565, 24/32bit RGB888).
1150 This function uses the entire 8-bit [0..255] range when converting color components from pixel formats with less than 8-bits per RGB
1151 component (e.g., a completely white pixel in 16-bit RGB565 format would return [0xff, 0xff, 0xff] not [0xf8, 0xfc, 0xf8]).</p>
1152 <p>For an example see <a href="#map_RGB">SDL::Video::map_RGB</a>.</p>
1155 <h2 id="get_RGBA">get_RGBA</h2>
1156 <div id="get_RGBA_CONTENT">
1157 <pre> $rgba_array_ref = SDL::Video::get_RGBA( $pixel_format, $pixel );
1160 <p>Gets RGBA values from a pixel in the specified pixel format.
1161 This function uses the entire 8-bit [0..255] range when converting color components from pixel formats with less than 8-bits per RGB
1162 component (e.g., a completely white pixel in 16-bit RGB565 format would return [0xff, 0xff, 0xff] not [0xf8, 0xfc, 0xf8]).</p>
1163 <p>If the surface has no alpha component, the alpha will be returned as 0xff (100% opaque). </p>
1166 <h1 id="GL_Methods">GL Methods</h1><p><a href="#TOP" class="toplink">Top</a></p>
1167 <div id="GL_Methods_CONTENT">
1170 <h2 id="GL_load_library">GL_load_library</h2>
1171 <div id="GL_load_library_CONTENT">
1172 <pre> $gl_load_lib = SDL::Video::GL_load_library( 'path/to/static/glfunctions.dll' );
1175 <p>If you wish, you may load the OpenGL library from the given path at runtime, this must be done before
1176 <a href="#set_video_mode">SDL::Video::set_video_mode</a> is called. You must then use <a href="#GL_get_proc_address">SDL::Video::GL_get_proc_address</a> to retrieve
1177 function pointers to GL functions. </p>
1178 <p><code>GL_load_library</code> returns <code>0</code> on success or <code>-1</code> or error.</p>
1181 <h2 id="GL_get_proc_address">GL_get_proc_address</h2>
1182 <div id="GL_get_proc_address_CONTENT">
1183 <pre> $proc_address = SDL::Video::GL_get_proc_address( $proc );
1186 <p>Returns the address of the GL function proc, or NULL if the function is not found. If the GL library is loaded at runtime, with
1187 <a href="#GL_load_library">SDL::Video::GL_load_library</a>, then all GL functions must be retrieved this way. Usually this is used to retrieve function
1188 pointers to OpenGL extensions. Note that this function needs an OpenGL context to function properly, so it should be called after
1189 <a href="#set_video_mode">SDL::Video::set_video_mode</a> has been called (with the <code>SDL_OPENGL</code> flag).</p>
1190 <p>It returns undef if the function is not found.</p>
1192 <pre> my $has_multitexture = 1;
1194 # Get function pointer
1195 $gl_active_texture_ARB_ptr = SDL::Video::GL_get_proc_address("glActiveTextureARB");
1197 # Check for a valid function ptr
1198 unless($gl_active_texture_ARB_ptr)
1200 printf( STDERR "Multitexture Extensions not present.\n" );
1201 $has_multitexture = 0;
1204 $gl_active_texture_ARB_ptr(GL_TEXTURE0_ARB) if $has_multitexture;
1209 <h2 id="GL_get_attribute">GL_get_attribute</h2>
1210 <div id="GL_get_attribute_CONTENT">
1211 <pre> $value = SDL::Video::GL_get_attribute( $attr );
1214 <p>It returns SDL/OpenGL attribute <code>attr</code>. This is useful after a call to <a href="#set_video_mode">SDL::Video::set_video_mode</a> to check whether your
1215 attributes have been set as you expected.
1216 <code>SDL::Video::GL_get_attribute</code> returns <code>undef</code> if the attribute is not found.</p>
1218 <pre> print( SDL::Video::GL_set_attribute(SDL_GL_RED_SIZE) );
1223 <h2 id="GL_set_attribute">GL_set_attribute</h2>
1224 <div id="GL_set_attribute_CONTENT">
1225 <pre> $set_attr = SDL::Video::GL_set_attribute( $attr, $value );
1228 <p>This function sets the given OpenGL attribute <code>attr</code> to <code>value</code>. The requested attributes will take effect after a call to
1229 <a href="#set_video_mode">SDL::Video::set_video_mode</a>.
1230 You should use <code>SDL::Video::GL_get_attribute|/GL_get_attribute</code> to check the values after a <a href="#set_video_mode">SDL::Video::set_video_mode</a> call,
1231 since the values obtained can differ from the requested ones.</p>
1232 <p>Available attributes:</p>
1234 <li><code>SDL_GL_RED_SIZE</code> </li>
1235 <li><code>SDL_GL_GREEN_SIZE</code> </li>
1236 <li><code>SDL_GL_BLUE_SIZE</code> </li>
1237 <li><code>SDL_GL_ALPHA_SIZE</code> </li>
1238 <li><code>SDL_GL_BUFFER_SIZE</code> </li>
1239 <li><code>SDL_GL_DOUBLEBUFFER</code> </li>
1240 <li><code>SDL_GL_DEPTH_SIZE</code> </li>
1241 <li><code>SDL_GL_STENCIL_SIZE</code> </li>
1242 <li><code>SDL_GL_ACCUM_RED_SIZE</code> </li>
1243 <li><code>SDL_GL_ACCUM_GREEN_SIZE</code> </li>
1244 <li><code>SDL_GL_ACCUM_BLUE_SIZE</code> </li>
1245 <li><code>SDL_GL_ACCUM_ALPHA_SIZE</code> </li>
1246 <li><code>SDL_GL_STEREO</code> </li>
1247 <li><code>SDL_GL_MULTISAMPLEBUFFERS</code> </li>
1248 <li><code>SDL_GL_MULTISAMPLESAMPLES</code> </li>
1249 <li><code>SDL_GL_ACCELERATED_VISUAL</code> </li>
1250 <li><code>SDL_GL_SWAP_CONTROL</code></li>
1253 <p><code>GL_set_attribute</code> returns <code>0</code> on success or <code>-1</code> on error.</p>
1254 <p><strong>Note</strong>: The <code>SDL_DOUBLEBUF</code> flag is not required to enable double buffering when setting an OpenGL video mode. Double buffering is enabled
1255 or disabled using the <code>SDL_GL_DOUBLEBUFFER</code> attribute. </p>
1257 <pre> SDL::Video::GL_set_attribute(SDL_GL_RED_SIZE, 5);
1262 <h2 id="GL_swap_buffers">GL_swap_buffers</h2>
1263 <div id="GL_swap_buffers_CONTENT">
1264 <pre> SDL::Video::GL_swap_buffers();
1267 <p>Swap the OpenGL buffers, if double-buffering is supported.
1268 <code>SDL::Video::GL_swap_buffers</code> doesn't returns any value.</p>
1271 <h1 id="Video_Overlay_Functions">Video Overlay Functions</h1><p><a href="#TOP" class="toplink">Top</a></p>
1272 <div id="Video_Overlay_Functions_CONTENT">
1273 <p>see <a href="SDL-Overlay.html">SDL::Overlay</a> </p>
1276 <h2 id="lock_YUV_overlay">lock_YUV_overlay</h2>
1277 <div id="lock_YUV_overlay_CONTENT">
1278 <pre> $lock_overlay = SDL::Video::lock_YUV_overlay( $overlay );
1281 <p>Much the same as <a href="#lock_surface">SDL::Video::lock_surface</a>, <code>lock_YUV_overlay</code> locks the overlay for direct access to pixel data.
1282 It returns <code>0</code> on success or <code>-1</code> on error.</p>
1285 <h2 id="unlock_YUV_overlay">unlock_YUV_overlay</h2>
1286 <div id="unlock_YUV_overlay_CONTENT">
1287 <pre> SDL::Video::unlock_YUV_overlay( $overlay );
1290 <p>The opposite to <a href="#sock_YUV_overlay">SDL::Video::lock_YUV_overlay</a>. Unlocks a previously locked overlay. An overlay must be unlocked before it
1291 can be displayed. <code>unlock_YUV_overlay</code> does not return anything.</p>
1294 <h2 id="display_YUV_overlay">display_YUV_overlay</h2>
1295 <div id="display_YUV_overlay_CONTENT">
1296 <pre> $display_overlay = SDL::Video::display_YUV_overlay( $overlay, $dstrect );
1299 <p>Blit the overlay to the display surface specified when the overlay was created. The <a href="SDL-Rect.html">SDL::Rect</a> structure, <code>dstrect</code>, specifies a rectangle
1300 on the display where the overlay is drawn. The <code>x</code> and <code>y</code> fields of <code>dstrect</code> specify the upper left location in display coordinates.
1301 The overlay is scaled (independently in x and y dimensions) to the size specified by dstrect, and is <code>optimized</code> for 2x scaling</p>
1302 <p>It returns <code>0</code> on success or <code>-1</code> on error.</p>
1305 <h1 id="Window_Management_Functions">Window Management Functions</h1><p><a href="#TOP" class="toplink">Top</a></p>
1306 <div id="Window_Management_Functions_CONTENT">
1309 <h2 id="wm_set_caption">wm_set_caption</h2>
1310 <div id="wm_set_caption_CONTENT">
1311 <pre> SDL::Video::wm_set_caption( $title, $icon );
1314 <p>Sets the title-bar and icon name of the display window.</p>
1315 <p><code>title</code> is a UTF-8 encoded null-terminated string which will serve as the window title (the text at the top of the window). The function
1316 does not change the string. You may free the string after the function returns.</p>
1317 <p><code>icon</code> is a UTF-8 encoded null-terminated string which will serve as the iconified window title (the text which is displayed in the menu
1318 bar or desktop when the window is minimized). As with title this string may be freed after the function returns. </p>
1324 SDL::init(SDL_INIT_VIDEO);
1326 my $screen = SDL::Video::set_video_mode(640, 480, 32, SDL_SWSURFACE);
1328 SDL::Video::wm_set_caption( 'maximized title', 'minimized title' );
1337 <h2 id="wm_get_caption">wm_get_caption</h2>
1338 <div id="wm_get_caption_CONTENT">
1339 <pre> SDL::Video::wm_get_caption( $title, $icon );
1342 <p>Retrieves the title-bar and icon name of the display window.</p>
1348 SDL::init(SDL_INIT_VIDEO);
1350 my $screen = SDL::Video::set_video_mode(640, 480, 32, SDL_SWSURFACE);
1352 SDL::Video::wm_set_caption( 'maximized title', 'minimized title' );
1354 my ($title, $icon) = @{ SDL::Video::wm_get_caption() };
1356 printf( "title is '%s' and icon is '%s'\n", $title, $icon );
1363 <h2 id="wm_set_icon">wm_set_icon</h2>
1364 <div id="wm_set_icon_CONTENT">
1365 <pre> SDL::Video::wm_set_icon( $icon );
1368 <p>Sets the icon for the display window. Win32 icons must be 32x32.</p>
1369 <p>This function must be called before the first call to <a href="#set_video_mode">SDL::Video::set_video_mode</a>. Note that this means <a href="SDL-Image.html">SDL::Image</a>
1371 <p>The shape is determined by the colorkey or alpha channel of the icon, if any. If neither of those are present, the icon is made opaque
1372 (no transparency).</p>
1374 <pre> SDL::Video::wm_set_icon(SDL::Video::load_BMP("icon.bmp"));
1377 <p>Another option, if your icon image does not have a colorkey set, is to use the SDL::Video::set_color_key to set the transparency.</p>
1379 <pre> my $image = SDL::Video::load_BMP("icon.bmp");
1381 my colorkey = SDL::Video::map_RGB($image->format, 255, 0, 255); # specify the color that will be transparent
1383 SDL::Video::set_color_key($image, SDL_SRCCOLORKEY, $colorkey);
1385 SDL::Video::wm_set_icon($image);
1390 <h2 id="wm_grab_input">wm_grab_input</h2>
1391 <div id="wm_grab_input_CONTENT">
1392 <pre> $grab_mode = SDL::Video::wm_grab_input($mode);
1395 <p>Grabbing means that the mouse is confined to the application window, and nearly all keyboard input is passed directly to the application,
1396 and not interpreted by a window manager, if any.</p>
1397 <p>When mode is <code>SDL_GRAB_QUERY</code> the grab mode is not changed, but the current grab mode is returned.</p>
1398 <p><code>mode</code> and the return value of <code>wm_grab_input</code> can be one of the following:</p>
1400 <li><code>SDL_GRAB_QUERY</code> </li>
1401 <li><code>SDL_GRAB_OFF</code> </li>
1402 <li><code>SDL_GRAB_ON</code></li>
1407 <h2 id="wm_iconify_window">wm_iconify_window</h2>
1408 <div id="wm_iconify_window_CONTENT">
1409 <pre> $iconify_window = SDL::Video::wm_iconify_window();
1412 <p>If the application is running in a window managed environment SDL attempts to iconify/minimise it. If <code>wm_iconify_window</code> is successful,
1413 the application will receive a <code>SDL_APPACTIVE</code> loss event (see Application visibility events at <a href="SDL-Event.html">SDL::Event</a>).</p>
1414 <p>Returns non-zero on success or 0 if iconification is not supported or was refused by the window manager. </p>
1420 SDL::init(SDL_INIT_VIDEO);
1422 my $screen = SDL::Video::set_video_mode(640, 480, 32, SDL_SWSURFACE);
1426 SDL::Video::wm_iconify_window();
1435 <h2 id="wm_toggle_fullscreen">wm_toggle_fullscreen</h2>
1436 <div id="wm_toggle_fullscreen_CONTENT">
1437 <pre> $toggle = SDL::Video::wm_toggle_fullscreen( $surface );
1440 <p>Toggles the application between windowed and fullscreen mode, if supported. (X11 is the only target currently supported, BeOS support
1441 is experimental).</p>
1444 <h1 id="AUTHORS">AUTHORS</h1><p><a href="#TOP" class="toplink">Top</a></p>
1445 <div id="AUTHORS_CONTENT">
1446 <p>See <b>AUTHORS</b> in <cite>SDL</cite>.</p>
1449 <h1 id="SEE_ALSO">SEE ALSO</h1><p><a href="#TOP" class="toplink">Top</a></p>
1450 <div id="SEE_ALSO_CONTENT">
1453 <h2 id="Category_Objects">Category Objects</h2>
1454 <div id="Category_Objects_CONTENT">
1455 <p><a href="SDL-Surface.html">SDL::Surface</a>, <a href="SDL-Overlay.html">SDL::Overlay</a>, <a href="SDL-Color.html">SDL::Color</a>,
1456 <a href="SDL-Rect.html">SDL::Rect</a>, <a href="SDL-Palette.html">SDL::Palette</a>, <a href="SDL-PixelFormat.html">SDL::PixelFormat</a>,
1457 <a href="SDL-VideoInfo.html">SDL::VideoInfo</a></p>