Home | History | Annotate | Download | only in aalib 
      1 /*
      2     SDL - Simple DirectMedia Layer
      3     Copyright (C) 1997-2012 Sam Lantinga
      4 
      5     This library is free software; you can redistribute it and/or
      6     modify it under the terms of the GNU Lesser General Public
      7     License as published by the Free Software Foundation; either
      8     version 2.1 of the License, or (at your option) any later version.
      9 
     10     This library is distributed in the hope that it will be useful,
     11     but WITHOUT ANY WARRANTY; without even the implied warranty of
     12     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
     13     Lesser General Public License for more details.
     14 
     15     You should have received a copy of the GNU Lesser General Public
     16     License along with this library; if not, write to the Free Software
     17     Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA
     18 
     19     Sam Lantinga
     20     slouken (at) libsdl.org
     21 */
     22 #include "SDL_config.h"
     23 
     24 /* AAlib based SDL video driver implementation.
     25 */
     26 
     27 #include <unistd.h>
     28 #include <sys/stat.h>
     29 
     30 
     31 #include "SDL_video.h"
     32 #include "SDL_mouse.h"
     33 #include "../SDL_sysvideo.h"
     34 #include "../SDL_pixels_c.h"
     35 #include "../../events/SDL_events_c.h"
     36 
     37 #include "SDL_aavideo.h"
     38 #include "SDL_aaevents_c.h"
     39 #include "SDL_aamouse_c.h"
     40 
     41 #include <aalib.h>
     42 
     43 /* Initialization/Query functions */
     44 static int AA_VideoInit(_THIS, SDL_PixelFormat *vformat);
     45 static SDL_Rect **AA_ListModes(_THIS, SDL_PixelFormat *format, Uint32 flags);
     46 static SDL_Surface *AA_SetVideoMode(_THIS, SDL_Surface *current, int width, int height, int bpp, Uint32 flags);
     47 static int AA_SetColors(_THIS, int firstcolor, int ncolors, SDL_Color *colors);
     48 static void AA_VideoQuit(_THIS);
     49 
     50 /* Hardware surface functions */
     51 static int AA_AllocHWSurface(_THIS, SDL_Surface *surface);
     52 static int AA_LockHWSurface(_THIS, SDL_Surface *surface);
     53 static int AA_FlipHWSurface(_THIS, SDL_Surface *surface);
     54 static void AA_UnlockHWSurface(_THIS, SDL_Surface *surface);
     55 static void AA_FreeHWSurface(_THIS, SDL_Surface *surface);
     56 
     57 /* Cache the VideoDevice struct */
     58 static struct SDL_VideoDevice *local_this;
     59 
     60 /* AAlib driver bootstrap functions */
     61 
     62 static int AA_Available(void)
     63 {
     64 	return 1; /* Always available ! */
     65 }
     66 
     67 static void AA_DeleteDevice(SDL_VideoDevice *device)
     68 {
     69 	SDL_free(device->hidden);
     70 	SDL_free(device);
     71 }
     72 
     73 static SDL_VideoDevice *AA_CreateDevice(int devindex)
     74 {
     75 	SDL_VideoDevice *device;
     76 
     77 	/* Initialize all variables that we clean on shutdown */
     78 	device = (SDL_VideoDevice *)SDL_malloc(sizeof(SDL_VideoDevice));
     79 	if ( device ) {
     80 		SDL_memset(device, 0, (sizeof *device));
     81 		device->hidden = (struct SDL_PrivateVideoData *)
     82 				SDL_malloc((sizeof *device->hidden));
     83 	}
     84 	if ( (device == NULL) || (device->hidden == NULL) ) {
     85 		SDL_OutOfMemory();
     86 		if ( device ) {
     87 			SDL_free(device);
     88 		}
     89 		return(0);
     90 	}
     91 	SDL_memset(device->hidden, 0, (sizeof *device->hidden));
     92 
     93 	/* Set the function pointers */
     94 	device->VideoInit = AA_VideoInit;
     95 	device->ListModes = AA_ListModes;
     96 	device->SetVideoMode = AA_SetVideoMode;
     97 	device->CreateYUVOverlay = NULL;
     98 	device->SetColors = AA_SetColors;
     99 	device->UpdateRects = NULL;
    100 	device->VideoQuit = AA_VideoQuit;
    101 	device->AllocHWSurface = AA_AllocHWSurface;
    102 	device->CheckHWBlit = NULL;
    103 	device->FillHWRect = NULL;
    104 	device->SetHWColorKey = NULL;
    105 	device->SetHWAlpha = NULL;
    106 	device->LockHWSurface = AA_LockHWSurface;
    107 	device->UnlockHWSurface = AA_UnlockHWSurface;
    108 	device->FlipHWSurface = NULL;
    109 	device->FreeHWSurface = AA_FreeHWSurface;
    110 	device->SetCaption = NULL;
    111 	device->SetIcon = NULL;
    112 	device->IconifyWindow = NULL;
    113 	device->GrabInput = NULL;
    114 	device->GetWMInfo = NULL;
    115 	device->InitOSKeymap = AA_InitOSKeymap;
    116 	device->PumpEvents = AA_PumpEvents;
    117 
    118 	device->free = AA_DeleteDevice;
    119 
    120 	return device;
    121 }
    122 
    123 VideoBootStrap AALIB_bootstrap = {
    124 	"aalib", "ASCII Art Library",
    125 	AA_Available, AA_CreateDevice
    126 };
    127 
    128 static void AA_ResizeHandler(aa_context *);
    129 
    130 int AA_VideoInit(_THIS, SDL_PixelFormat *vformat)
    131 {
    132 	int keyboard;
    133 	int i;
    134 
    135 	/* Initialize all variables that we clean on shutdown */
    136 	for ( i=0; i<SDL_NUMMODES; ++i ) {
    137 		SDL_modelist[i] = SDL_malloc(sizeof(SDL_Rect));
    138 		SDL_modelist[i]->x = SDL_modelist[i]->y = 0;
    139 	}
    140 	/* Modes sorted largest to smallest */
    141 	SDL_modelist[0]->w = 1024; SDL_modelist[0]->h = 768;
    142 	SDL_modelist[1]->w = 800; SDL_modelist[1]->h = 600;
    143 	SDL_modelist[2]->w = 640; SDL_modelist[2]->h = 480;
    144 	SDL_modelist[3]->w = 320; SDL_modelist[3]->h = 400;
    145 	SDL_modelist[4]->w = 320; SDL_modelist[4]->h = 240;
    146 	SDL_modelist[5]->w = 320; SDL_modelist[5]->h = 200;
    147 	SDL_modelist[6] = NULL;
    148 
    149 	/* Initialize the library */
    150 
    151 	AA_mutex = SDL_CreateMutex();
    152 
    153 	aa_parseoptions (NULL, NULL, NULL, NULL);
    154 
    155 	AA_context = aa_autoinit(&aa_defparams);
    156 	if ( ! AA_context ) {
    157 		SDL_SetError("Unable to initialize AAlib");
    158 		return(-1);
    159 	}
    160 
    161 	/* Enable mouse and keyboard support */
    162 
    163 	if ( ! aa_autoinitkbd (AA_context, AA_SENDRELEASE) ) {
    164 		SDL_SetError("Unable to initialize AAlib keyboard");
    165 		return(-1);
    166 	}
    167 	if ( ! aa_autoinitmouse (AA_context, AA_SENDRELEASE) ) {
    168 		fprintf(stderr,"Warning: Unable to initialize AAlib mouse");
    169 	}
    170 	AA_rparams = aa_getrenderparams();
    171 
    172 	local_this = this;
    173 
    174 	aa_resizehandler(AA_context, AA_ResizeHandler);
    175 
    176 	fprintf(stderr,"Using AAlib driver: %s (%s)\n", AA_context->driver->name, AA_context->driver->shortname);
    177 
    178 	AA_in_x11 = (SDL_strcmp(AA_context->driver->shortname,"X11") == 0);
    179 	/* Determine the screen depth (use default 8-bit depth) */
    180 	vformat->BitsPerPixel = 8;
    181 	vformat->BytesPerPixel = 1;
    182 
    183 	/* We're done! */
    184 	return(0);
    185 }
    186 
    187 SDL_Rect **AA_ListModes(_THIS, SDL_PixelFormat *format, Uint32 flags)
    188 {
    189      if(format->BitsPerPixel != 8)
    190  		return NULL;
    191 
    192 	 if ( flags & SDL_FULLSCREEN ) {
    193 		 return SDL_modelist;
    194 	 } else {
    195 		 return (SDL_Rect **) -1;
    196 	 }
    197 }
    198 
    199 /* From aavga.c
    200    AAlib does not give us the choice of the actual resolution, thus we have to simulate additional
    201    resolution by scaling down manually each frame
    202 */
    203 static void fastscale (register char *b1, register char *b2, int x1, int x2, int y1, int y2)
    204 {
    205 	register int ex, spx = 0, ddx, ddx1;
    206 	int ddy1, ddy, spy = 0, ey;
    207 	int x;
    208 	char *bb1 = b1;
    209 	if (!x1 || !x2 || !y1 || !y2)
    210 		return;
    211 	ddx = x1 + x1;
    212 	ddx1 = x2 + x2;
    213 	if (ddx1 < ddx)
    214 		spx = ddx / ddx1, ddx %= ddx1;
    215 	ddy = y1 + y1;
    216 	ddy1 = y2 + y2;
    217 	if (ddy1 < ddy)
    218 		spy = (ddy / ddy1) * x1, ddy %= ddy1;
    219 	ey = -ddy1;
    220 	for (; y2; y2--) {
    221 		ex = -ddx1;
    222 		for (x = x2; x; x--) {
    223 			*b2 = *b1;
    224 			b2++;
    225 			b1 += spx;
    226 			ex += ddx;
    227 			if (ex > 0) {
    228 				b1++;
    229 				ex -= ddx1;
    230 			}
    231 		}
    232 		bb1 += spy;
    233 		ey += ddy;
    234 		if (ey > 0) {
    235 			bb1 += x1;
    236 			ey -= ddy1;
    237 		}
    238 		b1 = bb1;
    239 	}
    240 }
    241 
    242 /* Various screen update functions available */
    243 static void AA_DirectUpdate(_THIS, int numrects, SDL_Rect *rects);
    244 
    245 SDL_Surface *AA_SetVideoMode(_THIS, SDL_Surface *current,
    246 				int width, int height, int bpp, Uint32 flags)
    247 {
    248 	int mode;
    249 
    250 	if ( AA_buffer ) {
    251 		SDL_free( AA_buffer );
    252 	}
    253 
    254 	AA_buffer = SDL_malloc(width * height);
    255 	if ( ! AA_buffer ) {
    256 		SDL_SetError("Couldn't allocate buffer for requested mode");
    257 		return(NULL);
    258 	}
    259 
    260 /* 	printf("Setting mode %dx%d\n", width, height); */
    261 
    262 	SDL_memset(aa_image(AA_context), 0, aa_imgwidth(AA_context) * aa_imgheight(AA_context));
    263 	SDL_memset(AA_buffer, 0, width * height);
    264 
    265 	/* Allocate the new pixel format for the screen */
    266 	if ( ! SDL_ReallocFormat(current, 8, 0, 0, 0, 0) ) {
    267 		return(NULL);
    268 	}
    269 
    270 	/* Set up the new mode framebuffer */
    271 	current->flags = SDL_FULLSCREEN;
    272 	AA_w = current->w = width;
    273 	AA_h = current->h = height;
    274 	current->pitch = current->w;
    275 	current->pixels = AA_buffer;
    276 
    277 	AA_x_ratio = ((double)aa_imgwidth(AA_context)) / ((double)width);
    278 	AA_y_ratio = ((double)aa_imgheight(AA_context)) / ((double)height);
    279 
    280 	/* Set the blit function */
    281 	this->UpdateRects = AA_DirectUpdate;
    282 
    283 	/* We're done */
    284 	return(current);
    285 }
    286 
    287 static void AA_ResizeHandler(aa_context *context)
    288 {
    289 	aa_resize(context);
    290 	local_this->hidden->x_ratio = ((double)aa_imgwidth(context)) / ((double)local_this->screen->w);
    291 	local_this->hidden->y_ratio = ((double)aa_imgheight(context)) / ((double)local_this->screen->h);
    292 
    293 	fastscale (local_this->hidden->buffer, aa_image(context), local_this->hidden->w, aa_imgwidth (context), local_this->hidden->h, aa_imgheight (context));
    294 	aa_renderpalette(context, local_this->hidden->palette, local_this->hidden->rparams, 0, 0, aa_scrwidth(context), aa_scrheight(context));
    295 	aa_flush(context);
    296 }
    297 
    298 /* We don't actually allow hardware surfaces other than the main one */
    299 static int AA_AllocHWSurface(_THIS, SDL_Surface *surface)
    300 {
    301 	return(-1);
    302 }
    303 static void AA_FreeHWSurface(_THIS, SDL_Surface *surface)
    304 {
    305 	return;
    306 }
    307 
    308 /* We need to wait for vertical retrace on page flipped displays */
    309 static int AA_LockHWSurface(_THIS, SDL_Surface *surface)
    310 {
    311 	/* TODO ? */
    312 	return(0);
    313 }
    314 static void AA_UnlockHWSurface(_THIS, SDL_Surface *surface)
    315 {
    316 	return;
    317 }
    318 
    319 /* FIXME: How is this done with AAlib? */
    320 static int AA_FlipHWSurface(_THIS, SDL_Surface *surface)
    321 {
    322 	SDL_mutexP(AA_mutex);
    323 	aa_flush(AA_context);
    324 	SDL_mutexV(AA_mutex);
    325 	return(0);
    326 }
    327 
    328 static void AA_DirectUpdate(_THIS, int numrects, SDL_Rect *rects)
    329 {
    330 	int i;
    331 	SDL_Rect *rect;
    332 
    333 	fastscale (AA_buffer, aa_image(AA_context), AA_w, aa_imgwidth (AA_context), AA_h, aa_imgheight (AA_context));
    334 #if 1
    335 	aa_renderpalette(AA_context, AA_palette, AA_rparams, 0, 0, aa_scrwidth(AA_context), aa_scrheight(AA_context));
    336 #else
    337 	/* Render only the rectangles in the list */
    338 	printf("Update rects : ");
    339 	for ( i=0; i < numrects; ++i ) {
    340 		rect = &rects[i];
    341 		printf("(%d,%d-%d,%d)", rect->x, rect->y, rect->w, rect->h);
    342 		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);
    343 	}
    344 	printf("\n");
    345 #endif
    346 	SDL_mutexP(AA_mutex);
    347 	aa_flush(AA_context);
    348 	SDL_mutexV(AA_mutex);
    349 	return;
    350 }
    351 
    352 int AA_SetColors(_THIS, int firstcolor, int ncolors, SDL_Color *colors)
    353 {
    354 	int i;
    355 
    356 	for ( i=0; i < ncolors; i++ ) {
    357 	        aa_setpalette(AA_palette, firstcolor + i,
    358 			      colors[i].r>>2,
    359 			      colors[i].g>>2,
    360 			      colors[i].b>>2);
    361 	}
    362 	return(1);
    363 }
    364 
    365 /* Note:  If we are terminated, this could be called in the middle of
    366    another SDL video routine -- notably UpdateRects.
    367 */
    368 void AA_VideoQuit(_THIS)
    369 {
    370 	int i;
    371 
    372 	aa_uninitkbd(AA_context);
    373 	aa_uninitmouse(AA_context);
    374 
    375 	/* Free video mode lists */
    376 	for ( i=0; i<SDL_NUMMODES; ++i ) {
    377 		if ( SDL_modelist[i] != NULL ) {
    378 			SDL_free(SDL_modelist[i]);
    379 			SDL_modelist[i] = NULL;
    380 		}
    381 	}
    382 
    383 	aa_close(AA_context);
    384 
    385 	SDL_DestroyMutex(AA_mutex);
    386 
    387 	this->screen->pixels = NULL;
    388 }
    389