[uae] patched file to support different virtual/physical screensize

  • From: "Antonio Vargas" <windenntw@xxxxxxxxx>
  • To: uae@xxxxxxxxxxxxx
  • Date: Mon, 4 Dec 2006 22:11:26 +0100

I attach complete changed sdlgfx.c file, with support for using small
framebuffer and use opengl to expand to full screen...

with this example config:

gfx_width_fullscreen=320
gfx_height_fullscreen=256
gfx_width_windowed=400
gfx_height_windowed=300
gfx_lores=true
gfx_linemode=none

when running a low-res/no-lace chipset screen, the emulator only has
to calculate 320x256 pixels and only upload 320x256 pixels to video
memory, and then via opengl we upscale to biggest possible size.

Since I hate blurred pixels, I've kept the code reduced to integer
scalings... at the moment it works 100% on windowed mode (for example
using ppaint in 640x480 picasso mode it scales to my 1280x1024
flatpannel resolution), while fullscreen for some extrange reason
gives a bit of vertical blurring... I ask for help on that one so that
we can finally have fast pixel-perfect drawing tools ;)

--
Greetz, Antonio Vargas aka winden of network

http://network.amigascne.org/
windNOenSPAMntw@xxxxxxxxx
thesameasabove@xxxxxxxxxxxxx

Every day, every year
you have to work
you have to study
you have to scene.
 /*
  * UAE - The Un*x Amiga Emulator
  *
  * SDL graphics support
  *
  * Copyright 2001 Bernd Lachner (EMail: dev@xxxxxxxxxxxxxx)
  * Copyright 2003-2006 Richard Drummond
  * Copyright 2006 Jochen Becher
  *
  * Partialy based on the UAE X interface (xwin.c)
  *
  * Copyright 1995, 1996 Bernd Schmidt
  * Copyright 1996 Ed Hanway, Andre Beck, Samuel Devulder, Bruno Coste
  * Copyright 1998 Marcus Sundberg
  * DGA support by Kai Kollmorgen
  * X11/DGA merge, hotkeys and grabmouse by Marcus Sundberg
  * OpenGL support by Jochen Becher, Richard Drummond
  */

#include "sysconfig.h"
#include "sysdeps.h"

#include <SDL.h>
#include <SDL_endian.h>
#ifdef USE_GL
# include <SDL_opengl.h>
/* These are not defined in the current version of SDL_opengl.h. */
# ifndef GL_TEXTURE_STORAGE_HINT_APPLE
#  define GL_TEXTURE_STORAGE_HINT_APPLE 0x85BC
#  endif
# ifndef GL_STORAGE_SHARED_APPLE
#  define GL_STORAGE_SHARED_APPLE 0x85BF
# endif
#endif /* USE_GL */

#include "options.h"
#include "uae.h"
#include "xwin.h"
#include "custom.h"
#include "drawing.h"
#include "keyboard.h"
#include "keybuf.h"
#include "gui.h"
#include "debug.h"
#include "picasso96.h"
#include "inputdevice.h"
#include "hotkeys.h"
#include "sdlgfx.h"

/* Uncomment for debugging output */
#define DEBUG
#ifdef DEBUG
#define DEBUG_LOG write_log
#else
#define DEBUG_LOG(...) do ; while(0)
#endif

static int winden_panel_width  = 1280;
static int winden_panel_height = 1024;
static int winden_scale_x;
static int winden_scale_y;

static SDL_Surface *display;
static SDL_Surface *screen;

/* Standard P96 screen modes */
#define MAX_SCREEN_MODES 12
static int x_size_table[MAX_SCREEN_MODES] = { 320, 320, 320, 320, 640, 640, 
640, 800, 1024, 1152, 1280 };
static int y_size_table[MAX_SCREEN_MODES] = { 200, 240, 256, 400, 350, 480, 
512, 600, 768,  864,  1024 };

/* Supported SDL screen modes */
#define MAX_SDL_SCREENMODE 32
static SDL_Rect screenmode[MAX_SDL_SCREENMODE];
static int mode_count;


static int red_bits, green_bits, blue_bits;
static int red_shift, green_shift, blue_shift;

#ifdef PICASSO96
static int screen_is_picasso;
static char picasso_invalid_lines[1201];
static int picasso_has_invalid_lines;
static int picasso_invalid_start, picasso_invalid_stop;
static int picasso_maxw = 0, picasso_maxh = 0;
#endif

static int bitdepth, bit_unit;
static int current_width, current_height;

/* If we have to lock the SDL surface, then we remember the address
 * of its pixel data - and recalculate the row maps only when this
 * address changes */
static void *old_pixels;

static SDL_Color arSDLColors[256];
#ifdef PICASSO96
static SDL_Color p96Colors[256];
#endif
static int ncolors;

static int fullscreen;
static int vsync;
static int mousegrab;
static int mousehack;

static int is_hwsurface;

static int have_rawkeys;

static int refresh_necessary;

/* This isn't supported yet.
 * gui_handle_events() needs to be reworked fist
 */
int pause_emulation;


/*
 * What graphics platform are we running on . . .?
 *
 * Yes, SDL is supposed to abstract away from the underlying
 * platform, but we need to know this to be able to map raw keys
 * and to work around any platform-specific quirks . . .
 */
int get_sdlgfx_type (void)
{
    char name[16] = "";
    static int driver = SDLGFX_DRIVER_UNKNOWN;
    static int search_done = 0;

    if (!search_done) {
        if (SDL_VideoDriverName (name, sizeof name)) {
            if (strcmp (name, "x11")==0)
                driver = SDLGFX_DRIVER_X11;
            else if (strcmp (name, "dga") == 0)
                driver = SDLGFX_DRIVER_DGA;
            else if (strcmp (name, "svgalib") == 0)
                driver = SDLGFX_DRIVER_SVGALIB;
            else if (strcmp (name, "fbcon") == 0)
                driver = SDLGFX_DRIVER_FBCON;
            else if (strcmp (name, "directfb") == 0)
                driver = SDLGFX_DRIVER_DIRECTFB;
            else if (strcmp (name, "Quartz") == 0)
                driver = SDLGFX_DRIVER_QUARTZ;
            else if (strcmp (name, "bwindow") == 0)
                driver = SDLGFX_DRIVER_BWINDOW;
            else if (strcmp (name, "CGX") == 0)
                driver = SDLGFX_DRIVER_CYBERGFX;
            else if (strcmp (name, "OS4") == 0)
                driver = SDLGFX_DRIVER_AMIGAOS4;
        }
        search_done = 1;

        DEBUG_LOG ("SDL video driver: %s\n", name);
    }
    return driver;
}

STATIC_INLINE unsigned long bitsInMask (unsigned long mask)
{
    /* count bits in mask */
    unsigned long n = 0;
    while (mask) {
        n += mask & 1;
        mask >>= 1;
    }
    return n;
}

STATIC_INLINE unsigned long maskShift (unsigned long mask)
{
    /* determine how far mask is shifted */
    unsigned long n = 0;
    while (!(mask & 1)) {
        n++;
        mask >>= 1;
    }
    return n;
}

static int get_color (int r, int g, int b, xcolnr *cnp)
{
    DEBUG_LOG ("Function: get_color\n");

    arSDLColors[ncolors].r = r << 4;
    arSDLColors[ncolors].g = g << 4;
    arSDLColors[ncolors].b = b << 4;
    *cnp = ncolors++;
    return 1;
}

static int init_colors (void)
{
    int i;

    DEBUG_LOG ("Function: init_colors\n");

#ifdef USE_GL
    if (currprefs.use_gl) {
        DEBUG_LOG ("SDLGFX: bitdepth = %d\n", bitdepth);
        if (bitdepth <= 8) {
            write_log("SDLGFX: bitdepth %d to small\n", bitdepth);
            abort();
        }
    }
#endif /* USE_GL */

    if (bitdepth > 8) {
        red_bits    = bitsInMask (display->format->Rmask);
        green_bits  = bitsInMask (display->format->Gmask);
        blue_bits   = bitsInMask (display->format->Bmask);
        red_shift   = maskShift (display->format->Rmask);
        green_shift = maskShift (display->format->Gmask);
        blue_shift  = maskShift (display->format->Bmask);

        alloc_colors64k (red_bits, green_bits, blue_bits, red_shift, 
green_shift, blue_shift, 0, 0, 0, 0);
    } else {
        alloc_colors256 (get_color);
        SDL_SetColors (screen, arSDLColors, 0, 256);
    }

    return 1;
}


/*
 * Test whether the screen mode <width>x<height>x<depth> is
 * available. If not, find a supported screen mode which best
 * matches.
 */
static int find_best_mode (int *width, int *height, int depth, int fullscreen)
{
    int found = 0;

    if (fullscreen) {
        *width  = winden_panel_width;
        *height = winden_panel_height;
    }

    DEBUG_LOG ("Function: find_best_mode(%d,%d,%d)\n", *width, *height, depth);

    /* First test whether the specified mode is supported */
    found = SDL_VideoModeOK (*width, *height, depth, fullscreen ? 
SDL_FULLSCREEN : 0);

    if (!found && mode_count > 0) {
        /* The specified mode wasn't available, so we'll try and find
         * a supported resolution which best matches it.
         */
        int i;
        write_log ("SDLGFX: Requested mode (%dx%d%d) not available.\n", *width, 
*height, depth);

        /* Note: the screenmode array should already be sorted from largest to 
smallest, since
         * that's the order SDL gives us the screenmodes. */
        for (i = mode_count - 1; i >= 0; i--) {
            if (screenmode[i].w >= *width && screenmode[i].h >= *height)
                break;
        }

        /* If we didn't find a mode, use the largest supported mode */
        if (i < 0)
            i = 0;

        *width  = screenmode[i].w;
        *height = screenmode[i].h;
        found   = 1;

        write_log ("SDLGFX: Using mode (%dx%d)\n", *width, *height);
    }
    return found;
}

#ifdef PICASSO96
/*
 * Map an SDL pixel format to a P96 pixel format
 */
static int get_p96_pixel_format (const struct SDL_PixelFormat *fmt)
{
    if (fmt->BitsPerPixel == 8)
        return RGBFB_CLUT;

#ifdef WORDS_BIGENDIAN
    if (fmt->BitsPerPixel == 24) {
        if (fmt->Rmask == 0x00FF0000 && fmt->Gmask == 0x0000FF00 && fmt->Bmask 
== 0x000000FF)
            return RGBFB_R8G8B8;
        if (fmt->Rmask == 0x000000FF && fmt->Gmask == 0x0000FF00 && fmt->Bmask 
== 0x00FF0000)
            return RGBFB_B8G8R8;
    } else if (fmt->BitsPerPixel == 32) {
        if (fmt->Rmask == 0xFF000000 && fmt->Gmask == 0x00FF0000 && fmt->Bmask 
== 0x0000FF00)
            return RGBFB_R8G8B8A8;
        if (fmt->Rmask == 0x00FF0000 && fmt->Gmask == 0x0000FF00 && fmt->Bmask 
== 0x000000FF)
            return RGBFB_A8R8G8B8;
        if (fmt->Bmask == 0x00FF0000 && fmt->Gmask == 0x0000FF00 && fmt->Rmask 
== 0x000000FF)
            return RGBFB_A8B8G8R8;
        if (fmt->Bmask == 0xFF000000 && fmt->Gmask == 0x00FF0000 && fmt->Rmask 
== 0x0000FF00)
            return RGBFB_B8G8R8A8;
    } else if (fmt->BitsPerPixel == 16) {
        if (get_sdlgfx_type () == SDLGFX_DRIVER_QUARTZ) {
            /* The MacOS X port of SDL lies about it's default pixel format
             * for high-colour display. It's always R5G5B5. */
            return RGBFB_R5G5B5;
        } else {
            if (fmt->Rmask == 0xf800 && fmt->Gmask == 0x07e0 && fmt->Bmask == 
0x001f)
                return RGBFB_R5G6B5;
            if (fmt->Rmask == 0x7C00 && fmt->Gmask == 0x03e0 && fmt->Bmask == 
0x001f)
                return RGBFB_R5G5B5;
        }
    } else if (fmt->BitsPerPixel == 15) {
        if (fmt->Rmask == 0x7C00 && fmt->Gmask == 0x03e0 && fmt->Bmask == 
0x001f)
            return RGBFB_R5G5B5;
    }
#else
    if (fmt->BitsPerPixel == 24) {
        if (fmt->Rmask == 0x00FF0000 && fmt->Gmask == 0x0000FF00 && fmt->Bmask 
== 0x000000FF)
            return RGBFB_B8G8R8;
        if (fmt->Rmask == 0x000000FF && fmt->Gmask == 0x0000FF00 && fmt->Bmask 
== 0x00FF0000)
            return RGBFB_R8G8B8;
    } else if (fmt->BitsPerPixel == 32) {
        if (fmt->Rmask == 0xFF000000 && fmt->Gmask == 0x00FF0000 && fmt->Bmask 
== 0x0000FF00)
            return RGBFB_A8B8G8R8;
        if (fmt->Rmask == 0x00FF0000 && fmt->Gmask == 0x0000FF00 && fmt->Bmask 
== 0x000000FF)
            return RGBFB_B8G8R8A8;
        if (fmt->Bmask == 0x00FF0000 && fmt->Gmask == 0x0000FF00 && fmt->Rmask 
== 0x000000FF)
            return RGBFB_R8G8B8A8;
        if (fmt->Bmask == 0xFF000000 && fmt->Gmask == 0x00FF0000 && fmt->Rmask 
== 0x0000FF00)
            return RGBFB_A8R8G8B8;
    } else if (fmt->BitsPerPixel == 16) {
        if (fmt->Rmask == 0xf800 && fmt->Gmask == 0x07e0 && fmt->Bmask == 
0x001f)
            return RGBFB_R5G6B5PC;
        if (fmt->Rmask == 0x7C00 && fmt->Gmask == 0x03e0 && fmt->Bmask == 
0x001f)
            return RGBFB_R5G5B5PC;
    } else if (fmt->BitsPerPixel == 15) {
        if (fmt->Rmask == 0x7C00 && fmt->Gmask == 0x03e0 && fmt->Bmask == 
0x001f)
            return RGBFB_R5G5B5PC;
    }
#endif

    return RGBFB_NONE;
}
#endif

/*
 * Build list of full-screen screen-modes supported by SDL
 * with the specified pixel format.
 *
 * Returns a count of the number of supported modes, -1 if any mode is 
supported,
 * or 0 if there are no modes with this pixel format.
 */
static long find_screen_modes (struct SDL_PixelFormat *vfmt, SDL_Rect 
*mode_list, int mode_list_size)
{
    long count = 0;
    SDL_Rect **modes = SDL_ListModes (vfmt, SDL_FULLSCREEN | SDL_HWSURFACE);

    if (modes != 0 && modes != (SDL_Rect**)-1) {
        unsigned int i;
        int w = -1;
        int h = -1;

        /* Filter list of modes SDL gave us and ignore duplicates */
        for (i = 0; modes[i] && count < mode_list_size; i++) {
            if (modes[i]->w != w || modes[i]->h != h) {
                mode_list[count].w = w = modes[i]->w;
                mode_list[count].h = h = modes[i]->h;
                count++;

                write_log ("SDLGFX: Found screenmode: %dx%d.\n", w, h);
            }
        }
    } else
        count = (long) modes;

    return count;
}

#ifdef USE_GL

/**
 ** Support routines for using an OpenGL texture as the display buffer.
 **
 ** TODO: Make this independent of the window system and factor it out
 **       to a new module shareable by all graphics drivers.
 **/

struct gl_buffer_t
{
    GLuint   texture;
    GLsizei  texture_width;
    GLsizei  texture_height;

    GLenum   target;
    GLenum   format;
    GLenum   type;

    uae_u8  *pixels;
    uae_u32  width;
    uae_u32  pitch;
};

static struct gl_buffer_t glbuffer[1];
static int have_texture_rectangles;
static int have_apple_client_storage;
static int have_apple_texture_range;

static int round_up_to_power_of_2 (int value)
{
    int result = 1;

    while (result < value)
        result *= 2;

    return result;
}

static void check_gl_extensions (void)
{
    static int done = 0;

    if (!done) {
        const char *extensions = (const char *) glGetString(GL_EXTENSIONS);

        have_texture_rectangles   = strstr (extensions, 
"ARB_texture_rectangle") ? 1 : 0;
        have_apple_client_storage = strstr (extensions, "APPLE_client_storage") 
 ? 1 : 0;
        have_apple_texture_range  = strstr (extensions, "APPLE_texture_range")  
 ? 1 : 0;
    }
}

static void init_gl_display (GLsizei width, GLsizei height)
{
    glViewport (0, 0, width, height);

    glColor3f (1.0f, 1.0f, 1.0f);
    glClearColor (0.0, 0.0, 0.0, 0.0);
    glShadeModel (GL_FLAT);
    glDisable (GL_DEPTH_TEST);
    glDisable (GL_ALPHA_TEST);
    glDisable (GL_LIGHTING);

    if (have_texture_rectangles)
        glEnable (GL_TEXTURE_RECTANGLE_ARB);
    else
        glEnable (GL_TEXTURE_2D);

    glMatrixMode (GL_PROJECTION);
    glLoadIdentity ();
    glOrtho (0, width, height, 0, -1.0, 1.0);
    glMatrixMode (GL_MODELVIEW);
    glLoadIdentity ();

    return;
}

static void free_gl_buffer (struct gl_buffer_t *buffer)
{
    glBindTexture (buffer->target, 0);
    glDeleteTextures (1, &buffer->texture);

    SDL_FreeSurface (display);
    display = 0;
}

static int alloc_gl_buffer (struct gl_buffer_t *buffer, int width, int height, 
int want_16bit)
{
    GLenum tex_intformat;

    buffer->width          = width;
    if (have_texture_rectangles) {
        buffer->texture_width  = width;
        buffer->texture_height = height;
        buffer->target         = GL_TEXTURE_RECTANGLE_ARB;
    } else {
        buffer->texture_width  = round_up_to_power_of_2 (width);
        buffer->texture_height = round_up_to_power_of_2 (height);
        buffer->target         = GL_TEXTURE_2D;
    }

    /* TODO: Should allocate buffer after we've successfully created the 
texture */
    if (want_16bit) {
#if defined (__APPLE__)
        display = SDL_CreateRGBSurface (SDL_SWSURFACE, buffer->texture_width, 
buffer->texture_height, 16,
                                        0x00007c00, 0x000003e0, 0x0000001f, 
0x00000000);
#else
        display = SDL_CreateRGBSurface (SDL_SWSURFACE, buffer->texture_width, 
buffer->texture_height, 16,
                                        0x0000f800, 0x000007e0, 0x0000001f, 
0x00000000);
#endif
    } else {
        display = SDL_CreateRGBSurface (SDL_SWSURFACE, buffer->texture_width, 
buffer->texture_height, 32,
                                        0x00ff0000, 0x0000ff00, 0x000000ff, 
0x00000000);
    }

    if (!display)
        return 0;

    buffer->pixels = display->pixels;
    buffer->pitch  = display->pitch;

    glGenTextures   (1, &buffer->texture);
    glBindTexture   (buffer->target, buffer->texture);
    if (have_apple_client_storage)
        glPixelStorei (GL_UNPACK_CLIENT_STORAGE_APPLE, GL_TRUE);
    if (have_apple_texture_range)
        glTexParameteri (buffer->target, GL_TEXTURE_STORAGE_HINT_APPLE, 
GL_STORAGE_SHARED_APPLE);
    glTexParameteri (buffer->target, GL_TEXTURE_MIN_FILTER, GL_NEAREST);
    glTexParameteri (buffer->target, GL_TEXTURE_MAG_FILTER, GL_NEAREST);
    glTexParameteri (buffer->target, GL_TEXTURE_WRAP_S, GL_CLAMP);
    glTexParameteri (buffer->target, GL_TEXTURE_WRAP_T, GL_CLAMP);

    /* TODO: Better method of deciding on the best texture format to use is 
needed. */
    if (want_16bit) {
#if defined (__APPLE__)
        tex_intformat     = GL_RGB5;
        buffer->format    = GL_BGRA;
        buffer->type      = GL_UNSIGNED_SHORT_1_5_5_5_REV;
#else
        tex_intformat     = GL_RGB;
        buffer->format    = GL_RGB;
        buffer->type      = GL_UNSIGNED_SHORT_5_6_5;
#endif
    } else {
        tex_intformat     = GL_RGBA8;
        buffer->format    = GL_BGRA;
        buffer->type      = GL_UNSIGNED_INT_8_8_8_8_REV;
    }

    glTexImage2D (buffer->target, 0, tex_intformat,
                  buffer->texture_width, buffer->texture_height,
                  0, buffer->format, buffer->type, buffer->pixels);

    if (glGetError () != GL_NO_ERROR) {
        write_log ("SDLGFX: Failed to allocate texture.\n");
        free_gl_buffer (buffer);
        return 0;
    }
    else
        return 1;
}



STATIC_INLINE void flush_gl_buffer (const struct gl_buffer_t *buffer, int 
first_line, int last_line)
{
    glTexSubImage2D (buffer->target, 0,
                     0, first_line, buffer->texture_width, last_line - 
first_line + 1,
                     buffer->format, buffer->type,
                     buffer->pixels + buffer->pitch * first_line);
}

STATIC_INLINE void render_gl_buffer (const struct gl_buffer_t *buffer, int 
first_line, int last_line)
{
    float tx0, ty0;
    float tx1, ty1;
    float screen_width;
    float screen_first_line;
    float screen_last_line;

    last_line++;

    if (have_texture_rectangles) {
        tx0 = 0.0f;
        ty0 = (float) first_line;
        tx1 = (float) buffer->width;
        ty1 = (float) last_line;
    } else {
        tx0 = 0.0f;
        ty0 = (float) first_line    / (float) buffer->texture_height;
        tx1 = (float) buffer->width / (float) buffer->texture_width;
        ty1 = (float) last_line     / (float) buffer->texture_height;
    }

    screen_width      = buffer->width * winden_scale_x;
    screen_first_line = first_line    * winden_scale_y;
    screen_last_line  = last_line     * winden_scale_y;

    glBegin (GL_QUADS);
        glTexCoord2f (tx0, ty0); glVertex2f (0.0f,         screen_first_line);
        glTexCoord2f (tx1, ty0); glVertex2f (screen_width, screen_first_line);
        glTexCoord2f (tx1, ty1); glVertex2f (screen_width, screen_last_line);
        glTexCoord2f (tx0, ty1); glVertex2f (0.0f,         screen_last_line);
    glEnd ();
}

#endif /* USE_GL */

/**
 ** Buffer methods not implemented for this driver.
 **/

static void sdl_flush_line (struct vidbuf_description *gfxinfo, int line_no)
{
}


/**
 ** Buffer methods for SDL surfaces that don't need locking
 **/

static int sdl_lock_nolock (struct vidbuf_description *gfxinfo)
{
    return 1;
}

static void sdl_unlock_nolock (struct vidbuf_description *gfxinfo)
{
}

STATIC_INLINE void sdl_flush_block_nolock (struct vidbuf_description *gfxinfo, 
int first_line, int last_line)
{
   SDL_UpdateRect (display, 0, first_line, current_width, last_line - 
first_line + 1);
}


/**
 ** Buffer methods for SDL surfaces that must be locked
 **/

static int sdl_lock (struct vidbuf_description *gfxinfo)
{
    int success = 0;

    DEBUG_LOG ("Function: lock\n");

    if (SDL_LockSurface (display) == 0) {
        gfxinfo->bufmem   = display->pixels;
        gfxinfo->rowbytes = display->pitch;

        if (display->pixels != old_pixels) {
           /* If the address of the pixel data has
            * changed, recalculate the row maps
            */
            init_row_map ();
            old_pixels = display->pixels;
        }
        success = 1;
    }
    return success;
}

static void sdl_unlock (struct vidbuf_description *gfxinfo)
{
    DEBUG_LOG ("Function: unlock\n");

    SDL_UnlockSurface (display);
}

static void sdl_flush_block (struct vidbuf_description *gfxinfo, int 
first_line, int last_line)
{
    DEBUG_LOG ("Function: flush_block %d %d\n", first_line, last_line);

    SDL_UnlockSurface (display);

    sdl_flush_block_nolock (gfxinfo, first_line, last_line);

    SDL_LockSurface (display);
}

static void sdl_flush_screen_dummy (struct vidbuf_description *gfxinfo, int 
first_line, int last_line)
{
}

#include "hrtimer.h"

static void sdl_flush_screen_flip (struct vidbuf_description *gfxinfo, int 
first_line, int last_line)
{
    frame_time_t start_time;
    frame_time_t sleep_time;

    SDL_BlitSurface (display,0,screen,0);

    start_time = uae_gethrtime ();

    SDL_Flip (screen);

    sleep_time = uae_gethrtime () - start_time;
    idletime += sleep_time;
}

static void sdl_flush_clear_screen (struct vidbuf_description *gfxinfo)
{
    DEBUG_LOG ("Function: flush_clear_screen\n");

    if (display) {
        SDL_Rect rect = { 0, 0, display->w, display->h };
        SDL_FillRect (display, &rect, SDL_MapRGB (display->format, 0,0,0));
        SDL_UpdateRect (display, 0, 0, rect.w, rect.h);
    }
}

#ifdef USE_GL

/**
 ** Buffer methods for SDL GL surfaces
 **/

static int sdl_gl_lock (struct vidbuf_description *gfxinfo)
{
    return 1;
}

static void sdl_gl_unlock (struct vidbuf_description *gfxinfo)
{
}

static void sdl_gl_flush_block (struct vidbuf_description *gfxinfo, int 
first_line, int last_line)
{
    // DEBUG_LOG ("Function: sdl_gl_flush_block %d %d\n", first_line, 
last_line);

    flush_gl_buffer (&glbuffer[0], first_line, last_line);
}

/* Single-buffered flush-screen method */
static void sdl_gl_flush_screen (struct vidbuf_description *gfxinfo, int 
first_line, int last_line)
{
    render_gl_buffer (&glbuffer[0], first_line, last_line);
    glFlush ();
}

/* Double-buffered flush-screen method */
static void sdl_gl_flush_screen_dbl (struct vidbuf_description *gfxinfo, int 
first_line, int last_line)
{
    render_gl_buffer (&glbuffer[0], 0, display->h - 1);
    SDL_GL_SwapBuffers ();
}

/* Double-buffered, vsynced flush-screen method */
static void sdl_gl_flush_screen_vsync (struct vidbuf_description *gfxinfo, int 
first_line, int last_line)
{
    frame_time_t start_time;
    frame_time_t sleep_time;

    render_gl_buffer (&glbuffer[0], 0, display->h - 1);

    start_time = uae_gethrtime ();

    SDL_GL_SwapBuffers ();

    sleep_time = uae_gethrtime () - start_time;
    idletime += sleep_time;
}

static void sdl_gl_flush_clear_screen (struct vidbuf_description *gfxinfo)
{
    DEBUG_LOG ("Function: sdl_gl_flush_clear_screen\n");

    if (display) {
        glClear (GL_COLOR_BUFFER_BIT | GL_DEPTH_BUFFER_BIT);
        SDL_GL_SwapBuffers ();
        glClear (GL_COLOR_BUFFER_BIT | GL_DEPTH_BUFFER_BIT);
        SDL_GL_SwapBuffers ();
    }
}

#endif /* USE_GL */

int graphics_setup (void)
{
    int result = 0;

    if (SDL_InitSubSystem (SDL_INIT_VIDEO) == 0) {

        const SDL_version   *version = SDL_Linked_Version ();
        const SDL_VideoInfo *info    = SDL_GetVideoInfo ();

        write_log ("SDLGFX: Initialized.\n");
        write_log ("SDLGFX: Using SDL version %d.%d.%d.\n", version->major, 
version->minor, version->patch);

        /* Find default display depth */
        bitdepth = info->vfmt->BitsPerPixel;
        bit_unit = info->vfmt->BytesPerPixel * 8;

        write_log ("SDLGFX: Display is %d bits deep.\n", bitdepth);

        /* Build list of screenmodes */
        mode_count = find_screen_modes (info->vfmt, &screenmode[0], 
MAX_SDL_SCREENMODE);

        result = 1;
    } else
        write_log ("SDLGFX: initialization failed - %s\n", SDL_GetError());

    return result;
}

#ifdef USE_GL

/*
 * Mergin this function into graphics_subinit_gl is possible but gives us a lot 
of
 * ifdefs.
 */
static int graphics_subinit_gl (void)
{
    Uint32 uiSDLVidModFlags = 0;
    int dblbuff = 0;
    int want_16bit;

    vsync = 0;

    DEBUG_LOG ("Function: graphics_subinit_gl\n");

    /* Request double-buffered mode only when vsyncing
     * is requested and we can determine whether vsyncing
     * is supported.
     */
#if SDL_VERSION_ATLEAST(1, 2, 10)
    if (!screen_is_picasso && currprefs.gfx_vsync) {
        DEBUG_LOG ("Want double-buffering.\n");
        SDL_GL_SetAttribute (SDL_GL_DOUBLEBUFFER, 1);
        SDL_GL_SetAttribute (SDL_GL_SWAP_CONTROL, 1);
    } else {
        SDL_GL_SetAttribute (SDL_GL_DOUBLEBUFFER, 0);
        SDL_GL_SetAttribute (SDL_GL_SWAP_CONTROL, 0);
    }
#else
    SDL_GL_SetAttribute (SDL_GL_DOUBLEBUFFER, 0);
#endif

    if (bitdepth <= 16 || (!screen_is_picasso && !(currprefs.chipset_mask & 
CSMASK_AGA))) {
        DEBUG_LOG ("Want 16-bit framebuffer.\n");
        SDL_GL_SetAttribute (SDL_GL_RED_SIZE,   5);
        SDL_GL_SetAttribute (SDL_GL_GREEN_SIZE, 5);
        SDL_GL_SetAttribute (SDL_GL_BLUE_SIZE,  5);
        want_16bit = 1;
    } else {
        SDL_GL_SetAttribute (SDL_GL_RED_SIZE,   8);
        SDL_GL_SetAttribute (SDL_GL_GREEN_SIZE, 8);
        SDL_GL_SetAttribute (SDL_GL_BLUE_SIZE,  8);
        want_16bit = 0;
    }

    // TODO: introduce a virtual resolution with scaling
    uiSDLVidModFlags = SDL_OPENGL;
    if (fullscreen) {
        uiSDLVidModFlags |= SDL_FULLSCREEN;
    }

    winden_scale_x = winden_panel_width  / current_width;
    winden_scale_y = winden_panel_height / current_height;

    winden_scale_x = (winden_scale_x < 1) ? 1 : winden_scale_x;
    winden_scale_y = (winden_scale_y < 1) ? 1 : winden_scale_y;

    DEBUG_LOG ("Resolution: %d x %d \n", current_width, current_height);
    DEBUG_LOG ("Scaling:    %d x %d \n", winden_scale_x, winden_scale_y);

    screen = SDL_SetVideoMode (winden_scale_x * current_width, winden_scale_y * 
current_height, 0, uiSDLVidModFlags);

    if (screen == NULL) {
        gui_message ("Unable to set video mode: %s\n", SDL_GetError ());
        return 0;
    } else {
        /* Just in case we didn't get exactly what we asked for . . . */
        fullscreen   = ((screen->flags & SDL_FULLSCREEN) == SDL_FULLSCREEN);
        is_hwsurface = 0;

        /* Are these values what we expected? */
#       ifdef PICASSO96
            DEBUG_LOG ("P96 screen?    : %d\n", screen_is_picasso);
#       endif
        DEBUG_LOG ("Fullscreen?    : %d\n", fullscreen);
        DEBUG_LOG ("Mouse grabbed? : %d\n", mousegrab);
        DEBUG_LOG ("HW surface?    : %d\n", is_hwsurface);
        DEBUG_LOG ("Must lock?     : %d\n", SDL_MUSTLOCK (screen));
        DEBUG_LOG ("Bytes per Pixel: %d\n", screen->format->BytesPerPixel);
        DEBUG_LOG ("Bytes per Line : %d\n", screen->pitch);

        SDL_GL_GetAttribute (SDL_GL_DOUBLEBUFFER, &dblbuff);
#if SDL_VERSION_ATLEAST(1, 2, 10)
        if (dblbuff)
            SDL_GL_GetAttribute (SDL_GL_SWAP_CONTROL, &vsync);
#endif

        if (currprefs.gfx_vsync && !vsync)
            write_log ("SDLGFX: vsynced output not supported.\n");

        gfxvidinfo.lockscr = sdl_gl_lock;
        gfxvidinfo.unlockscr = sdl_gl_unlock;
        gfxvidinfo.flush_block = sdl_gl_flush_block;
        gfxvidinfo.flush_clear_screen = sdl_gl_flush_clear_screen;

        if (dblbuff) {
            if (vsync) {
                write_log ("SDLGFX: Using double-buffered, vsynced output.\n");
                gfxvidinfo.flush_screen = sdl_gl_flush_screen_vsync;
            } else {
                write_log ("SDLGFX: Using double-buffered, unsynced output.\n");
                gfxvidinfo.flush_screen = sdl_gl_flush_screen_dbl;
            }
        } else {
            write_log ("SDLGFX: Using single-buffered output.\n");
            gfxvidinfo.flush_screen = sdl_gl_flush_screen;
        }

        check_gl_extensions ();

        init_gl_display (winden_scale_x * current_width, winden_scale_y * 
current_height);
        if (!alloc_gl_buffer (&glbuffer[0], current_width, current_height, 
want_16bit))
            return 0;

#ifdef PICASSO96
        if (!screen_is_picasso) {
#endif
            gfxvidinfo.bufmem = display->pixels;
            gfxvidinfo.emergmem = 0;
            gfxvidinfo.maxblocklines = gfxvidinfo.height;
            gfxvidinfo.linemem = 0;
            gfxvidinfo.pixbytes = display->format->BytesPerPixel;
            gfxvidinfo.rowbytes = display->pitch;
            SDL_SetColors (display, arSDLColors, 0, 256);
            reset_drawing ();
            old_pixels = (void *) -1;
#ifdef PICASSO96
        } else {
            /* Initialize structure for Picasso96 video modes */
            picasso_vidinfo.rowbytes    = display->pitch;
            picasso_vidinfo.extra_mem   = 1;
            picasso_vidinfo.depth       = bitdepth;
            picasso_has_invalid_lines   = 0;
            picasso_invalid_start       = picasso_vidinfo.height + 1;
            picasso_invalid_stop        = -1;
            memset (picasso_invalid_lines, 0, sizeof picasso_invalid_lines);
            refresh_necessary           = 1;
        }
#endif
    }

    return 1;
}

#endif /* USE_GL */

static int graphics_subinit (void)
{
#ifdef USE_GL
    if (currprefs.use_gl) {
        if (graphics_subinit_gl () == 0)
            return 0;
    } else {
#endif /* USE_GL */

    Uint32 uiSDLVidModFlags = 0;

    DEBUG_LOG ("Function: graphics_subinit\n");

    if (bitdepth == 8)
        uiSDLVidModFlags |= SDL_HWPALETTE;
    if (fullscreen) {
        uiSDLVidModFlags |= SDL_FULLSCREEN | SDL_HWSURFACE;
        if (!screen_is_picasso && currprefs.gfx_vsync)
            uiSDLVidModFlags |= SDL_DOUBLEBUF;
    }

    DEBUG_LOG ("Resolution: %d x %d x %d\n", current_width, current_height, 
bitdepth);

    screen = SDL_SetVideoMode (current_width, current_height, bitdepth, 
uiSDLVidModFlags);

    if (screen == NULL) {
        gui_message ("Unable to set video mode: %s\n", SDL_GetError ());
        return 0;
    } else {
        /* Just in case we didn't get exactly what we asked for . . . */
        fullscreen   = ((screen->flags & SDL_FULLSCREEN) == SDL_FULLSCREEN);
        is_hwsurface = ((screen->flags & SDL_HWSURFACE)  == SDL_HWSURFACE);

        /* We assume that double-buffering is vsynced, but we have no way of
         * knowing if it really is. */
        vsync        = ((screen->flags & SDL_DOUBLEBUF) == SDL_DOUBLEBUF);

        /* Are these values what we expected? */
#       ifdef PICASSO96
            DEBUG_LOG ("P96 screen?    : %d\n", screen_is_picasso);
#       endif
        DEBUG_LOG ("Fullscreen?    : %d\n", fullscreen);
        DEBUG_LOG ("Mouse grabbed? : %d\n", mousegrab);
        DEBUG_LOG ("HW surface?    : %d\n", is_hwsurface);
        DEBUG_LOG ("Must lock?     : %d\n", SDL_MUSTLOCK (screen));
        DEBUG_LOG ("Bytes per Pixel: %d\n", screen->format->BytesPerPixel);
        DEBUG_LOG ("Bytes per Line : %d\n", screen->pitch);

        /* Set up buffer methods */
        if (SDL_MUSTLOCK (screen)) {
            gfxvidinfo.lockscr     = sdl_lock;
            gfxvidinfo.unlockscr   = sdl_unlock;
            gfxvidinfo.flush_block = sdl_flush_block;
        } else {
            gfxvidinfo.lockscr     = sdl_lock_nolock;
            gfxvidinfo.unlockscr   = sdl_unlock_nolock;
            gfxvidinfo.flush_block = sdl_flush_block_nolock;
        }
        gfxvidinfo.flush_clear_screen = sdl_flush_clear_screen;


        if (vsync) {
            display = SDL_CreateRGBSurface(SDL_HWSURFACE, screen->w, screen->h, 
screen->format->BitsPerPixel,
                                          screen->format->Rmask, 
screen->format->Gmask, screen->format->Bmask, 0);

            gfxvidinfo.flush_screen = sdl_flush_screen_flip;
        } else {
            display = screen;

            gfxvidinfo.flush_screen = sdl_flush_screen_dummy;
        }

#ifdef PICASSO96
        if (!screen_is_picasso) {
#endif
            /* Initialize structure for Amiga video modes */
            if (is_hwsurface) {
                SDL_LockSurface (display);
                gfxvidinfo.bufmem        = 0;
                gfxvidinfo.emergmem      = malloc (display->pitch);
                gfxvidinfo.maxblocklines = 0;
                SDL_UnlockSurface (display);
            }

            if (!is_hwsurface) {
                gfxvidinfo.bufmem        = display->pixels;
                gfxvidinfo.emergmem      = 0;
                gfxvidinfo.maxblocklines = gfxvidinfo.height;
            }
            gfxvidinfo.linemem          = 0;
            gfxvidinfo.pixbytes         = display->format->BytesPerPixel;
            gfxvidinfo.rowbytes         = display->pitch;


            SDL_SetColors (display, arSDLColors, 0, 256);

            reset_drawing ();

            /* Force recalculation of row maps - if we're locking */
            old_pixels = (void *)-1;
#ifdef PICASSO96
        } else {
            /* Initialize structure for Picasso96 video modes */
            picasso_vidinfo.rowbytes    = display->pitch;
            picasso_vidinfo.extra_mem   = 1;
            picasso_vidinfo.depth       = bitdepth;
            picasso_has_invalid_lines   = 0;
            picasso_invalid_start       = picasso_vidinfo.height + 1;
            picasso_invalid_stop        = -1;

            memset (picasso_invalid_lines, 0, sizeof picasso_invalid_lines);
        }
#endif
    }


#ifdef USE_GL
    }
#endif /* USE_GL */

    /* Set UAE window title and icon name */
    SDL_WM_SetCaption (PACKAGE_NAME, PACKAGE_NAME);

    /* Mouse is now always grabbed when full-screen - to work around
     * problems with full-screen mouse input in some SDL implementations */
    if (fullscreen)
        SDL_WM_GrabInput (SDL_GRAB_ON);
    else
        SDL_WM_GrabInput (mousegrab ? SDL_GRAB_ON : SDL_GRAB_OFF);

    /* Hide mouse cursor */
    SDL_ShowCursor (currprefs.hide_cursor || fullscreen || mousegrab ? 
SDL_DISABLE : SDL_ENABLE);

    mousehack = !fullscreen && !mousegrab;

    inputdevice_release_all_keys ();
    reset_hotkeys ();

    return init_colors ();
}

int graphics_init (void)
{
    int success = 0;

    DEBUG_LOG ("Function: graphics_init\n");

    if (currprefs.color_mode > 5) {
        write_log ("Bad color mode selected. Using default.\n");
        currprefs.color_mode = 0;
    }

#ifdef PICASSO96
    screen_is_picasso = 0;
#endif
    fullscreen = currprefs.gfx_afullscreen;
    mousegrab = 0;

    fixup_prefs_dimensions (&currprefs);

    current_width  = currprefs.gfx_width_win;
    current_height = currprefs.gfx_height_win;

    if (find_best_mode (&current_width, &current_height, bitdepth, fullscreen)) 
{
        gfxvidinfo.width  = current_width;
        gfxvidinfo.height = current_height;

        if (graphics_subinit ()) {
            success = 1;
        }
    }
    return success;
}

static void graphics_subshutdown (void)
{
    DEBUG_LOG ("Function: graphics_subshutdown\n");

#ifdef USE_GL
    if (currprefs.use_gl)
        free_gl_buffer (&glbuffer[0]);
    else
#endif /* USE_GL */
    {
        SDL_FreeSurface (display);
        if (display != screen)
            SDL_FreeSurface (screen);
    }
    display = screen = 0;
    mousehack = 0;

    if (gfxvidinfo.emergmem) {
        free (gfxvidinfo.emergmem);
        gfxvidinfo.emergmem = 0;
    }

#if 0
// This breaks catastrophically on some systems. Better work-around needed.
#ifdef USE_GL
    if (currprefs.use_gl) {
        /*
         * Nasty work-around.
         *
         * We don't seem to be able reset GL attributes such as
         * SDL_GL_DOUBLEBUFFER unless we tear down the video driver.
         */
        SDL_QuitSubSystem(SDL_INIT_VIDEO);
        SDL_InitSubSystem(SDL_INIT_VIDEO);
    }
#endif
#endif
}

void graphics_leave (void)
{
    DEBUG_LOG ("Function: graphics_leave\n");

    graphics_subshutdown ();
    SDL_QuitSubSystem(SDL_INIT_VIDEO);
    dumpcustom ();
}

void handle_events (void)
{
    SDL_Event rEvent;

    gui_handle_events ();

    while (SDL_PollEvent (&rEvent)) {
        switch (rEvent.type) {
            case SDL_QUIT:
                DEBUG_LOG ("Event: quit\n");
                uae_quit();
                break;

            case SDL_MOUSEBUTTONDOWN:
            case SDL_MOUSEBUTTONUP: {
                int state = (rEvent.type == SDL_MOUSEBUTTONDOWN);
                int buttonno = -1;

                DEBUG_LOG ("Event: mouse button %d %s\n", rEvent.button.button, 
state ? "down" : "up");

                switch (rEvent.button.button) {
                    case SDL_BUTTON_LEFT:      buttonno = 0; break;
                    case SDL_BUTTON_MIDDLE:    buttonno = 2; break;
                    case SDL_BUTTON_RIGHT:     buttonno = 1; break;
#ifdef SDL_BUTTON_WHEELUP
                    case SDL_BUTTON_WHEELUP:   if (state) record_key (0x7a << 
1); break;
                    case SDL_BUTTON_WHEELDOWN: if (state) record_key (0x7b << 
1); break;
#endif
                }
                if (buttonno >= 0)
                    setmousebuttonstate (0, buttonno, rEvent.type == 
SDL_MOUSEBUTTONDOWN ? 1:0);
                break;
            }

            case SDL_KEYUP:
            case SDL_KEYDOWN: {
                int state = (rEvent.type == SDL_KEYDOWN);
                int keycode;
                int ievent;

                if (currprefs.map_raw_keys) {
                    keycode = rEvent.key.keysym.scancode;
                    // Hack - OS4 keyup events have bit 7 set.
#                   ifdef TARGET_AMIGAOS
                        keycode &= 0x7F;
#                   endif
                    modifier_hack (&keycode, &state);
                } else
                    keycode = rEvent.key.keysym.sym;

                DEBUG_LOG ("Event: key %d %s\n", keycode, state ? "down" : 
"up");

                if ((ievent = match_hotkey_sequence (keycode, state))) {
                     DEBUG_LOG ("Hotkey event: %d\n", ievent);
                     handle_hotkey_event (ievent, state);
                } else {
                     if (currprefs.map_raw_keys)
                        inputdevice_translatekeycode (0, keycode, state);
                     else
                        inputdevice_do_keyboard (keysym2amiga (keycode), state);
                }
                break;
            }

            case SDL_MOUSEMOTION:
                //DEBUG_LOG ("Event: mouse motion\n");

                if (!fullscreen && !mousegrab) {
                    setmousestate (0, 0, rEvent.motion.x / winden_scale_x, 1);
                    setmousestate (0, 1, rEvent.motion.y / winden_scale_y, 1);
                } else {
                    setmousestate (0, 0, rEvent.motion.xrel , 0);
                    setmousestate (0, 1, rEvent.motion.yrel , 0);
                    //setmousestate (0, 0, rEvent.motion.xrel / winden_scale_x, 
0);
                    //setmousestate (0, 1, rEvent.motion.yrel / winden_scale_y, 
0);
                }
                break;

          case SDL_ACTIVEEVENT:
                if (rEvent.active.state & SDL_APPINPUTFOCUS && 
!rEvent.active.gain) {
                    DEBUG_LOG ("Lost input focus\n");
                    inputdevice_release_all_keys ();
                    reset_hotkeys ();
                }
                break;

            case SDL_VIDEOEXPOSE:
                if (screen_is_picasso)
                    refresh_necessary = 1;
                else
                    notice_screen_contents_lost ();
                break;
        } /* end switch() */
    } /* end while() */

#ifdef PICASSO96
# ifdef USE_GL
    if (!currprefs.use_gl) {
# endif /* USE_GL */
        if (screen_is_picasso && refresh_necessary) {
            SDL_UpdateRect (screen, 0, 0, picasso_vidinfo.width, 
picasso_vidinfo.height);
            refresh_necessary = 0;
            memset (picasso_invalid_lines, 0, sizeof picasso_invalid_lines);
        } else if (screen_is_picasso && picasso_has_invalid_lines) {
            int i;
            int strt = -1;
# define OPTIMIZE_UPDATE_RECS
# ifdef OPTIMIZE_UPDATE_RECS
            static SDL_Rect *updaterecs = 0;
            static int updaterecssize = 0;
            int urc = 0;

            if (picasso_vidinfo.height / 2 + 1 > updaterecssize) {
                if (updaterecs)
                    free (updaterecs);
                updaterecssize = picasso_vidinfo.height / 2 + 1;
                updaterecs = (SDL_Rect *) calloc (updaterecssize, sizeof 
(SDL_Rect));
            }
# endif
            picasso_invalid_lines[picasso_vidinfo.height] = 0;
            for (i = picasso_invalid_start; i < picasso_invalid_stop + 2; i++) {
                if (picasso_invalid_lines[i]) {
                    picasso_invalid_lines[i] = 0;
                    if (strt != -1)
                        continue;
                    strt = i;
                } else {
                    if (strt == -1)
                        continue;
# ifdef OPTIMIZE_UPDATE_RECS
                    updaterecs[urc].x = 0;
                    updaterecs[urc].y = strt;
                    updaterecs[urc].w = picasso_vidinfo.width;
                    updaterecs[urc].h = i - strt;
                    urc++;
# else
                    SDL_UpdateRect (screen, 0, strt, picasso_vidinfo.width, i - 
strt);
# endif
                    strt = -1;
                }
            }
            if (strt != -1)
                abort ();
# ifdef OPTIMIZE_UPDATE_RECS
            SDL_UpdateRects (screen, urc, updaterecs);
# endif
        }
        picasso_has_invalid_lines = 0;
        picasso_invalid_start = picasso_vidinfo.height + 1;
        picasso_invalid_stop = -1;
# ifdef USE_GL
    } else {
        if (screen_is_picasso && refresh_necessary) {

            flush_gl_buffer (&glbuffer[0], 0, picasso_vidinfo.height - 1);
            render_gl_buffer (&glbuffer[0], 0, picasso_vidinfo.height - 1);

            glFlush ();
            SDL_GL_SwapBuffers ();

            refresh_necessary = 0;
            memset (picasso_invalid_lines, 0, sizeof picasso_invalid_lines);
        } else if (screen_is_picasso && picasso_has_invalid_lines) {
            int i;
            int strt = -1;

            picasso_invalid_lines[picasso_vidinfo.height] = 0;
            for (i = picasso_invalid_start; i < picasso_invalid_stop + 2; i++) {
                if (picasso_invalid_lines[i]) {
                    picasso_invalid_lines[i] = 0;
                    if (strt != -1)
                        continue;
                    strt = i;
                } else {
                    if (strt != -1) {
                        flush_gl_buffer (&glbuffer[0], strt, i - 1);
                        strt = -1;
                    }
                }
            }
            if (strt != -1)
                abort ();

            render_gl_buffer (&glbuffer[0], picasso_invalid_start, 
picasso_invalid_stop);

            glFlush();
            SDL_GL_SwapBuffers();
        }

        picasso_has_invalid_lines = 0;
        picasso_invalid_start = picasso_vidinfo.height + 1;
        picasso_invalid_stop = -1;
    }
# endif /* USE_GL */
#endif /* PICASSSO96 */
}

static void switch_keymaps (void)
{
    if (currprefs.map_raw_keys) {
        if (have_rawkeys) {
            set_default_hotkeys (get_default_raw_hotkeys ());
            write_log ("Using raw keymap\n");
        } else {
            currprefs.map_raw_keys = changed_prefs.map_raw_keys = 0;
            write_log ("Raw keys not supported\n");
        }
    }
    if (!currprefs.map_raw_keys) {
        set_default_hotkeys (get_default_cooked_hotkeys ());
        write_log ("Using cooked keymap\n");
    }
}

int check_prefs_changed_gfx (void)
{
    if (changed_prefs.map_raw_keys != currprefs.map_raw_keys) {
        switch_keymaps ();
        currprefs.map_raw_keys = changed_prefs.map_raw_keys;
    }

    if (changed_prefs.gfx_width_win  != currprefs.gfx_width_win
     || changed_prefs.gfx_height_win != currprefs.gfx_height_win
     || changed_prefs.gfx_width_fs   != currprefs.gfx_width_fs
     || changed_prefs.gfx_height_fs  != currprefs.gfx_height_fs) {
        fixup_prefs_dimensions (&changed_prefs);
    } else if (changed_prefs.gfx_lores          == currprefs.gfx_lores
            && changed_prefs.gfx_linedbl        == currprefs.gfx_linedbl
            && changed_prefs.gfx_correct_aspect == currprefs.gfx_correct_aspect
            && changed_prefs.gfx_xcenter        == currprefs.gfx_xcenter
            && changed_prefs.gfx_ycenter        == currprefs.gfx_ycenter
            && changed_prefs.gfx_afullscreen    == currprefs.gfx_afullscreen
            && changed_prefs.gfx_pfullscreen    == currprefs.gfx_pfullscreen) {
        return 0;
    }

    DEBUG_LOG ("Function: check_prefs_changed_gfx\n");

#ifdef PICASSO96
    if (!screen_is_picasso)
        graphics_subshutdown ();
#endif

    currprefs.gfx_width_win      = changed_prefs.gfx_width_win;
    currprefs.gfx_height_win     = changed_prefs.gfx_height_win;
    currprefs.gfx_width_fs       = changed_prefs.gfx_width_fs;
    currprefs.gfx_height_fs      = changed_prefs.gfx_height_fs;
    currprefs.gfx_lores          = changed_prefs.gfx_lores;
    currprefs.gfx_linedbl        = changed_prefs.gfx_linedbl;
    currprefs.gfx_correct_aspect = changed_prefs.gfx_correct_aspect;
    currprefs.gfx_xcenter        = changed_prefs.gfx_xcenter;
    currprefs.gfx_ycenter        = changed_prefs.gfx_ycenter;
    currprefs.gfx_afullscreen    = changed_prefs.gfx_afullscreen;
    currprefs.gfx_pfullscreen    = changed_prefs.gfx_pfullscreen;

    gui_update_gfx ();

#ifdef PICASSO96
    if (!screen_is_picasso)
#endif
        graphics_subinit ();

    return 0;
}

int debuggable (void)
{
    return 1;
}

int mousehack_allowed (void)
{
    return mousehack;
}

void LED (int on)
{
}

#ifdef PICASSO96

void DX_Invalidate (int first, int last)
{
    // DEBUG_LOG ("Function: DX_Invalidate %i - %i\n", first, last);

    if (is_hwsurface)
        return;

    if (first > last)
        return;

    picasso_has_invalid_lines = 1;
    if (first < picasso_invalid_start)
        picasso_invalid_start = first;
    if (last > picasso_invalid_stop)
        picasso_invalid_stop = last;

    while (first <= last) {
        picasso_invalid_lines[first] = 1;
        first++;
    }
}

int DX_BitsPerCannon (void)
{
    return 8;
}

static int palette_update_start = 256;
static int palette_update_end   = 0;

void DX_SetPalette (int start, int count)
{
    DEBUG_LOG ("Function: DX_SetPalette\n");

    if (! screen_is_picasso || picasso96_state.RGBFormat != RGBFB_CHUNKY)
        return;

    if (picasso_vidinfo.pixbytes != 1) {
        /* This is the case when we're emulating a 256 color display. */
        while (count-- > 0) {
            int r = picasso96_state.CLUT[start].Red;
            int g = picasso96_state.CLUT[start].Green;
            int b = picasso96_state.CLUT[start].Blue;
            picasso_vidinfo.clut[start++] =
                                 (doMask256 (r, red_bits, red_shift)
                                | doMask256 (g, green_bits, green_shift)
                                | doMask256 (b, blue_bits, blue_shift));
        }
    } else {
        int i;
        for (i = start; i < start+count && i < 256;  i++) {
            p96Colors[i].r = picasso96_state.CLUT[i].Red;
            p96Colors[i].g = picasso96_state.CLUT[i].Green;
            p96Colors[i].b = picasso96_state.CLUT[i].Blue;
        }
        SDL_SetColors (screen, &p96Colors[start], start, count);
    }
}

void DX_SetPalette_vsync(void)
{
    if (palette_update_end > palette_update_start) {
        DX_SetPalette (palette_update_start,
                                palette_update_end - palette_update_start);
    palette_update_end   = 0;
    palette_update_start = 0;
  }
}

int DX_Fill (int dstx, int dsty, int width, int height, uae_u32 color, RGBFTYPE 
rgbtype)
{
    int result = 0;
#ifdef USE_GL /* TODO think about optimization for GL */
    if (!currprefs.use_gl) {
#endif /* USE_GL */

    SDL_Rect rect = {dstx, dsty, width, height};

    DEBUG_LOG ("DX_Fill (x:%d y:%d w:%d h:%d color=%08x)\n", dstx, dsty, width, 
height, color);

    if (SDL_FillRect (screen, &rect, color) == 0) {
        DX_Invalidate (dsty, dsty + height - 1);
        result = 1;
    }
#ifdef USE_GL
    }
#endif /* USE_GL */
    return result;
}

int DX_Blit (int srcx, int srcy, int dstx, int dsty, int width, int height, 
BLIT_OPCODE opcode)
{
    int result = 0;
#ifdef USE_GL /* TODO think about optimization for GL */
    if (!currprefs.use_gl) {
#endif /* USE_GL */
    SDL_Rect src_rect  = {srcx, srcy, width, height};
    SDL_Rect dest_rect = {dstx, dsty, 0, 0};

    DEBUG_LOG ("DX_Blit (sx:%d sy:%d dx:%d dy:%d w:%d h:%d op:%d)\n",
               srcx, srcy, dstx, dsty, width, height, opcode);

    if (opcode == BLIT_SRC && SDL_BlitSurface (screen, &src_rect, screen, 
&dest_rect) == 0) {
        DX_Invalidate (dsty, dsty + height - 1);
        result = 1;
    }
#ifdef USE_GL
    }
#endif /* USE_GL */
    return result;
}

/*
 * Add a screenmode to the emulated P96 display database
 */
static void add_p96_mode (int width, int height, int emulate_chunky, int *count)
{
    unsigned int i;

    for (i = 0; i <= (emulate_chunky ? 1 : 0); i++) {
        if (*count < MAX_PICASSO_MODES) {
            DisplayModes[*count].res.width  = width;
            DisplayModes[*count].res.height = height;
            DisplayModes[*count].depth      = (i == 1) ? 1 : bit_unit >> 3;
            DisplayModes[*count].refresh    = 75;
            (*count)++;

            write_log ("SDLGFX: Added P96 mode: %dx%dx%d\n", width, height, (i 
== 1) ? 8 : bitdepth);
        }
    }
    return;
}

int DX_FillResolutions (uae_u16 *ppixel_format)
{
    int i;
    int count = 0;
    int emulate_chunky = 0;

    DEBUG_LOG ("Function: DX_FillResolutions\n");

    /* Find supported pixel formats */
#ifdef USE_GL
    if (!currprefs.use_gl) {
#endif /* USE_GL */
    picasso_vidinfo.rgbformat = get_p96_pixel_format (SDL_GetVideoInfo()->vfmt);
#ifdef USE_GL
    } else {
#if SDL_BYTEORDER == SDL_BIG_ENDIAN
        if (bit_unit == 16)
#           if defined (__APPLE__)
                picasso_vidinfo.rgbformat = RGBFB_R5G5B5;
#           else
                picasso_vidinfo.rgbformat = RGBFB_R5G6B5;
#           endif
        else
            picasso_vidinfo.rgbformat = RGBFB_A8R8G8B8;
#else
        if (bit_unit == 16)
#           if defined (__APPLE__)
                picasso_vidinfo.rgbformat = RGBFB_R5G5B5PC;
#           else
                picasso_vidinfo.rgbformat = RGBFB_R5G6B5PC;
#           endif
        else
            picasso_vidinfo.rgbformat = RGBFB_B8G8R8A8;
#endif
    }
#endif /* USE_GL */

    *ppixel_format = 1 << picasso_vidinfo.rgbformat;
    if (bit_unit == 16 || bit_unit == 32) {
        *ppixel_format |= RGBFF_CHUNKY;
        emulate_chunky = 1;
    }

    /* Check list of standard P96 screenmodes */
    for (i = 0; i < MAX_SCREEN_MODES; i++) {
        if (SDL_VideoModeOK (x_size_table[i], y_size_table[i], bitdepth,
                             SDL_HWSURFACE | SDL_FULLSCREEN)) {
            add_p96_mode (x_size_table[i], y_size_table[i], emulate_chunky, 
&count);
        }
    }

    /* Check list of supported SDL screenmodes */
    for (i = 0; i < mode_count; i++) {
        int j;
        int found = 0;
        for (j = 0; j < MAX_SCREEN_MODES - 1; j++) {
            if (screenmode[i].w == x_size_table[j] &&
                screenmode[i].h == y_size_table[j])
            {
                found = 1;
                break;
            }
        }

        /* If SDL mode is not a standard P96 mode (and thus already added to the
         * list, above) then add it */
        if (!found)
            add_p96_mode (screenmode[i].w, screenmode[i].h, emulate_chunky, 
&count);
    }

    return count;
}

static void set_window_for_picasso (void)
{
    DEBUG_LOG ("Function: set_window_for_picasso\n");

//  TODO: Need to check more than just size change here
//    if (current_width == picasso_vidinfo.width && current_height == 
picasso_vidinfo.height)
//      return;

    graphics_subshutdown();
    current_width  = picasso_vidinfo.width;
    current_height = picasso_vidinfo.height;
    graphics_subinit();
}

void gfx_set_picasso_modeinfo (int w, int h, int depth, int rgbfmt)
{
    DEBUG_LOG ("Function: gfx_set_picasso_modeinfo w: %i h: %i depth: %i 
rgbfmt: %i\n", w, h, depth, rgbfmt);

    picasso_vidinfo.width = w;
    picasso_vidinfo.height = h;
    picasso_vidinfo.depth = depth;
    picasso_vidinfo.pixbytes = bit_unit >> 3;
    if (screen_is_picasso)
        set_window_for_picasso();
}

void gfx_set_picasso_baseaddr (uaecptr a)
{
}

void gfx_set_picasso_state (int on)
{
    DEBUG_LOG ("Function: gfx_set_picasso_state: %d\n", on);

    if (on == screen_is_picasso)
        return;

    graphics_subshutdown ();
    screen_is_picasso = on;

    if (on) {
        // Set height, width for Picasso gfx
        current_width  = picasso_vidinfo.width;
        current_height = picasso_vidinfo.height;
        graphics_subinit ();
    } else {
        // Set height, width for Amiga gfx
        current_width  = gfxvidinfo.width;
        current_height = gfxvidinfo.height;
        graphics_subinit ();
    }

    if (on)
        DX_SetPalette (0, 256);
}

uae_u8 *gfx_lock_picasso (void)
{
    // DEBUG_LOG ("Function: gfx_lock_picasso\n");

#ifdef USE_GL
    if (!currprefs.use_gl) {
#endif /* USE_GL */
    if (SDL_MUSTLOCK (screen))
        SDL_LockSurface (screen);
    picasso_vidinfo.rowbytes = screen->pitch;
    return screen->pixels;
#ifdef USE_GL
    } else {
        picasso_vidinfo.rowbytes = display->pitch;
        return display->pixels;
    }
#endif /* USE_GL */
}

void gfx_unlock_picasso (void)
{
    // DEBUG_LOG ("Function: gfx_unlock_picasso\n");

#ifdef USE_GL
    if (!currprefs.use_gl) {
#endif /* USE_GL */
    if (SDL_MUSTLOCK (screen))
        SDL_UnlockSurface (screen);
#ifdef USE_GL
    }
#endif /* USE_GL */
}
#endif /* PICASSO96 */

int is_fullscreen (void)
{
    return fullscreen;
}

int is_vsync (void)
{
    return vsync;
}

void toggle_fullscreen (void)
{
    /* FIXME: Add support for separate full-screen/windowed sizes */
    fullscreen = 1 - fullscreen;

    /* Close existing window and open a new one (with the new fullscreen 
setting) */
    graphics_subshutdown ();
    graphics_subinit ();

    notice_screen_contents_lost ();
    if (screen_is_picasso)
        refresh_necessary = 1;

    DEBUG_LOG ("ToggleFullScreen: %d\n", fullscreen );
};

void toggle_mousegrab (void)
{
    if (!fullscreen) {
        if (SDL_WM_GrabInput (SDL_GRAB_QUERY) == SDL_GRAB_OFF) {
            if (SDL_WM_GrabInput (SDL_GRAB_ON) == SDL_GRAB_ON) {
                mousegrab = 1;
                mousehack = 0;
                SDL_ShowCursor (SDL_DISABLE);
            }
        } else {
            if (SDL_WM_GrabInput (SDL_GRAB_OFF) == SDL_GRAB_OFF) {
                mousegrab = 0;
                mousehack = 1;
                SDL_ShowCursor (currprefs.hide_cursor ?  SDL_DISABLE : 
SDL_ENABLE);
            }
        }
    }
}

void screenshot (int mode)
{
   write_log ("Screenshot not supported yet\n");
}

/*
 * Mouse inputdevice functions
 */

/* Hardwire for 3 axes and 3 buttons - although SDL doesn't
 * currently support a Z-axis as such. Mousewheel events are supplied
 * as buttons 4 and 5
 */
#define MAX_BUTTONS     3
#define MAX_AXES        3
#define FIRST_AXIS      0
#define FIRST_BUTTON    MAX_AXES

static int init_mouse (void)
{
   return 1;
}

static void close_mouse (void)
{
   return;
}

static int acquire_mouse (unsigned int num, int flags)
{
   /* SDL supports only one mouse */
   return 1;
}

static void unacquire_mouse (unsigned int num)
{
   return;
}

static unsigned int get_mouse_num (void)
{
    return 1;
}

static const char *get_mouse_name (unsigned int mouse)
{
    return "Default mouse";
}

static unsigned int get_mouse_widget_num (unsigned int mouse)
{
    return MAX_AXES + MAX_BUTTONS;
}

static int get_mouse_widget_first (unsigned int mouse, int type)
{
    switch (type) {
        case IDEV_WIDGET_BUTTON:
            return FIRST_BUTTON;
        case IDEV_WIDGET_AXIS:
            return FIRST_AXIS;
    }
    return -1;
}

static int get_mouse_widget_type (unsigned int mouse, unsigned int num, char 
*name, uae_u32 *code)
{
    if (num >= MAX_AXES && num < MAX_AXES + MAX_BUTTONS) {
        if (name)
            sprintf (name, "Button %d", num + 1 + MAX_AXES);
        return IDEV_WIDGET_BUTTON;
    } else if (num < MAX_AXES) {
        if (name)
            sprintf (name, "Axis %d", num + 1);
        return IDEV_WIDGET_AXIS;
    }
    return IDEV_WIDGET_NONE;
}

static void read_mouse (void)
{
    /* We handle mouse input in handle_events() */
}

struct inputdevice_functions inputdevicefunc_mouse = {
    init_mouse,
    close_mouse,
    acquire_mouse,
    unacquire_mouse,
    read_mouse,
    get_mouse_num,
    get_mouse_name,
    get_mouse_widget_num,
    get_mouse_widget_type,
    get_mouse_widget_first
};

/*
 * Keyboard inputdevice functions
 */
static unsigned int get_kb_num (void)
{
    /* SDL supports only one keyboard */
    return 1;
}

static const char *get_kb_name (unsigned int kb)
{
    return "Default keyboard";
}

static unsigned  int get_kb_widget_num (unsigned int kb)
{
    return 255; // fix me
}

static int get_kb_widget_first (unsigned int kb, int type)
{
    return 0;
}

static int get_kb_widget_type (unsigned int kb, unsigned int num, char *name, 
uae_u32 *code)
{
    // fix me
    *code = num;
    return IDEV_WIDGET_KEY;
}

static int init_kb (void)
{
    struct uae_input_device_kbr_default *keymap = 0;

    /* See if we support raw keys on this platform */
    if ((keymap = get_default_raw_keymap (get_sdlgfx_type ())) != 0) {
        inputdevice_setkeytranslation (keymap);
        have_rawkeys = 1;
    }
    switch_keymaps ();

    return 1;
}

static void close_kb (void)
{
}

static int keyhack (int scancode, int pressed, int num)
{
    return scancode;
}

static void read_kb (void)
{
}

static int acquire_kb (unsigned int num, int flags)
{
    return 1;
}

static void unacquire_kb (unsigned int num)
{
}

struct inputdevice_functions inputdevicefunc_keyboard =
{
    init_kb,
    close_kb,
    acquire_kb,
    unacquire_kb,
    read_kb,
    get_kb_num,
    get_kb_name,
    get_kb_widget_num,
    get_kb_widget_type,
    get_kb_widget_first
};

//static int capslockstate;

int getcapslockstate (void)
{
// TODO
//    return capslockstate;
    return 0;
}
void setcapslockstate (int state)
{
// TODO
//    capslockstate = state;
}


/*
 * Default inputdevice config for SDL mouse
 */
void input_get_default_mouse (struct uae_input_device *uid)
{
    /* SDL supports only one mouse */
    uid[0].eventid[ID_AXIS_OFFSET + 0][0]   = INPUTEVENT_MOUSE1_HORIZ;
    uid[0].eventid[ID_AXIS_OFFSET + 1][0]   = INPUTEVENT_MOUSE1_VERT;
    uid[0].eventid[ID_AXIS_OFFSET + 2][0]   = INPUTEVENT_MOUSE1_WHEEL;
    uid[0].eventid[ID_BUTTON_OFFSET + 0][0] = INPUTEVENT_JOY1_FIRE_BUTTON;
    uid[0].eventid[ID_BUTTON_OFFSET + 1][0] = INPUTEVENT_JOY1_2ND_BUTTON;
    uid[0].eventid[ID_BUTTON_OFFSET + 2][0] = INPUTEVENT_JOY1_3RD_BUTTON;
    uid[0].enabled = 1;
}

/*
 * Handle gfx specific cfgfile options
 */
void gfx_default_options (struct uae_prefs *p)
{
    int type = get_sdlgfx_type ();

    if (type == SDLGFX_DRIVER_AMIGAOS4 || type == SDLGFX_DRIVER_CYBERGFX ||
        type == SDLGFX_DRIVER_BWINDOW  || type == SDLGFX_DRIVER_QUARTZ)
        p->map_raw_keys = 1;
    else
        p->map_raw_keys = 0;
#ifdef USE_GL
    p->use_gl = 0;
#endif /* USE_GL */
}

void gfx_save_options (FILE *f, const struct uae_prefs *p)
{
    cfgfile_write (f, GFX_NAME ".map_raw_keys=%s\n", p->map_raw_keys ? "true" : 
"false");
#ifdef USE_GL
    cfgfile_write (f, GFX_NAME ".use_gl=%s\n", p->use_gl ? "true" : "false");
#endif /* USE_GL */
}

int gfx_parse_option (struct uae_prefs *p, const char *option, const char 
*value)
{
    int result = (cfgfile_yesno (option, value, "map_raw_keys", 
&p->map_raw_keys));
#ifdef USE_GL
    result = result || (cfgfile_yesno (option, value, "use_gl", &p->use_gl));
#endif /* USE_GL */
    return result;
}

Other related posts: