/src/Core/objects/PixelFormat.xs

http://github.com/PerlGameDev/SDL · Unknown · 178 lines · 152 code · 26 blank · 0 comment · 0 complexity · 33c89f6036b941df9ee06a1696b53bf0 MD5 · raw file 

    

  1. #include "EXTERN.h"
    2. 

  2. #include "perl.h"
    3. 

  3. #include "XSUB.h"
    4. 

  4. #include "ppport.h"
    5. 

  5. #include "helper.h"
    6. 

  6. 

  7. #ifndef aTHX_
    8. 

  8. #define aTHX_
    9. 

  9. #endif
    10. 

  10. 

  11. #include <SDL.h>
    12. 

  12. 

  13. MODULE = SDL::PixelFormat 	PACKAGE = SDL::PixelFormat    PREFIX = pixelformat_
    14. 

  14. 

  15. =for documentation
    16. 

  16. 

  17. SDL_PixelFormat -- Stores surface format information
    18. 

  18. 

  19.   typedef struct SDL_PixelFormat {
    20. 

  20.     SDL_Palette *palette;
    21. 

  21.     Uint8  BitsPerPixel;
    22. 

  22.     Uint8  BytesPerPixel;
    23. 

  23.     Uint8  Rloss, Gloss, Bloss, Aloss;
    24. 

  24.     Uint8  Rshift, Gshift, Bshift, Ashift;
    25. 

  25.     Uint32 Rmask, Gmask, Bmask, Amask;
    26. 

  26.     Uint32 colorkey;
    27. 

  27.     Uint8  alpha;
    28. 

  28.   } SDL_PixelFormat;
    29. 

  29. 

  30. =cut
    31. 

  31. 

  32. SV *
    33. 

  33. pixelformat_palette( pixelformat )
    34. 

  34. 	SDL_PixelFormat *pixelformat
    35. 

  35. 	PREINIT:
    36. 

  36. 		char* CLASS = "SDL::Palette";
    37. 

  37. 	CODE:
    38. 

  38. 		if(pixelformat->palette)
    39. 

  39. 			RETVAL = cpy2bag( pixelformat->palette, sizeof(SDL_Palette *), sizeof(SDL_Palette), "SDL::Palette" );
    40. 

  40. 		else
    41. 

  41. 			XSRETURN_UNDEF;
    42. 

  42. 	OUTPUT:
    43. 

  43. 		RETVAL
    44. 

  44. 

  45. 

  46. Uint8
    47. 

  47. pixelformat_BitsPerPixel( pixelformat )
    48. 

  48. 	SDL_PixelFormat *pixelformat
    49. 

  49. 	CODE:
    50. 

  50. 		RETVAL = pixelformat->BitsPerPixel;
    51. 

  51. 	OUTPUT:
    52. 

  52. 		RETVAL
    53. 

  53. 

  54. Uint8
    55. 

  55. pixelformat_BytesPerPixel( pixelformat )
    56. 

  56. 	SDL_PixelFormat *pixelformat
    57. 

  57. 	CODE:
    58. 

  58. 		RETVAL = pixelformat->BytesPerPixel;
    59. 

  59. 	OUTPUT:
    60. 

  60. 		RETVAL
    61. 

  61. 

  62. Uint8
    63. 

  63. pixelformat_Rloss( pixelformat )
    64. 

  64. 	SDL_PixelFormat *pixelformat
    65. 

  65. 	CODE:
    66. 

  66. 		RETVAL = pixelformat->Rloss;
    67. 

  67. 	OUTPUT:
    68. 

  68. 		RETVAL
    69. 

  69. 

  70. Uint8
    71. 

  71. pixelformat_Bloss( pixelformat )
    72. 

  72. 	SDL_PixelFormat *pixelformat
    73. 

  73. 	CODE:
    74. 

  74. 		RETVAL = pixelformat->Bloss;
    75. 

  75. 	OUTPUT:
    76. 

  76. 		RETVAL
    77. 

  77. 

  78. Uint8
    79. 

  79. pixelformat_Gloss( pixelformat )
    80. 

  80. 	SDL_PixelFormat *pixelformat
    81. 

  81. 	CODE:
    82. 

  82. 		RETVAL = pixelformat->Gloss;
    83. 

  83. 	OUTPUT:
    84. 

  84. 		RETVAL
    85. 

  85. 

  86. Uint8
    87. 

  87. pixelformat_Aloss( pixelformat )
    88. 

  88. 	SDL_PixelFormat *pixelformat
    89. 

  89. 	CODE:
    90. 

  90. 		RETVAL = pixelformat->Aloss;
    91. 

  91. 	OUTPUT:
    92. 

  92. 		RETVAL
    93. 

  93. 

  94. Uint8
    95. 

  95. pixelformat_Rshift( pixelformat )
    96. 

  96. 	SDL_PixelFormat *pixelformat
    97. 

  97. 	CODE:
    98. 

  98. 		RETVAL = pixelformat->Rshift;
    99. 

  99. 	OUTPUT:
    100. 

  100. 		RETVAL
    101. 

  101. 

  102. Uint8
    103. 

  103. pixelformat_Bshift( pixelformat )
    104. 

  104. 	SDL_PixelFormat *pixelformat
    105. 

  105. 	CODE:
    106. 

  106. 		RETVAL = pixelformat->Bshift;
    107. 

  107. 	OUTPUT:
    108. 

  108. 		RETVAL
    109. 

  109. 

  110. Uint8
    111. 

  111. pixelformat_Gshift( pixelformat )
    112. 

  112. 	SDL_PixelFormat *pixelformat
    113. 

  113. 	CODE:
    114. 

  114. 		RETVAL = pixelformat->Gshift;
    115. 

  115. 	OUTPUT:
    116. 

  116. 		RETVAL
    117. 

  117. 

  118. Uint8
    119. 

  119. pixelformat_Ashift( pixelformat )
    120. 

  120. 	SDL_PixelFormat *pixelformat
    121. 

  121. 	CODE:
    122. 

  122. 		RETVAL = pixelformat->Ashift;
    123. 

  123. 	OUTPUT:
    124. 

  124. 		RETVAL
    125. 

  125. 

  126. Uint32
    127. 

  127. pixelformat_Rmask( pixelformat )
    128. 

  128. 	SDL_PixelFormat *pixelformat
    129. 

  129. 	CODE:
    130. 

  130. 		RETVAL = pixelformat->Rmask;
    131. 

  131. 	OUTPUT:
    132. 

  132. 		RETVAL
    133. 

  133. 

  134. Uint32
    135. 

  135. pixelformat_Bmask( pixelformat )
    136. 

  136. 	SDL_PixelFormat *pixelformat
    137. 

  137. 	CODE:
    138. 

  138. 		RETVAL = pixelformat->Bmask;
    139. 

  139. 	OUTPUT:
    140. 

  140. 		RETVAL
    141. 

  141. 

  142. Uint32
    143. 

  143. pixelformat_Gmask( pixelformat )
    144. 

  144. 	SDL_PixelFormat *pixelformat
    145. 

  145. 	CODE:
    146. 

  146. 		RETVAL = pixelformat->Gmask;
    147. 

  147. 	OUTPUT:
    148. 

  148. 		RETVAL
    149. 

  149. 

  150. Uint32
    151. 

  151. pixelformat_Amask( pixelformat )
    152. 

  152. 	SDL_PixelFormat *pixelformat
    153. 

  153. 	CODE:
    154. 

  154. 		RETVAL = pixelformat->Amask;
    155. 

  155. 	OUTPUT:
    156. 

  156. 		RETVAL
    157. 

  157. 

  158. Uint32
    159. 

  159. pixelformat_colorkey( pixelformat )
    160. 

  160. 	SDL_PixelFormat *pixelformat
    161. 

  161. 	CODE:
    162. 

  162. 		RETVAL = pixelformat->colorkey;
    163. 

  163. 	OUTPUT:
    164. 

  164. 		RETVAL
    165. 

  165. 

  166. Uint8
    167. 

  167. pixelformat_alpha( pixelformat )
    168. 

  168. 	SDL_PixelFormat *pixelformat
    169. 

  169. 	CODE:
    170. 

  170. 		RETVAL = pixelformat->alpha;
    171. 

  171. 	OUTPUT:
    172. 

  172. 		RETVAL
    173. 

  173. 

  174. void
    175. 

  175. pixelformat_DESTROY ( bag )
    176. 

  176. 	SV *bag
    177. 

  177. 	CODE:
    178. 

  178. 		objDESTROY(bag, safefree);
    179.