my $surface = SDL::Surface->new(-name => 'image.png');
    SDL::Tool::Graphic::zoom(undef,$surface,0.5,0.5);