GSP
Quick Navigator

Search Site

Unix VPS
A - Starter
B - Basic
C - Preferred
D - Commercial
MPS - Dedicated
Previous VPSs
* Sign Up! *

Support
Contact Us
Online Help
Handbooks
Domain Status
Man Pages

FAQ
Virtual Servers
Pricing
Billing
Technical

Network
Facilities
Connectivity
Topology Map

Miscellaneous
Server Agreement
Year 2038
Credits
 

USA Flag

 

 

Man Pages
pods::SDL::GFX::Rotozoom(3) User Contributed Perl Documentation pods::SDL::GFX::Rotozoom(3)

SDL::GFX::Rotozoom - rotation and zooming functions for surfaces

GFX

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

 use SDL::GFX::Rotozoom ();

and access them directly:

 SDL::GFX::Rotozoom::SMOOTHING_OFF;

or by choosing the export tags below:

Export tag: ':smoothing'

 SMOOTHING_OFF
 SMOOTHING_ON

 my $new_surface = SDL::GFX::Rotozoom::surface( $surface, $angle, $zoom, $smooth );

With "SDL::GFX::Rotozoom::surface" you have the opportunity to rotate and zoom a given surface. The surface will be rotated counter clockwise (in degrees). Pass "SMOOTHING_ON" or "SMOOTHING_OFF" in order to turn it on or off.

Note: The new surface (with $"zoom == 1") will usually be bigger than the source $surface.

Note: Note: new surface should be less than 16384 in width and height.

Example:

 use SDL;
 use SDL::Video;
 use SDL::Rect;
 use SDL::Surface;
 use SDL::GFX::Rotozoom;
 
 my $screen_width  = 640;
 my $screen_height = 480;
 
 SDL::init(SDL_INIT_VIDEO);
 
 my $screen  = SDL::Video::set_video_mode(800, 600, 32, SDL_SWSURFACE);
 my $picture = SDL::Video::load_BMP('test.bmp');
 
 my $rotated = SDL::GFX::Rotozoom::surface( $picture, 45, 0.8, SMOOTHING_ON );
 
 SDL::Video::blit_surface( $rotated, SDL::Rect->new(0, 0, $rotated->w, $rotated->h), 
                           $screen,  SDL::Rect->new(0, 0, 0, 0) );
 
 SDL::Video::update_rect( $screen, 0, 0, 0, 0 );
 
 sleep(2);

 my $new_surface = SDL::GFX::Rotozoom::surface_xy( $surface, $angle, $zoom_x, $zoom_y, $smooth );

Same as SDL::GFX::Rotozoom::surface but you can specify the zoomlevel for x and y separately.

 my ($new_width, $new_height) = @{ SDL::GFX::Rotozoom::surface_size( $width, $height, $angle, $zoom ) };

"surface_size" will give you the width and height of an rotating/zoom operation for the given $width and $height. Helpful for knowing the surface size before actually do the rotating/zoom operation.

 my ($new_width, $new_height) = @{ SDL::GFX::Rotozoom::surface_size_xy( $width, $height, $angle, $zoom_x, $zoom_y ) };

Same as SDL::GFX::Rotozoom::surface_size but you can specify the zoomlevel for x and y separately.

 my $new_surface = SDL::GFX::Rotozoom::zoom_surface( $surface, $zoom_x, $zoom_y, $smooth );

Same as SDL::GFX::Rotozoom::surface_xy except you can zoom only.

 my ($new_width, $new_height) = SDL::GFX::Rotozoom::zoom_surface_size( $width, $height, $zoom_x, $zoom_y );

Same as SDL::GFX::Rotozoom::surface_size_xy except you can specify zoom only.

 my $new_surface = SDL::GFX::Rotozoom::shrink_surface( $surface, $factor_x, $factor_y );

Specialized function for shrinking a surface.

 my $new_surface = SDL::GFX::Rotozoom::rotate_surface_90_degrees( $surface, $num_clockwise_turns );

Rotating a surface $num_clockwise_turns-times.

See "AUTHORS" in SDL.
2022-06-07 perl v5.32.1

Search for    or go to Top of page |  Section 3 |  Main Index

Powered by GSP Visit the GSP FreeBSD Man Page Interface.
Output converted with ManDoc.