/src/Core/objects/Overlay.xs

http://github.com/PerlGameDev/SDL · Unknown · 87 lines · 71 code · 16 blank · 0 comment · 0 complexity · 3ba401009a4a3cc2aefeb25303abec40 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. MODULE = SDL::Overlay 	PACKAGE = SDL::Overlay    PREFIX = overlay_
    13. 

  13. 

  14. =for documentation
    15. 

  15. 

  16. SDL_Overlay -- YUV video overlay
    17. 

  17. 

  18. typedef struct{
    19. 

  19.   Uint32 format;
    20. 

  20.   int w, h;
    21. 

  21.   int planes;
    22. 

  22.   Uint16 *pitches;
    23. 

  23.   Uint8 **pixels;
    24. 

  24.   Uint32 hw_overlay:1;
    25. 

  25. } SDL_Overlay;
    26. 

  26. 

  27. 

  28. =cut
    29. 

  29. 

  30. SDL_Overlay *
    31. 

  31. overlay_new(CLASS, width, height, format, display)
    32. 

  32. 	char* CLASS
    33. 

  33. 	int width
    34. 

  34. 	int height
    35. 

  35. 	Uint32 format
    36. 

  36. 	SDL_Surface *display;
    37. 

  37. 	CODE:
    38. 

  38. 		RETVAL = SDL_CreateYUVOverlay(width, height, format, display);
    39. 

  39. 	OUTPUT:
    40. 

  40. 		RETVAL
    41. 

  41. 

  42. int
    43. 

  43. overlay_w( overlay )
    44. 

  44. 	SDL_Overlay* overlay
    45. 

  45. 	CODE:
    46. 

  46. 		RETVAL = overlay->w;
    47. 

  47. 	OUTPUT:
    48. 

  48. 		RETVAL
    49. 

  49. 

  50. int
    51. 

  51. overlay_h( overlay )
    52. 

  52. 	SDL_Overlay* overlay
    53. 

  53. 	CODE:
    54. 

  54. 		RETVAL = overlay->h;
    55. 

  55. 	OUTPUT:
    56. 

  56. 		RETVAL
    57. 

  57. 

  58. int
    59. 

  59. overlay_planes( overlay )
    60. 

  60. 	SDL_Overlay* overlay
    61. 

  61. 	CODE:
    62. 

  62. 		RETVAL = overlay->planes;
    63. 

  63. 	OUTPUT:
    64. 

  64. 		RETVAL
    65. 

  65. 

  66. Uint32 
    67. 

  67. overlay_hwoverlay( overlay )
    68. 

  68. 	SDL_Overlay* overlay
    69. 

  69. 	CODE:
    70. 

  70. 		RETVAL = overlay->hw_overlay;		
    71. 

  71. 	OUTPUT:
    72. 

  72. 		RETVAL
    73. 

  73. 

  74. Uint32
    75. 

  75. overlay_format( overlay )
    76. 

  76. 	SDL_Overlay* overlay
    77. 

  77. 	CODE:
    78. 

  78. 		RETVAL = overlay->format;		
    79. 

  79. 	OUTPUT:
    80. 

  80. 		RETVAL
    81. 

  81. 

  82. 

  83. void
    84. 

  84. overlay_DESTROY(overlay)
    85. 

  85. 	SDL_Overlay *overlay
    86. 

  86. 	CODE:
    87. 

  87. 		SDL_FreeYUVOverlay(overlay);
    88.