/*

SDL - Simple DirectMedia Layer

This library is free software; you can redistribute it and/or

This library is distributed in the hope that it will be useful,

but WITHOUT ANY WARRANTY; without even the implied warranty of

MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU

You should have received a copy of the GNU Lesser General Public

License along with this library; if not, write to the Free Software

Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA

Sam Lantinga

/* AAlib based SDL video driver implementation.

*/

#include <unistd.h>

#include <sys/stat.h>

#include "SDL_video.h"

#include "SDL_mouse.h"

#include "../SDL_sysvideo.h"

#include "../SDL_pixels_c.h"

#include "../../events/SDL_events_c.h"

#include "SDL_aavideo.h"

#include "SDL_aaevents_c.h"

#include "SDL_aamouse_c.h"

#include <aalib.h>

/* Initialization/Query functions */

static int AA_VideoInit (_THIS, SDL_PixelFormat * vformat);

static SDL_Rect **AA_ListModes (_THIS, SDL_PixelFormat * format,

Uint32 flags);

static SDL_Surface *AA_SetVideoMode (_THIS, SDL_Surface * current, int width,

int height, int bpp, Uint32 flags);

static int AA_SetColors (_THIS, int firstcolor, int ncolors,

SDL_Color * colors);

static void AA_VideoQuit (_THIS);

/* Hardware surface functions */

static int AA_AllocHWSurface (_THIS, SDL_Surface * surface);

static int AA_LockHWSurface (_THIS, SDL_Surface * surface);

static int AA_FlipHWSurface (_THIS, SDL_Surface * surface);

static void AA_UnlockHWSurface (_THIS, SDL_Surface * surface);

static void AA_FreeHWSurface (_THIS, SDL_Surface * surface);

/* Cache the VideoDevice struct */

static struct SDL_VideoDevice *local_this;

/* AAlib driver bootstrap functions */

static int

AA_Available (void)

}

static void

AA_DeleteDevice (SDL_VideoDevice * device)

SDL_free (device->hidden);

SDL_free (device);

}

static SDL_VideoDevice *

AA_CreateDevice (int devindex)

SDL_VideoDevice *device;

/* Initialize all variables that we clean on shutdown */

device = (SDL_VideoDevice *) SDL_malloc (sizeof (SDL_VideoDevice));

if (device) {

SDL_memset (device, 0, (sizeof *device));

device->hidden = (struct SDL_PrivateVideoData *)

SDL_malloc ((sizeof *device->hidden));

}

if ((device == NULL) || (device->hidden == NULL)) {

SDL_OutOfMemory ();

if (device) {

SDL_free (device);

}

return (0);

}

SDL_memset (device->hidden, 0, (sizeof *device->hidden));

/* Set the function pointers */

device->VideoInit = AA_VideoInit;

device->ListModes = AA_ListModes;

device->SetVideoMode = AA_SetVideoMode;

device->CreateYUVOverlay = NULL;

device->SetColors = AA_SetColors;

device->UpdateRects = NULL;

device->VideoQuit = AA_VideoQuit;

device->AllocHWSurface = AA_AllocHWSurface;

device->CheckHWBlit = NULL;

device->FillHWRect = NULL;

device->SetHWColorKey = NULL;

device->SetHWAlpha = NULL;

device->LockHWSurface = AA_LockHWSurface;

device->UnlockHWSurface = AA_UnlockHWSurface;

device->FlipHWSurface = NULL;

device->FreeHWSurface = AA_FreeHWSurface;

device->SetCaption = NULL;

device->SetIcon = NULL;

device->IconifyWindow = NULL;

device->GrabInput = NULL;

device->GetWMInfo = NULL;

device->InitOSKeymap = AA_InitOSKeymap;

device->PumpEvents = AA_PumpEvents;

device->free = AA_DeleteDevice;

return device;

}

VideoBootStrap AALIB_bootstrap = {

"aalib", "ASCII Art Library",

AA_Available, AA_CreateDevice

};

int

AA_VideoInit (_THIS, SDL_PixelFormat * vformat)

int keyboard;

int i;

/* Initialize all variables that we clean on shutdown */

for (i = 0; i < SDL_NUMMODES; ++i) {

SDL_modelist[i] = SDL_malloc (sizeof (SDL_Rect));

SDL_modelist[i]->x = SDL_modelist[i]->y = 0;

}

/* Modes sorted largest to smallest */

SDL_modelist[0]->w = 1024;

SDL_modelist[0]->h = 768;

SDL_modelist[1]->w = 800;

SDL_modelist[1]->h = 600;

SDL_modelist[2]->w = 640;

SDL_modelist[2]->h = 480;

SDL_modelist[3]->w = 320;

SDL_modelist[3]->h = 400;

SDL_modelist[4]->w = 320;

SDL_modelist[4]->h = 240;

SDL_modelist[5]->w = 320;

SDL_modelist[5]->h = 200;

SDL_modelist[6] = NULL;

/* Initialize the library */

AA_mutex = SDL_CreateMutex ();

aa_parseoptions (NULL, NULL, NULL, NULL);

AA_context = aa_autoinit (&aa_defparams);

if (!AA_context) {

SDL_SetError ("Unable to initialize AAlib");

return (-1);

}

/* Enable mouse and keyboard support */

if (!aa_autoinitkbd (AA_context, AA_SENDRELEASE)) {

SDL_SetError ("Unable to initialize AAlib keyboard");

return (-1);

}

if (!aa_autoinitmouse (AA_context, AA_SENDRELEASE)) {

fprintf (stderr, "Warning: Unable to initialize AAlib mouse");

}

AA_rparams = aa_getrenderparams ();

local_this = this;

aa_resizehandler (AA_context, AA_ResizeHandler);

fprintf (stderr, "Using AAlib driver: %s (%s)\n",

AA_context->driver->name, AA_context->driver->shortname);

AA_in_x11 = (SDL_strcmp (AA_context->driver->shortname, "X11") == 0);

/* Determine the screen depth (use default 8-bit depth) */

vformat->BitsPerPixel = 8;

vformat->BytesPerPixel = 1;

/* We're done! */

return (0);

}

SDL_Rect **

AA_ListModes (_THIS, SDL_PixelFormat * format, Uint32 flags)

if (format->BitsPerPixel != 8)

return NULL;

if (flags & SDL_FULLSCREEN) {

return SDL_modelist;

} else {

return (SDL_Rect **) - 1;

}

}

/* From aavga.c

AAlib does not give us the choice of the actual resolution, thus we have to simulate additional

resolution by scaling down manually each frame

*/

static void

fastscale (register char *b1, register char *b2, int x1, int x2, int y1,

int y2)

register int ex, spx = 0, ddx, ddx1;

int ddy1, ddy, spy = 0, ey;

int x;

char *bb1 = b1;

if (!x1 || !x2 || !y1 || !y2)

return;

ddx = x1 + x1;

ddx1 = x2 + x2;

if (ddx1 < ddx)

spx = ddx / ddx1, ddx %= ddx1;

ddy = y1 + y1;

ddy1 = y2 + y2;

if (ddy1 < ddy)

spy = (ddy / ddy1) * x1, ddy %= ddy1;

ey = -ddy1;

for (; y2; y2--) {

ex = -ddx1;

for (x = x2; x; x--) {

*b2 = *b1;

b2++;

b1 += spx;

ex += ddx;

if (ex > 0) {

b1++;

ex -= ddx1;

}

}

bb1 += spy;

ey += ddy;

if (ey > 0) {

bb1 += x1;

ey -= ddy1;

}

b1 = bb1;

}

}

/* Various screen update functions available */

SDL_Surface *

AA_SetVideoMode (_THIS, SDL_Surface * current,

int width, int height, int bpp, Uint32 flags)

if (AA_buffer) {

SDL_free (AA_buffer);

}

AA_buffer = SDL_malloc (width * height);

if (!AA_buffer) {

SDL_SetError ("Couldn't allocate buffer for requested mode");

return (NULL);

}

/* printf("Setting mode %dx%d\n", width, height); */

SDL_memset (aa_image (AA_context), 0,

aa_imgwidth (AA_context) * aa_imgheight (AA_context));

SDL_memset (AA_buffer, 0, width * height);

/* Allocate the new pixel format for the screen */

if (!SDL_ReallocFormat (current, 8, 0, 0, 0, 0)) {

return (NULL);

}

/* Set up the new mode framebuffer */

current->flags = SDL_FULLSCREEN;

AA_w = current->w = width;

AA_h = current->h = height;

current->pitch = current->w;

current->pixels = AA_buffer;

AA_x_ratio = ((double) aa_imgwidth (AA_context)) / ((double) width);

AA_y_ratio = ((double) aa_imgheight (AA_context)) / ((double) height);

/* Set the blit function */

this->UpdateRects = AA_DirectUpdate;

/* We're done */

return (current);

}

static void

AA_ResizeHandler (aa_context * context)

aa_resize (context);

local_this->hidden->x_ratio =

((double) aa_imgwidth (context)) / ((double) local_this->screen->w);

local_this->hidden->y_ratio =

((double) aa_imgheight (context)) / ((double) local_this->screen->h);

fastscale (local_this->hidden->buffer, aa_image (context),

local_this->hidden->w, aa_imgwidth (context),

local_this->hidden->h, aa_imgheight (context));

aa_renderpalette (context, local_this->hidden->palette,

local_this->hidden->rparams, 0, 0,

aa_scrwidth (context), aa_scrheight (context));

aa_flush (context);

}

/* We don't actually allow hardware surfaces other than the main one */

static int

AA_AllocHWSurface (_THIS, SDL_Surface * surface)

static void

AA_FreeHWSurface (_THIS, SDL_Surface * surface)

}

/* We need to wait for vertical retrace on page flipped displays */

static int

AA_LockHWSurface (_THIS, SDL_Surface * surface)

/* TODO ? */

return (0);

static void

AA_UnlockHWSurface (_THIS, SDL_Surface * surface)

}

/* FIXME: How is this done with AAlib? */

static int

AA_FlipHWSurface (_THIS, SDL_Surface * surface)

SDL_mutexP (AA_mutex);

aa_flush (AA_context);

SDL_mutexV (AA_mutex);

return (0);

}

static void

AA_DirectUpdate (_THIS, int numrects, SDL_Rect * rects)

int i;

SDL_Rect *rect;

fastscale (AA_buffer, aa_image (AA_context), AA_w,

aa_imgwidth (AA_context), AA_h, aa_imgheight (AA_context));

aa_renderpalette (AA_context, AA_palette, AA_rparams, 0, 0,

aa_scrwidth (AA_context), aa_scrheight (AA_context));

/* Render only the rectangles in the list */

printf ("Update rects : ");

for (i = 0; i < numrects; ++i) {

rect = &rects[i];

printf ("(%d,%d-%d,%d)", rect->x, rect->y, rect->w, rect->h);

aa_renderpalette (AA_context, AA_palette, AA_rparams,

rect->x * AA_x_ratio, rect->y * AA_y_ratio,

rect->w * AA_x_ratio, rect->h * AA_y_ratio);

}

printf ("\n");

SDL_mutexP (AA_mutex);

aa_flush (AA_context);

SDL_mutexV (AA_mutex);

return;

}

int

AA_SetColors (_THIS, int firstcolor, int ncolors, SDL_Color * colors)

int i;

for (i = 0; i < ncolors; i++) {

aa_setpalette (AA_palette, firstcolor + i,

colors[i].r >> 2, colors[i].g >> 2, colors[i].b >> 2);

}

return (1);

}

/* Note: If we are terminated, this could be called in the middle of

another SDL video routine -- notably UpdateRects.

*/

void

AA_VideoQuit (_THIS)

aa_uninitkbd (AA_context);

aa_uninitmouse (AA_context);

/* Free video mode lists */

for (i = 0; i < SDL_NUMMODES; ++i) {

if (SDL_modelist[i] != NULL) {

SDL_free (SDL_modelist[i]);

SDL_modelist[i] = NULL;

}

}

SDL_DestroyMutex (AA_mutex);

this->screen->pixels = NULL;

/* vi: set ts=4 sw=4 expandtab: */