Added more bindings for Overlay
[sdlgit/SDL_perl.git] / src / Core / objects / Overlay.xs
CommitLineData
ae2d1594 1#include "EXTERN.h"
2#include "perl.h"
3#include "XSUB.h"
4
5#ifndef aTHX_
6#define aTHX_
7#endif
8
9#include <SDL.h>
10
11MODULE = SDL::Overlay PACKAGE = SDL::Overlay PREFIX = overlay_
12
13=for documentation
14
15SDL_Overlay -- YUV video overlay
16
17typedef struct{
18 Uint32 format;
19 int w, h;
20 int planes;
21 Uint16 *pitches;
22 Uint8 **pixels;
23 Uint32 hw_overlay:1;
24} SDL_Overlay;
fcd68a90 25
ae2d1594 26
27=cut
28
fcd68a90 29SDL_Overlay *
9346cc6b 30overlay_new(CLASS, width, height, format, display)
fcd68a90 31 char* CLASS
32 int width
33 int height
34 Uint32 format
35 SDL_Surface *display;
36 CODE:
37 RETVAL = SDL_CreateYUVOverlay(width, height, format, display);
38 OUTPUT:
39 RETVAL
40
f73f699a 41int
42overlay_w( overlay )
43 SDL_Overlay* overlay
44 CODE:
45 RETVAL = overlay->w;
46 OUTPUT:
47 RETVAL
48
49int
50overlay_h( overlay )
51 SDL_Overlay* overlay
52 CODE:
53 RETVAL = overlay->h;
54 OUTPUT:
55 RETVAL
56
57int
58overlay_planes( overlay )
59 SDL_Overlay* overlay
60 CODE:
61 RETVAL = overlay->planes;
62 OUTPUT:
63 RETVAL
64
65Uint32
66overlay_hwoverlay( overlay )
67 SDL_Overlay* overlay
68 CODE:
69 RETVAL = overlay->hw_overlay;
70 OUTPUT:
71 RETVAL
72
73Uint32
74overlay_format( overlay )
75 SDL_Overlay* overlay
76 CODE:
77 RETVAL = overlay->format;
78 OUTPUT:
79 RETVAL
80
81
fcd68a90 82void
83overlay_DESTROY(overlay)
84 SDL_Overlay *overlay
85 CODE:
86 SDL_FreeYUVOverlay(overlay);
87
88