set_colors
set_palette
set_gamma
+ set_gamma_ramp
/;
can_ok ('SDL::Video', @done);
#testing get_video_surface
-SDL::Init(SDL_INIT_VIDEO);
+SDL::init(SDL_INIT_VIDEO);
my $display = SDL::Video::set_video_mode(640,480,32, SDL_SWSURFACE );
if(!$display){
- plan skip_all => 'Couldn\'t set video mode: '. SDL::GetError();
+ plan skip_all => 'Couldn\'t set video mode: '. SDL::geterror();
}
#diag('Testing SDL::Video');
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 $hwdisplay = SDL::Video::set_video_mode(640,480,8, SDL_HWSURFACE );
if(!$hwdisplay){
- plan skip_all => 'Couldn\'t set video mode: '. SDL::GetError();
+ plan skip_all => 'Couldn\'t set video mode: '. SDL::geterror();
}
$value = SDL::Video::set_colors($hwdisplay, 0);
my @left = qw/
get_gamma_ramp
- set_gmmma_ramp
map_RGB
map_RGBA
get_RGB