use SDL; use SDL::GFX::Framerate; use SDL::GFX::FPSManager; my $fps = SDL::GFX::FPSManager->new(0, 0, 0, 0); SDL::GFX::Framerate::init($fps);
Initialize the framerate manager, set default framerate of 30Hz and reset delay interpolation.
SDL::GFX::Framerate::set($fps, 60);
Sets the new desired framerate to 60 frames per second.
my $rate = SDL::GFX::Framerate::get($fps);
Get the currently set framerate of the manager.
SDL::GFX::Framerate::delay($fps);
Generate a delay to accommodate the currently set framerate. Call once in the graphics/rendering loop. If the computer cannot keep up with the rate (i.e. drawing too slow), the delay is zero and the delay interpolation is reset.