/src/GFX/Framerate.xs

http://github.com/PerlGameDev/SDL · Unknown · 59 lines · 44 code · 15 blank · 0 comment · 0 complexity · 36c89f726e67153fbf8114612b7288d5 MD5 · raw file 

    

  1. #include "EXTERN.h"
    2. 

  2. #include "perl.h"
    3. 

  3. #include "XSUB.h"
    4. 

  4. #include "ppport.h"
    5. 

  5. 

  6. #ifndef aTHX_
    7. 

  7. #define aTHX_
    8. 

  8. #endif
    9. 

  9. 

  10. #include <SDL.h>
    11. 

  11. 

  12. #ifdef HAVE_SDL_GFX_FRAMERATE
    13. 

  13. #include <SDL_framerate.h>
    14. 

  14. #endif
    15. 

  15. 

  16. MODULE = SDL::GFX::Framerate 	PACKAGE = SDL::GFX::Framerate    PREFIX = gfx_frame_
    17. 

  17. 

  18. =for documentation
    19. 

  19. 

  20. The Following are XS bindings to the SDL_gfx Library
    21. 

  21. 

  22. Described here:
    23. 

  23. 

  24. See: L<http:/*www.ferzkopp.net/joomla/content/view/19/14/> */
    25. 

  25. 

  26. =cut
    27. 

  27. 

  28. #ifdef HAVE_SDL_GFX_FRAMERATE
    29. 

  29. 

  30. void
    31. 

  31. gfx_frame_init(manager)
    32. 

  32. 	FPSmanager * manager
    33. 

  33. 	CODE:
    34. 

  34. 		SDL_initFramerate(manager);
    35. 

  35. 

  36. int
    37. 

  37. gfx_frame_set(manager, rate)
    38. 

  38. 	FPSmanager * manager
    39. 

  39. 	int rate
    40. 

  40. 	CODE:
    41. 

  41. 		RETVAL = SDL_setFramerate(manager, rate);
    42. 

  42. 	OUTPUT:
    43. 

  43. 		RETVAL
    44. 

  44. 

  45. int
    46. 

  46. gfx_frame_get(manager)
    47. 

  47. 	FPSmanager * manager
    48. 

  48. 	CODE:
    49. 

  49. 		RETVAL = SDL_getFramerate(manager);
    50. 

  50. 	OUTPUT:
    51. 

  51. 		RETVAL
    52. 

  52. 

  53. void
    54. 

  54. gfx_frame_delay(manager)
    55. 

  55. 	FPSmanager * manager
    56. 

  56. 	CODE:
    57. 

  57. 		SDL_framerateDelay(manager);
    58. 

  58. 

  59. #endif
    60.