sub _make_surface
{
        my $self = shift;

        my $img = Image::Magick->new();
        $img->Read( $self->{sprite} );
        $img->AffineTransform(
                rotate => $self->{move_angle},
        );

        my $img_data = '';
        open( my $sh, '>', \$img_data )
                or die "Can't open filehandle to scalar: $!\n";
        $img->Write(
                file      => $sh,
                filename  => 'img.png',
        );
        close $sh;

        return SDL::Surface->new(
                -from  => $img_data,
        );
}