Added in Video.XS set_gamma, and stub for set_gamma_ramp. Added test for set_gamma...

[sdlgit/SDL_perl.git] / src / Core / Video.xs

diff --git a/src/Core/Video.xs b/src/Core/Video.xs
index 836fff1..083db5f 100644 (file)
--- a/src/Core/Video.xs
+++ b/src/Core/Video.xs
@@ -189,3 +189,22 @@ video_set_palette ( surface, flags, start, ... )
        OUTPUT: 
                RETVAL
 
+int
+video_set_gamma(r, g, b)
+       float r;
+       float g;
+       float b;
+       CODE:
+               RETVAL = SDL_SetGamma(r,g,b);
+
+       OUTPUT: 
+               RETVAL
+       
+int
+video_set_gamma_ramp( ... )
+       CODE:
+               Uint16 *redtable, *greentable, *bluetable;
+               RETVAL = SDL_SetGammaRamp(NULL, NULL, NULL);
+       OUTPUT:
+               RETVAL 
+