#my $temp_surf = SDL::GFX::Rotozoom::shrink_surface( $big_image, .7, .7); 
# shrink dos'nt work for me... gives floatingpoint errors
#Carp::confess SDL::get_error if !$temp_surf;
#draw( $temp_surf );

##</code><code>##

my $temp_surf = SDL::GFX::Rotozoom::shrink_surface( $big_image, 7, 7);

##</code><code>##

my $temp_surf = SDL::GFX::Rotozoom::shrink_surface( $big_image, 1.3, 1.3);