#include <SDL.h>
-#define WARNMSG "is unsupported in windows. Contact us at #sdl irc.perl.org or sdl-devel@perl.org for help."
static Uint16* av_to_uint16 (AV* av)
{
{
int i;
Uint16* table = (Uint16 *)safemalloc(sizeof(Uint16)*(len));
- //fprintf( stderr, "Expecting 1,2,5,6 \n Length is %d \n", len);
for ( i = 0; i < len+1 ; i++ ){
SV ** temp = av_fetch(av,i,0);
if( temp != NULL)
{
- table[i] = (Uint16 *) SvIV( *temp ) ;
- /* fprintf( stderr, "table[%d] = ", i);
- if (table[i] == NULL) { fprintf ( stderr, " NULL\n"); }
- else{ fprintf(stderr, " %d \n", table[i]); } */
+ table[i] = (Uint16 *) SvIV( *temp );
}
else { table[i] =0; }
}
-// warn("Got %d %d %d %d \n", table[0], table[1], table[2], table[3] );
-
return table;
}
return NULL;
float g;
float b;
CODE:
- RETVAL = -1;
-#if defined WIN32 || WINDOWS
- warn( "set_gamma: %s", WARNMSG );
-#else
RETVAL = SDL_SetGamma(r,g,b);
-#endif
-
OUTPUT:
RETVAL
AV* gt;
AV* bt;
CODE:
-#if defined WIN32 || WINDOWS
- warn( "set_gamma_ramp: %s", WARNMSG );
-#else
Uint16 *redtable, *greentable, *bluetable;
redtable = av_to_uint16(rt);
greentable = av_to_uint16(gt);
if( redtable != NULL) { safefree(redtable); }
if( greentable != NULL) { safefree(greentable); }
if( bluetable != NULL) { safefree(bluetable); }
-#endif
OUTPUT:
RETVAL
+
+
+Uint32
+video_map_RGB ( pixel_format, r, g, b )
+ SDL_PixelFormat *pixel_format
+ Uint8 r
+ Uint8 g
+ Uint8 b
+ CODE:
+ RETVAL = SDL_MapRGB(pixel_format,r,g,b);
+ OUTPUT:
+ RETVAL
+
+Uint32
+video_map_RGBA ( pixel_format, r, g, b, a )
+ SDL_PixelFormat *pixel_format
+ Uint8 r
+ Uint8 g
+ Uint8 b
+ Uint8 a
+ CODE:
+ RETVAL = SDL_MapRGB(pixel_format,r,g,b);
+ OUTPUT:
+ RETVAL
+