nuclear@2: #ifdef FBLIB_SDL
nuclear@2: #include <stdio.h>
nuclear@2: #include <stdlib.h>
nuclear@2: #include <string.h>
nuclear@2: #include <SDL/SDL.h>
nuclear@2: #include "fblib.h"
nuclear@2: #include "fblibimp.h"
nuclear@2: 
nuclear@2: static int scale;
nuclear@2: static SDL_Surface *surf;
nuclear@2: static unsigned char *scalebuf;	/* only if scale != 1 */
nuclear@2: static int pixbytes;	/* pixel size in bytes */
nuclear@2: 
nuclear@2: int fb_init(int width, int height, int bpp)
nuclear@2: {
nuclear@2: 	static int sdlinit_done;
nuclear@2: 	char *env, title[64];
nuclear@2: 
nuclear@2: 	if((env = getenv("FBLIB_SCALE"))) {
nuclear@2: 		scale = atoi(env);
nuclear@2: 	}
nuclear@2: 	if(!scale) scale = 1;
nuclear@2: 
nuclear@2: 	fb_width = width;
nuclear@2: 	fb_height = height;
nuclear@2: 	fb_bpp = bpp;
nuclear@2: 
nuclear@2: 	pixbytes = (bpp + 7) / 8;
nuclear@2: 
nuclear@2: 	if(!sdlinit_done) {
nuclear@2: 		if(SDL_Init(SDL_INIT_VIDEO | SDL_INIT_TIMER) == -1) {
nuclear@2: 			fprintf(stderr, "failed to initialize SDL!\n");
nuclear@2: 			return -1;
nuclear@2: 		}
nuclear@2: 		sdlinit_done = 1;
nuclear@2: 	}
nuclear@2: 
nuclear@2: 	if(!(surf = SDL_SetVideoMode(width * scale, height * scale, bpp, SDL_SWSURFACE))) {
nuclear@2: 		fprintf(stderr, "failed to set video mode\n");
nuclear@2: 		return -1;
nuclear@2: 	}
nuclear@2: 	sprintf(title, "fblib window (%dx)", scale);
nuclear@2: 	SDL_WM_SetCaption(title, 0);
nuclear@2: 
nuclear@2: 	if(scale != 1) {
nuclear@2: 		if(!(scalebuf = malloc(width * height * pixbytes))) {
nuclear@2: 			fprintf(stderr, "failed to allocate back buffer\n");
nuclear@2: 			SDL_Quit();
nuclear@2: 			return -1;
nuclear@2: 		}
nuclear@2: 	} else {
nuclear@2: 		scalebuf = 0;
nuclear@2: 	}
nuclear@2: 
nuclear@2: 	return 0;
nuclear@2: }
nuclear@2: 
nuclear@2: void fb_shutdown(void)
nuclear@2: {
nuclear@2: 	free(scalebuf);
nuclear@2: 	SDL_Quit();
nuclear@2: }
nuclear@2: 
nuclear@2: int fb_get_width(void)
nuclear@2: {
nuclear@2: 	return fb_width;
nuclear@2: }
nuclear@2: 
nuclear@2: int fb_get_height(void)
nuclear@2: {
nuclear@2: 	return fb_height;
nuclear@2: }
nuclear@2: 
nuclear@2: int fb_get_bpp(void)
nuclear@2: {
nuclear@2: 	return fb_bpp;
nuclear@2: }
nuclear@2: 
nuclear@2: void *fb_begin_frame(void)
nuclear@2: {
nuclear@2: 	if(!surf) return 0;
nuclear@2: 
nuclear@2: 	if(scalebuf) {
nuclear@2: 		return scalebuf;
nuclear@2: 	}
nuclear@2: 
nuclear@2: 	if(SDL_MUSTLOCK(surf)) {
nuclear@2: 		SDL_LockSurface(surf);
nuclear@2: 	}
nuclear@2: 	return surf->pixels;
nuclear@2: }
nuclear@2: 
nuclear@2: void fb_end_frame(void)
nuclear@2: {
nuclear@2: 	if(scalebuf) {
nuclear@2: 		int i, j, k;
nuclear@2: 		unsigned char *dest;
nuclear@2: 
nuclear@2: 		if(SDL_MUSTLOCK(surf)) {
nuclear@2: 			SDL_LockSurface(surf);
nuclear@2: 		}
nuclear@2: 		dest = surf->pixels;
nuclear@2: 
nuclear@2: 		for(i=0; i<surf->h; i++) {
nuclear@2: 			int y = i / scale;
nuclear@2: 			unsigned char *scan = scalebuf + y * fb_width * pixbytes;
nuclear@2: 
nuclear@2: 			for(j=0; j<surf->w; j++) {
nuclear@2: 				int x = j / scale;
nuclear@2: 
nuclear@2: 				for(k=0; k<pixbytes; k++) {
nuclear@2: 					*dest++ = scan[x * pixbytes + k];
nuclear@2: 				}
nuclear@2: 			}
nuclear@2: 		}
nuclear@2: 	}
nuclear@2: 
nuclear@2: 	if(SDL_MUSTLOCK(surf)) {
nuclear@2: 		SDL_UnlockSurface(surf);
nuclear@2: 	}
nuclear@2: 
nuclear@2: 	SDL_Flip(surf);
nuclear@2: }
nuclear@2: 
nuclear@2: void fb_set_palette_range(int start, int count, int *colors)
nuclear@2: {
nuclear@2: 	int i, *col = colors;
nuclear@2: 	SDL_Colour sdlcol[256];
nuclear@2: 
nuclear@2: 	for(i=0; i<count; i++) {
nuclear@2: 		sdlcol[i].r = *col++;
nuclear@2: 		sdlcol[i].g = *col++;
nuclear@2: 		sdlcol[i].b = *col++;
nuclear@2: 	}
nuclear@2: 
nuclear@2: 	SDL_SetPalette(surf, SDL_LOGPAL | SDL_PHYSPAL, sdlcol, start, count);
nuclear@2: }
nuclear@2: 
nuclear@2: int fb_process_events(void)
nuclear@2: {
nuclear@2: 	SDL_Event ev;
nuclear@2: 
nuclear@2: 	while(SDL_PollEvent(&ev)) {
nuclear@2: 		switch(ev.type) {
nuclear@2: 		case SDL_QUIT:
nuclear@2: 			return -1;
nuclear@2: 
nuclear@2: 		case SDL_KEYDOWN:
nuclear@2: 		case SDL_KEYUP:
nuclear@2: 			{
nuclear@2: 				int key = ev.key.keysym.sym;
nuclear@2: 				int state = ev.key.state == SDL_PRESSED;
nuclear@2: 
nuclear@2: 				if(key < 256) {
nuclear@2: 					fb_inp.key[key] = state;
nuclear@2: 				}
nuclear@2: 				if(fb_cb.keyb) {
nuclear@2: 					fb_cb.keyb(key, state, fb_cb.keyb_data);
nuclear@2: 				} else {
nuclear@2: 					if(key == SDLK_ESCAPE) {
nuclear@2: 						return -1;
nuclear@2: 					}
nuclear@2: 				}
nuclear@2: 			}
nuclear@2: 			break;
nuclear@2: 
nuclear@2: 		case SDL_MOUSEBUTTONDOWN:
nuclear@2: 		case SDL_MOUSEBUTTONUP:
nuclear@2: 			{
nuclear@2: 				int state = ev.button.state == SDL_PRESSED;
nuclear@2: 				fb_inp.mx = ev.motion.x / scale;
nuclear@2: 				fb_inp.my = ev.motion.y / scale;
nuclear@2: 				fb_inp.mbutton[ev.button.which] = state;
nuclear@2: 
nuclear@2: 				if(fb_cb.button) {
nuclear@2: 					fb_cb.button(ev.button.which, state, fb_inp.mx, fb_inp.my, fb_cb.button_data);
nuclear@2: 				}
nuclear@2: 			}
nuclear@2: 			break;
nuclear@2: 
nuclear@2: 		case SDL_MOUSEMOTION:
nuclear@2: 			fb_inp.mx = ev.motion.x / scale;
nuclear@2: 			fb_inp.my = ev.motion.y / scale;
nuclear@2: 			if(fb_cb.motion) {
nuclear@2: 				fb_cb.motion(fb_inp.mx, fb_inp.my, fb_cb.motion_data);
nuclear@2: 			}
nuclear@2: 			break;
nuclear@2: 		}
nuclear@2: 	}
nuclear@2: 
nuclear@2: 	return 0;
nuclear@2: }
nuclear@2: 
nuclear@2: unsigned long fb_get_time(void)
nuclear@2: {
nuclear@2: 	return SDL_GetTicks();
nuclear@2: }
nuclear@2: 
nuclear@2: #endif	/* FBLIB_SDL */