sdlx::controller::interface(3pm) [debian man page]
pods::SDLx::Controller::Interface(3pm) User Contributed Perl Documentation pods::SDLx::Controller::Interface(3pm) NAME
SDLx::Controller::Interface - Interface Physics and Rendering with the Controller with callbacks CATEGORY
Extension, Controller SYNOPSIS
use SDL; use SDLx::App; use SDLx::Controller::Interface; #SDLx::App is a controller my $app = SDLx::App->new(width => 200, height => 200 ); my $ball = SDLx::Controller::Interface->new( x=> 10, y => 50, v_x => 10, v_y=> 20 ); #Set the initial state of the ball's physics, this is optional $ball->set_acceleration( sub { my ($time, $current_state) = @_; return( 0, -10, 0 ); # Return accelerations (x,y,rotation) } ); my $ball_render = sub { my $state = shift; $app->draw_rect( undef, 0 ); $app->draw_rect( [$state->x, $state->y, 10,10], [255,0,0,255] ); $app->update(); }; $ball->attach( $app, $ball_render, @params ); $app->run(); $ball->detach(); #can be called at anytime (for example when ball 'dies') DESCRIPTION
METHODS
set_acceleration Allows you to set the acceleration callback for defining the interface's behaviour in terms of x,y and rotation. $interface->set_acceleration ( sub { my ($time, $current_state) = @_; return ( $accel_x, $accel_y, $torque ); } ); These accelerations are arbitrary and can be set to any frame of reference. Your render callback will handle how to interpret it. The callback will receive the time and the current state as a "SDLx::Controller::State" element. attach Attaches the interface to a controller with a render callback $interface->attach( $controller, $render, @params ); Where $render is a callback that receives the interpolated "SDLx::Controller::State". my $render = sub { my ($state, @params) = @_; # draw the current $state. }; The @params are any extra parameters you would like to pass to the $render callback. current my $current_state = $interface->current(); Returns the current state of the interface as a "SDLx::Controller::State". previous my $previous_state = $interface->previous(); Returns the previous state of the interface as a "SDLx::Controller::State". detach $interface->detach(); If $interface has been "attach()"'ed to any controller it will be detached now. OTHER METHODS
Don't use these unless you really really want to. acceleration Call the acceleration callback once. interpolate Interpolate the current state evaluate Evaluate the new current and previous state. update Update the states by integrating with time. AUTHORS
See "AUTHORS" in SDL. perl v5.14.2 2012-05-28 pods::SDLx::Controller::Interface(3pm)
Check Out this Related Man Page
pods::SDLx::App(3pm) User Contributed Perl Documentation pods::SDLx::App(3pm) NAME
SDLx::App - a SDL perl extension CATEGORY
Extension SYNOPSIS
use SDL; use SDLx::App; use SDL::Event; use SDL::Events; my $app = SDLx::App->new( title => 'Application Title', width => 640, height => 480, depth => 32 ); This is the manual way of doing things my $event = SDL::Event->new; # create a new event SDL::Events::pump_events(); while ( SDL::Events::poll_event($event) ) { my $type = $event->type(); # get event type print $type; exit if $type == SDL_QUIT; } An alternative to the manual Event processing is through the SDLx::Controller module. SDLx::App is a Controller so see the CALLBACKS section below. DESCRIPTION
SDLx::App controls the root window of the of your SDL based application. It extends the SDL::Surface class, and provides an interface to the window manager oriented functions. METHODS
new "SDLx::App::new" initializes the SDL, creates a new screen, and initializes some of the window manager properties. "SDLx::App::new" takes a series of named parameters: o title the window title. Defaults to the file name. Shorter alias: 't' o icon_title the icon title. Defaults to file name. Shortcut: 'it' o icon the icon itself. Defaults to none. Shortcut: 'i' o width Window width, in pixels. Defaults to 800. Shortcut: 'w' o height Window height, in pixels. Defaults to 600. Shortcut: 'h' o depth Screen depth. Defaults to 16. Shortcut: 'd'. o flags Any flags you want to pass to SDL::Video upon initialization. Defaults to SDL_ANYFORMAT. Flags should be or'ed together if you're passing more than one (flags => FOO|BAR). Shortcut: 'f'. o resizable Set this to a true value to make the window resizable by the user. Default is off. o exit_on_quit Set this to a true value to make the app exit if a SDL_QUIT event is triggered. Shortcut: 'eoq'. METHODS
title() title( $new_title ) title( $window_title, $icon_title ) "SDLx::App::title" takes 0, 1, or 2 arguments. If no parameter is given, it returns the current application window title. If one parameter is passed, both the window title and icon title will be set to its value. If two parameters are passed the window title will be set to the first, and the icon title to the second. delay( $ms ) "SDLx::App::delay" takes 1 argument, and will sleep the application for that many ms. ticks "SDLx::App::ticks" returns the number of ms since the application began. error "SDLx::App::error" returns the last error message set by the SDL. resize( $width, $height ) "SDLx::App::resize" takes a new width and height of the application. Only works if the application was originally created with the resizable option. fullscreen "SDLx::App::fullscreen" toggles the application in and out of fullscreen mode. iconify "SDLx::App::iconify" iconifies the application window. grab_input( $CONSTANT ) "SDLx::App::grab_input" can be used to change the input focus behavior of the application. It takes one argument, which should be one of the following: o SDL_GRAB_QUERY o SDL_GRAB_ON o SDL_GRAB_OFF sync "SDLx::App::sync" encapsulates the various methods of synchronizing the screen with the current video buffer. "SDLx::App::sync" will do a fullscreen update, using the double buffer or OpenGL buffer if applicable. This is preferred to calling flip on the application window. attribute( $attr ) attribute( $attr, $value ) "SDLx::App::attribute" allows one to get and set GL attributes. By passing a value in addition to the attribute selector, the value will be set. "SDL:::App::attribute" always returns the current value of the given attribute, or Carp::confesss on failure. CALLBACKS
"SDLx::App" is a "SDLx::Controller". Use the event, show and handlers to run the app. use SDL; use SDLx::App; use SDL::Event; #Where ever the event call back is processed my $app = SDLx::App->new( width => 200, height => 200); $app->add_event_handler( sub{ return 0 if $_[0]->type == SDL_QUIT; return 1}); $app->add_show_handler( sub{ $app->update() } ); $app->add_move_handler( sub{ #calc your physics here } ); $app->run(); see SDLx::Controller for more details. AUTHORS
See "AUTHORS" in SDL. SEE ALSO
perl SDL::Surface SDL::Event SDL::OpenGL perl v5.14.2 2012-05-28 pods::SDLx::App(3pm)