set_colors
set_palette
set_gamma
+ set_gamma_ramp
/;
can_ok ('SDL::Video', @done);
is( $value , 0, '[set_palette] returns 0 trying to write to 32 bit surface' );
-SDL::Video::set_gamma_ramp( 0, 0, 0 ); pass '[set_gamma_ramp] ran';
+my $zero = [0,0,0,0];
+SDL::Video::set_gamma_ramp($zero, $zero, $zero); pass '[set_gamma_ramp] ran';
SDL::Video::set_gamma( 1.0, 1.0, 1.0 ); pass '[set_gamma] ran ';
my @left = qw/
get_gamma_ramp
- set_gmmma_ramp
map_RGB
map_RGBA
get_RGB