/* ScummVM - Scumm Interpreter
* Copyright (C) 2001 Ludvig Strigeus
* Copyright (C) 2001/2004 The ScummVM project
* Copyright (C) 2002 Ph0x - GP32 Backend
* Copyright (C) 2003/2004 DJWillis - GP32 Backend
*
* This program is free software; you can redistribute it and/or
* modify it under the terms of the GNU General Public License
* as published by the Free Software Foundation; either version 2
* of the License, or (at your option) any later version.
* This program 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 General Public License for more details.
* You should have received a copy of the GNU General Public License
* along with this program; if not, write to the Free Software
* Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
*
* $Header$
*
*/
/*
*
* Main Source for ScummVM for the GP32
*
*/
// TODO:
// Clean up GP leftovers and strip backend to only bits the GP32 needs.
// Finish restructure.
// Sort all remaining GCC 3.4 warnings.
// setTimerCallback: function call doesnt use * ?
//#define REAL_MAIN
#ifdef GP32_GDB
#include <gdb-stub.h>
#endif /*GP32_GDB */
#include "backends/gp32/setup.h"
#include "backends/gp32/gp32.h"
#include "backends/gp32/gfx_splash.h"
//#include "backends/gp32/resources/gfx_splash_alt.h"
#define gpRGB16(r,g,b) (((((r)>>3)&0x1F) << 11) | ((((g)>>3)&0x1F) << 6) | (((b)>>3)&0x1F)<<1)
#define RGB_TO_16(r,g,b) (((((r)>>3)&0x1F) << 11) | ((((g)>>3)&0x1F) << 6) | (((b)>>3)&0x1F)<<1)
int nflip, keydata; // Flip Index
GP_HPALETTE PAL; //palette
GPDRAWSURFACE LCDbuffer[BUFFERCOUNT + 1]; //buffers
void GpSetPaletteEntry(u8 i, u8 r, u8 g, u8 b);
// FIXME: No global init!
float gammatab[256], gammatab2[256]; // fixme: one table
const float scrGamma[] = { 1.0, 1.001, 1.002, 1.003, 1.004, 1.005 };
char gindex = 3;
int mx = 1, my = 1;
int scrofsy = 239;
char currentsurf;
// FIXME!!
// crashes if here and not buildgammatab() not called as very first line! check
// check if sav file handling overwrites something!
// float gammatab[256];
FILE *fstderr, *fstdout, *fstdin;
/****************************************************************
GP32 Input mappings - Returns Button Pressed.
****************************************************************/
int gpTrapKey(void)
{
int value = 0;
#define rKEY_A 0x4000
#define rKEY_B 0x2000
#define rKEY_L 0x1000
#define rKEY_R 0x8000
#define rKEY_UP 0x0800
#define rKEY_DOWN 0x0200
#define rKEY_LEFT 0x0100
#define rKEY_RIGHT 0x0400
#define rKEY_START 0x0040
#define rKEY_SELECT 0x0080
#define rPBDAT (*(volatile unsigned *)0x1560000c)
#define rPEDAT (*(volatile unsigned *)0x15600030)
unsigned long gpb = rPBDAT; // 0x156
unsigned long gpe = rPEDAT;
if ((gpb & rKEY_LEFT) == 0)
value |= GPC_VK_LEFT;
if ((gpb & rKEY_RIGHT) == 0)
value |= GPC_VK_RIGHT;
if ((gpb & rKEY_UP) == 0)
value |= GPC_VK_UP;
if ((gpb & rKEY_DOWN) == 0)
value |= GPC_VK_DOWN;
if ((gpb & rKEY_A) == 0)
value |= GPC_VK_FA;
if ((gpb & rKEY_B) == 0)
value |= GPC_VK_FB;
if ((gpb & rKEY_L) == 0)
value |= GPC_VK_FL;
if ((gpb & rKEY_R) == 0)
value |= GPC_VK_FR;
if ((gpe & rKEY_SELECT) == 0)
value |= GPC_VK_SELECT;
if ((gpe & rKEY_START) == 0)
value |= GPC_VK_START;
return value;
}
/****************************************************************
GP32 ScummVM OSystem Implementation.
****************************************************************/
//OSystem *OSystem_GP32::create()
//{
// //OSystem_GP32 *syst = new OSystem_GP32();
// //return syst;
// return new OSystem_GP32();
//}
OSystem *OSystem_GP32_create()
{
//
// OSystem_GP32 *syst = new OSystem_GP32();
////
//// //syst->_mode = gfx_mode;
//// //syst->_full_screen = full_screen;
//
// // allocate palette storage
// syst->_currentPalette = (gpColor*)calloc(sizeof(gpColor), 256);
//
// // allocate the dirty rect storage
// syst->_mouseBackup = (byte*)malloc(MAX_MOUSE_W * MAX_MOUSE_H * MAX_SCALING * 2);
// return syst;
// return new OSystem_GP32();
//return OSystem_GP32::create();
return new OSystem_GP32();
}
OSystem_GP32::OSystem_GP32() :
//#ifdef USE_OSD
// _osdSurface(0), _osdAlpha(SDL_ALPHA_TRANSPARENT), _osdFadeStartTime(0),
//#endif
_hwscreen(0), _screen(0), _screenWidth(0), _screenHeight(0),
_tmpscreen(0), _overlayVisible(false),
// _cdrom(0),
// _scaler_proc(0),
_modeChanged(false), _dirty_checksums(0),
_mouseVisible(false), _mouseDrawn(false), _mouseData(0),
_mouseHotspotX(0), _mouseHotspotY(0),
_currentShakePos(0), _newShakePos(0),
_paletteDirtyStart(0), _paletteDirtyEnd(0), _graphicsMutex(0) {
// allocate palette storage
_currentPalette = (gpColor *) calloc(sizeof(gpColor), 256);
// allocate the dirty rect storage
_mouseBackup =
(byte *) malloc(MAX_MOUSE_W * MAX_MOUSE_H * MAX_SCALING * 2);
// reset mouse state
memset(&km, 0, sizeof(km));
_scaleFactor = 1;
_scaler_proc = Normal1x;
_mode = GFX_NORMAL;
_full_screen = true;
_adjustAspectRatio = false;
_mode_flags = 0;
//init_intern();
}
OSystem_GP32::~OSystem_GP32() {
if (_dirty_checksums)
free(_dirty_checksums);
free(_currentPalette);
free(_mouseBackup);
deleteMutex(_graphicsMutex);
quit();
}
// Set colors of the palette
void OSystem_GP32::setPalette(const byte * colors, uint start, uint num) {
const byte *b = colors;
uint i;
gpColor *base = _currentPalette + start;
for (i = 0; i < num; i++) {
base[i].r = b[0];
base[i].g = b[1];
base[i].b = b[2];
b += 4;
}
if (start < _paletteDirtyStart)
_paletteDirtyStart = start;
if (start + num > _paletteDirtyEnd)
_paletteDirtyEnd = start + num;
}
// Set the size of the video bitmap.
// Typically, 320x200 (x240 for FMTowns)
// FIXME: Is there a clean way to get the Game_ID in the backend, I still like the virual keymap feature below.
//#include "base/gameDetector.h"
//#include "scumm/scumm.h"
//extern ScummEngine *g_scumm;
const char shortkey0[] = "";
const char shortkey1[] = "gpuolscty"; // give, pick up, use, open, look at, push, close, talk to, pull
const char shortkey2[] = "qwerasdfzxcv"; //push, open, walk to, use, pull, close, pick up, turn on, give, look, what is, turn off
const char shortkey3[] = "wlptuo"; // samnmax
const char *shortkey;
int skindex = 0;
void OSystem_GP32::initSize(uint w, uint h, int overlayScale) {
/*switch (menu[MENU_SCREENPOS].index) {
* case 0 : scrofsy = 239 - (240 - h)/2; break;
* case 1 : scrofsy = 239; break;
* }
*/
//switch (g_scumm->_gameId) { //fixme: add all
// case GID_TENTACLE : case GID_MONKEY2 : case GID_INDY4 : shortkey=shortkey1; break;
// case GID_INDY3 : case GID_ZAK256 : case GID_MONKEY : shortkey=shortkey2; break;
// case GID_SAMNMAX : shortkey=shortkey3; break;
// default : shortkey=shortkey0; break;
//}
shortkey = shortkey0;
// Avoid redundant res changes
if ((int)w == _screenWidth && (int)h == _screenHeight)
return;
_screenWidth = w;
_screenHeight = h;
CKSUM_NUM = (_screenWidth * _screenHeight / (8 * 8));
if (_dirty_checksums)
free(_dirty_checksums);
_dirty_checksums = (uint32 *) calloc(CKSUM_NUM * 2, sizeof(uint32));
_mouseData = NULL;
unload_gfx_mode();
load_gfx_mode();
return;
}
void OSystem_GP32::add_dirty_rect(int x, int y, int w, int h) {
if (_forceFull)
return;
if (_num_dirty_rects == NUM_DIRTY_RECT)
_forceFull = true;
else {
gpRect *r = &_dirty_rect_list[_num_dirty_rects++];
// Extend the dirty region by 1 pixel for scalers
// that "smear" the screen, e.g. 2xSAI
if (_mode_flags & DF_UPDATE_EXPAND_1_PIXEL) {
x--;
y--;
w += 2;
h += 2;
}
// clip
if (x < 0) {
w += x;
x = 0;
}
if (y < 0) {
h += y;
y = 0;
}
if (w > _screenWidth - x) {
w = _screenWidth - x;
}
if (h > _screenHeight - y) {
h = _screenHeight - y;
}
r->x = x;
r->y = y;
r->w = w;
r->h = h;
}
}
void OSystem_GP32::mk_checksums(const byte *buf) {
uint32 *sums = _dirty_checksums;
uint x, y;
const uint last_x = (uint) _screenWidth / 8;
const uint last_y = (uint) _screenHeight / 8;
const uint BASE = 65521; /* largest prime smaller than 65536 */
/* the 8x8 blocks in buf are enumerated starting in the top left corner and
* reading each line at a time from left to right */
for (y = 0; y != last_y; y++, buf += _screenWidth * (8 - 1))
for (x = 0; x != last_x; x++, buf += 8) {
// Adler32 checksum algorithm (from RFC1950, used by gzip and zlib).
// This computes the Adler32 checksum of a 8x8 pixel block. Note
// that we can do the modulo operation (which is the slowest part)
// of the algorithm) at the end, instead of doing each iteration,
// since we only have 64 iterations in total - and thus s1 and
// s2 can't overflow anyway.
uint32 s1 = 1;
uint32 s2 = 0;
const byte *ptr = buf;
for (int subY = 0; subY < 8; subY++) {
for (int subX = 0; subX < 8; subX++) {
s1 += ptr[subX];
s2 += s1;
}
ptr += _screenWidth;
}
s1 %= BASE;
s2 %= BASE;
/* output the checksum for this block */
*sums++ = (s2 << 16) + s1;
}
}
void OSystem_GP32::add_dirty_rgn_auto(const byte *buf) {
assert(((uint32) buf & 3) == 0);
/* generate a table of the checksums */
mk_checksums(buf);
if (!cksum_valid) {
_forceFull = true;
cksum_valid = true;
}
/* go through the checksum list, compare it with the previous checksums,
* and add all dirty rectangles to a list. try to combine small rectangles
* into bigger ones in a simple way */
if (!_forceFull) {
int x, y, w;
uint32 *ck = _dirty_checksums;
for (y = 0; y != _screenHeight / 8; y++) {
for (x = 0; x != _screenWidth / 8; x++, ck++) {
if (ck[0] != ck[CKSUM_NUM]) {
/* found a dirty 8x8 block, now go as far to the right as possible,
* and at the same time, unmark the dirty status by setting old to new. */
w = 0;
do {
ck[w + CKSUM_NUM] = ck[w];
w++;
} while (x + w != _screenWidth / 8
&& ck[w] != ck[w + CKSUM_NUM]);
add_dirty_rect(x * 8, y * 8, w * 8, 8);
if (_forceFull)
goto get_out;
}
}
}
} else {
get_out:;
/* Copy old checksums to new */
memcpy(_dirty_checksums + CKSUM_NUM, _dirty_checksums,
CKSUM_NUM * sizeof(uint32));
}
}
// Draw a bitmap to screen.
// The screen will not be updated to reflect the new bitmap
void OSystem_GP32::copyRectToScreen(const byte *buf, int pitch, int x, int y,
int w, int h) {
if (_screen == NULL)
return;
if (pitch == _screenWidth && x == 0 && y == 0 && w == _screenWidth
&& h == _screenHeight && _mode_flags & DF_WANT_RECT_OPTIM) {
/* Special, optimized case for full screen updates.
* It tries to determine what areas were actually changed,
* and just updates those, on the actual display. */
add_dirty_rgn_auto(buf);
} else {
/* Clip the coordinates */
if (x < 0) {
w += x;
buf -= x;
x = 0;
}
if (y < 0) {
h += y;
buf -= y * pitch;
y = 0;
}
if (w > _screenWidth - x) {
w = _screenWidth - x;
}
if (h > _screenHeight - y) {
h = _screenHeight - y;
}
if (w <= 0 || h <= 0)
return;
cksum_valid = false;
add_dirty_rect(x, y, w, h);
}
/* FIXME: undraw mouse only if the draw rect intersects with the mouse rect */
if (_mouseDrawn)
undraw_mouse();
byte *dst = (byte *) _screen->pixels + y * _screenWidth + x;
do {
memcpy(dst, buf, w);
dst += _screenWidth;
buf += pitch;
} while (--h);
}
gpSurface *gpCreateRGBSurface(Uint32 flags, int width, int height, int depth,
Uint32 Rmask, Uint32 Gmask, Uint32 Bmask, Uint32 Amask) {
gpSurface *surf = (gpSurface *) malloc(sizeof(gpSurface));
surf->format = (gpPixelFormat *) malloc(sizeof(gpPixelFormat));
if ((flags & gpHWSurface) == gpHWSurface) {
error(">HW surface (w=%d, h=%d)", width, height);
} else if ((flags & gpSWSurface) == gpSWSurface) {
int size = width * height * (depth / 8);
printf(">SW surface (w=%d, h=%d, size=%d, depth=%d)", width,
height, size, depth);
surf->pixels = malloc(size);
} else {
error(">unknown surface", width, height);
return NULL;
}
surf->w = width;
surf->h = height;
surf->pitch = width * (depth / 8);
surf->format->BitsPerPixel = depth;
surf->format->BytesPerPixel = depth / 8;
return surf;
}
gpSurface *gpSetVideoMode(int width, int height, int bpp, Uint32 flags) {
return gpCreateRGBSurface(flags, width, height, bpp, 0, 0, 0, 0);
}
void gpFreeSurface(gpSurface *surface) {
// implement
}
gpSurface *gpCreateRGBSurfaceFrom(void *pixels,
int width, int height, int depth, int pitch,
Uint32 Rmask, Uint32 Gmask, Uint32 Bmask, Uint32 Amask) {
// FIXME dont reuse code
gpSurface *surf = (gpSurface *) malloc(sizeof(gpSurface));
surf->format = (gpPixelFormat *) malloc(sizeof(gpPixelFormat));
surf->w = width;
surf->h = height;
surf->pitch = pitch;
surf->pixels = pixels;
surf->format->BitsPerPixel = depth;
surf->format->BytesPerPixel = depth / 8;
return surf;
}
int gpFillRect(gpSurface *dst, gpRect *dstrect, Uint32 color) {
// FIXME: implement
return 0;
}
int mcshake = 0;
void gpUpdateRects(gpSurface *screen, int numrects, gpRect *rects) {
// FIXME dont duplicate code :)
// CHECK: shake causes crash? mcshake can get negative?
if (screen->format->BitsPerPixel == 8)
while (numrects--) {
//if (mcshake && rects->h == LCD_HEIGHT) { //fixme?
if (mcshake && rects->h == /*_screenHeight*/ 200) { //fixme?
//printf("shaking %d", mcshake);
rects->h -= mcshake;
GpRectFill(NULL, &LCDbuffer[GAME_SURFACE], 0, rects->h + scrofsy, 320, mcshake, 0); //black border
}
u8 *s =
(u8 *) ((u8 *) screen->pixels + (rects->y +
mcshake) * 320 + rects->x);
u8 *d =
(u8 *) ((u8 *) LCDbuffer[GAME_SURFACE].ptbuffer +
rects->x * 240 + scrofsy - rects->y);
u8 *s2 = s, *d2 = d;
for (int x = rects->w; x; x--) {
for (int y = rects->h; y; y--) {
*d-- = *s;
s += 320; // FIXME? screen->pitch;
}
d2 += 240;
d = d2;
s2++;
s = s2;
}
rects++;
} else if (screen->format->BitsPerPixel == 16)
while (numrects--) {
u16 *s =
(u16 *) ((u16 *) screen->pixels + rects->y * 320 +
rects->x);
u16 *d =
(u16 *) ((u16 *) LCDbuffer[GAME_SURFACE].ptbuffer +
rects->x * 240 + scrofsy - rects->y);
u16 *s2 = s, *d2 = d;
for (int x = rects->w; x; x--) {
for (int y = rects->h; y; y--) {
*d-- = *s;
s += 320; // FIXME? screen->pitch;
}
d2 += 240;
d = d2;
s2++;
s = s2;
}
rects++;
} else
error("blitting surface with wrong depth (%d)",
screen->format->BitsPerPixel);
// eh? works also when rects++ is here??
}
//#define gpBlitSurface gpUpperBlit
int gpBlitSurface(gpSurface *screen, gpRect *rects, gpSurface *dst, gpRect *dstrect) {
// FIXME? role??
//gpUpdateRects(screen, 1, rects); //ph0x! _hwscreen
return 0;
}
int gpSetColors(gpSurface *surface, gpColor *colors, int firstcolor, int ncolors) {
float rr, gg, bb;
gpColor colors2[256];
if (currentsurf == DEBUG_SURFACE)
return 1;
for (int i = firstcolor; i < firstcolor + ncolors; i++) {
rr = colors[i].r * gammatab[colors[i].r];
gg = colors[i].g * gammatab[colors[i].g];
bb = colors[i].b * gammatab[colors[i].b];
if (rr > 255)
rr = 255;
if (gg > 255)
gg = 255;
if (bb > 255)
bb = 255;
colors2[i].r = (u8) rr;
colors2[i].g = (u8) gg;
colors2[i].b = (u8) bb;
}
GpPaletteEntryChangeEx(firstcolor, ncolors, (GP_LOGPALENTRY *) colors2,
0);
return 1;
}
// Moves the screen content around by the given amount of pixels
// but only the top height pixel rows, the rest stays untouched
//void OSystem_GP32::move_screen(int dx, int dy, int height)
//{
// if ((dx == 0) && (dy == 0))
// return;
//
// if (dx == 0) {
// // vertical movement
// if (dy > 0) {
// // move down
// // copy from bottom to top
// for (int y = height - 1; y >= dy; y--)
// copyRectToScreen((byte *)_screen->pixels + _screenWidth * (y - dy), _screenWidth, 0, y, _screenWidth, 1);
// } else {
// // move up
// // copy from top to bottom
// for (int y = 0; y < height + dx; y++)
// copyRectToScreen((byte *)_screen->pixels + _screenWidth * (y - dy), _screenWidth, 0, y, _screenWidth, 1);
// }
// } else if (dy == 0) {
// // horizontal movement
// if (dx > 0) {
// // move right
// // copy from right to left
// for (int x = _screenWidth - 1; x >= dx; x--)
// copyRectToScreen((byte *)_screen->pixels + x - dx, _screenWidth, x, 0, 1, height);
// } else {
// // move left
// // copy from left to right
// for (int x = 0; x < _screenWidth; x++)
// copyRectToScreen((byte *)_screen->pixels + x - dx, _screenWidth, x, 0, 1, height);
// }
// } else {
// // free movement
// // not necessary for now
// }
//}
int16 OSystem_GP32::get_height() {
return _screenHeight;
}
int16 OSystem_GP32::get_width() {
return _screenWidth;
}
//void OSystem_GP32::warpMouse(int, int)
//{
//}
void OSystem_GP32::warpMouse(int x, int y) {
// set_mouse_pos(x, y);
}
void OSystem_GP32::load_gfx_mode() {
GpRectFill(NULL, &LCDbuffer[GAME_SURFACE], 0, 0, 320, 240, 0); //black border
_forceFull = true;
_mode_flags = DF_WANT_RECT_OPTIM | DF_UPDATE_EXPAND_1_PIXEL;
_tmpscreen = NULL;
TMP_SCREEN_WIDTH = (_screenWidth + 3);
switch (_mode) {
case GFX_NORMAL:
//???????
//normal_mode:;
_scaleFactor = 1;
_scaler_proc = Normal1x;
break;
default:
error("Unknown graphics mode");
_scaleFactor = 1;
_scaler_proc = NULL;
}
//
// Create the surface that contains the 8 bit game data
//
_screen =
gpCreateRGBSurface(gpSWSurface, _screenWidth, _screenHeight, 8, 0,
0, 0, 0);
if (_screen == NULL)
error("_screen failed");
//
// Create the surface that contains the scaled graphics in 16 bit mode
//
_hwscreen =
gpSetVideoMode(_screenWidth * _scaleFactor,
_screenHeight * _scaleFactor, 16,
_full_screen ? (gpFullScreen | gpSWSurface) : gpSWSurface);
if (_hwscreen == NULL)
error("_hwscreen failed");
//
// Create the surface used for the graphics in 16 bit before scaling, and also the overlay
//
/*
// Distinguish 555 and 565 mode
if (_hwscreen->format->Rmask == 0x7C00)
InitScalers(555);
else
InitScalers(565);
*/
//InitScalers(555); // ph0x fixme?
//ph0x fixme - tmpscreen needed?
// Need some extra bytes around when using 2xSaI
uint16 *tmp_screen =
(uint16 *) calloc(TMP_SCREEN_WIDTH * (_screenHeight + 3),
sizeof(uint16));
_tmpscreen =
gpCreateRGBSurfaceFrom(tmp_screen, TMP_SCREEN_WIDTH,
_screenHeight + 3, 16, TMP_SCREEN_WIDTH * 2,
_hwscreen->format->Rmask, _hwscreen->format->Gmask,
_hwscreen->format->Bmask, _hwscreen->format->Amask);
if (_tmpscreen == NULL)
error("_tmpscreen failed");
// keyboard cursor control, some other better place for it?
km.x_max = _screenWidth * _scaleFactor - 1;
km.y_max = _screenHeight * _scaleFactor - 1;
//km.delay_time = 25;
km.delay_time = 15;
km.last_time = 0;
}
void OSystem_GP32::unload_gfx_mode() {
if (_screen) {
gpFreeSurface(_screen);
_screen = NULL;
}
if (_hwscreen) {
gpFreeSurface(_hwscreen);
_hwscreen = NULL;
}
if (_tmpscreen) {
free((uint16 *) _tmpscreen->pixels);
gpFreeSurface(_tmpscreen);
_tmpscreen = NULL;
}
}
#include "common/util.h"
void OSystem_GP32::draw_mouse() {
if (!_overlayVisible) {
if (_mouseDrawn || !_mouseVisible)
return;
int x = _mouseCurState.x - _mouseHotspotX;
int y = _mouseCurState.y - _mouseHotspotY;
int w = _mouseCurState.w;
int h = _mouseCurState.h;
byte color;
byte *src = _mouseData; // Image representing the mouse
byte *bak = _mouseBackup; // Surface used to backup the area obscured by the mouse
byte *dst; // Surface we are drawing into
// clip the mouse rect, and addjust the src pointer accordingly
if (x < 0) {
w += x;
src -= x;
x = 0;
}
if (y < 0) {
h += y;
src -= y * _mouseCurState.w;
y = 0;
}
if (w > _screenWidth - x)
w = _screenWidth - x;
if (h > _screenHeight - y)
h = _screenHeight - y;
// Quick check to see if anything has to be drawn at all
if (w <= 0 || h <= 0)
return;
// Store the bounding box so that undraw mouse can restore the area the
// mouse currently covers to its original content.
_mouseOldState.x = x;
_mouseOldState.y = y;
_mouseOldState.w = w;
_mouseOldState.h = h;
// Draw the mouse cursor; backup the covered area in "bak"
///if (gpLockSurface(_screen) == -1)
/// error("gpLockSurface failed: %s.\n", gpGetError());
// as dirty
add_dirty_rect(x, y, w, h);
dst = (byte *) _screen->pixels + y * _screenWidth + x;
while (h > 0) {
int width = w;
while (width > 0) {
*bak++ = *dst;
color = *src++;
if (color != _mouseKeycolor) // Transparent, don't draw
*dst = color;
dst++;
width--;
}
src += _mouseCurState.w - w;
bak += MAX_MOUSE_W - w;
dst += _screenWidth - w;
h--;
}
///gpUnlockSurface(_screen);
// Finally, set the flag to indicate the mouse has been drawn
_mouseDrawn = true;
}
if (_mouseDrawn || !_mouseVisible)
return;
int x = _mouseCurState.x - _mouseHotspotX;
int y = _mouseCurState.y - _mouseHotspotY;
int w = _mouseCurState.w;
int h = _mouseCurState.h;
byte color;
//byte *src = _mouseData; // Image representing the mouse
//uint16 *src = _mouseData; // Image representing the mouse
const byte *src = _mouseData; // Image representing the mouse
//byte *bak = _mouseBackup; // Surface used to backup the area obscured by the mouse
//byte *dst; // Surface we are drawing into
//uint16 *bak = (uint16*)_mouseBackup; // Surface used to backup the area obscured by the mouse
//uint16 *dst; // Surface we are drawing into
// clip the mouse rect, and addjust the src pointer accordingly
if (x < 0) {
w += x;
src -= x;
x = 0;
}
if (y < 0) {
h += y;
src -= y * _mouseCurState.w;
y = 0;
}
// Quick check to see if anything has to be drawn at all
if (w <= 0 || h <= 0)
return;
if (w > _screenWidth - x)
w = _screenWidth - x;
if (h > _screenHeight - y)
h = _screenHeight - y;
// Store the bounding box so that undraw mouse can restore the area the
// mouse currently covers to its original content.
_mouseOldState.x = x;
_mouseOldState.y = y;
_mouseOldState.w = w;
_mouseOldState.h = h;
// Draw the mouse cursor; backup the covered area in "bak"
///if (gpLockSurface(_tmpscreen) == -1)
/// error("gpLockSurface failed: %s.\n", gpGetError());
// as dirty
add_dirty_rect(x, y, w, h);
uint16 *bak = (uint16 *) _mouseBackup; // Surface used to backup the area obscured by the mouse
uint16 *dst; // Surface we are drawing into
dst =
(uint16 *) _tmpscreen->pixels + (y + 1) * TMP_SCREEN_WIDTH + (x +
1);
while (h > 0) {
int width = w;
while (width > 0) {
*bak++ = *dst;
color = *src++;
if (color != 0xFF) // 0xFF = transparent, don't draw
*dst =
RGB_TO_16(_currentPalette[color].r,
_currentPalette[color].g,
_currentPalette[color].b);
dst++;
width--;
}
src += _mouseCurState.w - w;
bak += MAX_MOUSE_W - w;
dst += TMP_SCREEN_WIDTH - w;
h--;
}
///gpUnlockSurface(_tmpscreen);
// Finally, set the flag to indicate the mouse has been drawn
_mouseDrawn = true;
}
void OSystem_GP32::undraw_mouse() {
//return; //fixme!
if (!_overlayVisible) {
if (!_mouseDrawn)
return;
_mouseDrawn = false;
byte *dst, *bak = _mouseBackup;
const int old_mouse_x = _mouseOldState.x;
const int old_mouse_y = _mouseOldState.y;
const int old_mouse_w = _mouseOldState.w;
const int old_mouse_h = _mouseOldState.h;
int x, y;
// No need to do clipping here, since draw_mouse() did that already
dst =
(byte *) _screen->pixels + old_mouse_y * _screenWidth +
old_mouse_x;
for (y = 0; y < old_mouse_h;
++y, bak += MAX_MOUSE_W, dst += _screenWidth) {
for (x = 0; x < old_mouse_w; ++x) {
dst[x] = bak[x];
}
}
add_dirty_rect(old_mouse_x, old_mouse_y, old_mouse_w,
old_mouse_h);
}
if (!_mouseDrawn)
return;
_mouseDrawn = false;
uint16 *dst, *bak = (uint16 *) _mouseBackup;
const int old_mouse_x = _mouseOldState.x;
const int old_mouse_y = _mouseOldState.y;
const int old_mouse_w = _mouseOldState.w;
const int old_mouse_h = _mouseOldState.h;
int x, y;
// No need to do clipping here, since draw_mouse() did that already
dst =
(uint16 *) _tmpscreen->pixels + (old_mouse_y +
1) * TMP_SCREEN_WIDTH + (old_mouse_x + 1);
for (y = 0; y < old_mouse_h;
++y, bak += MAX_MOUSE_W, dst += TMP_SCREEN_WIDTH) {
for (x = 0; x < old_mouse_w; ++x) {
dst[x] = bak[x];
}
}
add_dirty_rect(old_mouse_x, old_mouse_y, old_mouse_w, old_mouse_h);
}
char *gpGetError(void) {
// FIXME: implement
return NULL;
}
/////////////////////////////////////////////////////////////////////////////
//
// GP32 Screen Update Stuff - Mostly 'borrowed' from GP but using gpSDK
//
/////////////////////////////////////////////////////////////////////////////
//// Update the dirty areas of the screen
void OSystem_GP32::updateScreen() {
//Common::StackLock lock(_graphicsMutex); // Lock the mutex until this function ends
internUpdateScreen();
}
// assert(_hwscreen != NULL);
//
// // If the shake position changed, fill the dirty area with blackness
// if (_currentShakePos != _newShakePos) {
// gpRect blackrect = {0, 0, _screenWidth*_scaleFactor, _newShakePos*_scaleFactor};
//
// if (_adjustAspectRatio)
// blackrect.h = real2Aspect(blackrect.h - 1) + 1;
//
// gpFillRect(_hwscreen, &blackrect, 0);
//
// _currentShakePos = _newShakePos;
//
// _forceFull = true;
// }
//
// // Make sure the mouse is drawn, if it should be drawn.
// draw_mouse();
//
// // Check whether the palette was changed in the meantime and update the
// // screen surface accordingly.
// if (_paletteDirtyEnd != 0) {
// gpSetColors(_screen, _currentPalette + _paletteDirtyStart,
// _paletteDirtyStart,
// _paletteDirtyEnd - _paletteDirtyStart);
//
// _paletteDirtyEnd = 0;
//
// _forceFull = true;
// }
//
// // Force a full redraw if requested
// if (_forceFull) {
// _num_dirty_rects = 1;
//
// _dirty_rect_list[0].x = 0;
// _dirty_rect_list[0].y = 0;
// _dirty_rect_list[0].w = _screenWidth;
// _dirty_rect_list[0].h = _screenHeight;
// }
//
// // Only draw anything if necessary
// if (_num_dirty_rects > 0) {
//
// gpRect *r;
// uint32 srcPitch, dstPitch;
// gpRect *last_rect = _dirty_rect_list + _num_dirty_rects;
//
// // Convert appropriate parts of the 8bpp image into 16bpp
// if (!_overlayVisible) {
// gpRect dst;
// for(r = _dirty_rect_list; r != last_rect; ++r) {
// dst = *r;
// dst.x++; // FIXME? Shift rect by one since 2xSai needs to acces the data around
// dst.y++; // FIXME? any pixel to scale it, and we want to avoid mem access crashes.
//
// if (gpBlitSurface(_screen, r, _hwscreen, &dst) != 0) //ph0x! _tmpscreen
// error("gpBlitSurface failed: %s", gpGetError());
// }
// }
//
//// ph0x! (no scaling) cannot skip intro if commented?
//
// srcPitch = _tmpscreen->pitch;
// dstPitch = _hwscreen->pitch;
// for(r = _dirty_rect_list; r != last_rect; ++r) {
// register int dst_y = r->y + _currentShakePos;
// register int dst_h = 0;
// if (dst_y < _screenHeight) {
// dst_h = r->h;
// if (dst_h > _screenHeight - dst_y)
// dst_h = _screenHeight - dst_y;
//
// dst_y *= _scaleFactor;
//
// if (_overlayVisible) //ph0x fixme?
// _scaler_proc((byte*)_tmpscreen->pixels + (r->x*2+2) + (r->y+1)*srcPitch, srcPitch,
// (byte*)_hwscreen->pixels + r->x*2*_scaleFactor + dst_y*dstPitch, dstPitch, r->w, dst_h);
// }
// r->x *= _scaleFactor;
// r->y = dst_y;
// r->w *= _scaleFactor;
// r->h = dst_h * _scaleFactor;
// }
//
// // Readjust the dirty rect list in case we are doing a full update.
// // This is necessary if shaking is active.
// if (_forceFull) {
// _dirty_rect_list[0].y = 0;
// _dirty_rect_list[0].h = _screenHeight * _scaleFactor;
// }
//
// // Finally, blit all our changes to the screen
//
// // FIXME (dont use condition)
// if (_overlayVisible)
// gpUpdateRects(_hwscreen, _num_dirty_rects, _dirty_rect_list); //ph0x! _hwscreen
// else
// gpUpdateRects(_screen, _num_dirty_rects, _dirty_rect_list);
// }
//
// _num_dirty_rects = 0;
// _forceFull = false;
//}
// Either show or hide the mouse cursor
bool OSystem_GP32::showMouse(bool visible) {
if (_mouseVisible == visible)
return visible;
bool last = _mouseVisible;
_mouseVisible = visible;
if (visible)
draw_mouse();
else
undraw_mouse();
return last;
}
// Set the position of the mouse cursor
void OSystem_GP32::set_mouse_pos(int x, int y) {
if (x != _mouseCurState.x || y != _mouseCurState.y) {
_mouseCurState.x = x;
_mouseCurState.y = y;
mx = x; //ph0x fixme
my = y; //ph0x fixme
undraw_mouse();
}
}
// Set the bitmap that's used when drawing the cursor.
void OSystem_GP32::setMouseCursor(const byte *buf, uint w, uint h,
int hotspot_x, int hotspot_y, byte keycolor, int cursorTargetScale) {
// assert(w <= MAX_MOUSE_W);
// assert(h <= MAX_MOUSE_H);
_mouseCurState.w = w;
_mouseCurState.h = h;
_mouseHotspotX = hotspot_x;
_mouseHotspotY = hotspot_y;
_mouseKeycolor = keycolor;
//??????????
_mouseData = (byte *) buf;
undraw_mouse();
if (_mouseData)
free(_mouseData);
_mouseData = (byte *) malloc(w * h);
memcpy(_mouseData, buf, w * h);
}
// Shaking is used in SCUMM. Set current shake position.
void OSystem_GP32::setShakePos(int shake_pos) {
_newShakePos = shake_pos;
mcshake = shake_pos;
}
// Get the number of milliseconds since the program was started.
uint32 OSystem_GP32::getMillis() {
return GpTickCountGet();
}
// Delay for a specified amount of milliseconds
void OSystem_GP32::delayMillis(uint msecs) {
int n = GpTickCountGet();
while ((GpTickCountGet() - n) < msecs);
}
// Get the next event.
// Returns true if an event was retrieved.
const signed char abc[] = "0123456789abcdefghijklmnopqrstuvwxyz";
signed int abcindex = -1;
void switchsurf(int surf);
void buildgammatab(int val);
/////////////////////////////////////////////////////////////////////////////
//
// GP32 Event Handlers.
//
/////////////////////////////////////////////////////////////////////////////
bool OSystem_GP32::pollEvent(Event & event) {
#define EVENT_COUNT 2 // >=1
//#define MOUSE_MIPS 2 // bg updates wrong if >1 ??
#define MOUSE_MIPS 1 // bg updates wrong if >1 ??
static int lastkey, eventcount = EVENT_COUNT, lastevent = 0;
static int simulate;
static bool backspace = true;
static uint32 t;
int key;
key = gpTrapKey();
if (simulate)
simulate--;
switch (simulate) {
case 5:
lastevent = event.type = EVENT_KEYDOWN;
event.kbd.keycode = event.kbd.ascii = 8;
return true;
break;
case 3:
lastevent = event.type = EVENT_KEYDOWN;
event.kbd.keycode = event.kbd.ascii = abc[abcindex];
return true;
break;
case 4:
case 2:
lastevent = event.type = EVENT_KEYUP;
//event.kbd.keycode = event.kbd.ascii =
return true;
break;
case 1:
lastkey = key = 0;
lastevent = 0;
event.type = (EventType) 0;
break;
}
if (lastevent == EVENT_KEYDOWN) {
lastevent = event.type = EVENT_KEYUP;
//event.kbd.keycode = event.kbd.ascii;
return true;
}
if (key == GPC_VK_NONE) {
lastevent = lastkey = 0;
return false;
}
if (key == lastkey) {
eventcount--;
if (eventcount)
return false;
}
eventcount = EVENT_COUNT;
event.type = EVENT_KEYDOWN;
if (key & GPC_VK_FL) { // L
if (_overlayVisible)
return false;
if (key & GPC_VK_UP) {
if (key == lastkey)
return false;
if (gindex < ARRAYSIZE(scrGamma) - 1)
gindex++;
buildgammatab(gindex);
_paletteDirtyStart = 0;
_paletteDirtyEnd = 255; //fixme?
lastevent = event.type;
lastkey = key;
return true;
} else
if (key & GPC_VK_DOWN) {
if (key == lastkey)
return false;
if (gindex > 0)
gindex--;
buildgammatab(gindex);
_paletteDirtyStart = 0;
_paletteDirtyEnd = 255; //fixme?
lastevent = event.type;
lastkey = key;
return true;
}
if (key == lastkey)
return false;
if (skindex > 0)
skindex--;
event.kbd.keycode = event.kbd.ascii = shortkey[skindex];
lastevent = event.type;
lastkey = key;
return true;
}
lastkey = key;
if (key & GPC_VK_FR) { // R
if (key & GPC_VK_UP) {
if (getMillis() < t)
return false;
//do key=GpKeyGet(); while (key & GPC_VK_UP);
//fixme -2/-1
t = getMillis() + 200;
if (abcindex == -1)
abcindex = 0;
else {
if (abcindex < sizeof(abc) - 2)
abcindex++;
else
abcindex = 0;
}
if (backspace)
simulate = 6;
else {
backspace = true;
simulate = 4;
}
return false;
}
if (key & GPC_VK_DOWN) {
if (getMillis() < t)
return false;
//do key=GpKeyGet(); while (key & GPC_VK_DOWN);
//fixme -2/-1
t = getMillis() + 200;
if (abcindex == -1)
abcindex = abcindex = sizeof(abc) - 2;
else {
if (abcindex > 0)
abcindex--;
else
abcindex = sizeof(abc) - 2;
}
if (backspace)
simulate = 6;
else {
backspace = true;
simulate = 4;
}
return false;
}
if (key & GPC_VK_LEFT) {
abcindex = -1;
event.kbd.keycode = event.kbd.ascii = 8;
lastevent = event.type;
do
key = gpTrapKey();
while (key & GPC_VK_LEFT);
return true;
} else if (key & GPC_VK_RIGHT) {
abcindex = -1;
backspace = false;
return false;
}
if (!_overlayVisible) {
if (lastevent == EVENT_KEYUP)
return false;
if (shortkey[skindex + 1])
skindex++;
event.kbd.keycode = event.kbd.ascii =
shortkey[skindex];
lastevent = event.type;
return true;
}
} else if (key & GPC_VK_START) { // START = menu/enter
if (_overlayVisible)
event.kbd.keycode = event.kbd.ascii = 13;
else {
event.kbd.keycode = event.kbd.ascii = 319;
//buildgammatab(ARRAYSIZE(scrGamma)-1); // moved to colortoRBG
}
lastevent = event.type;
return true;
}
if (key & GPC_VK_SELECT) { // SELECT == escape/skip
if (_overlayVisible) {
do
key = gpTrapKey();
while (key != GPC_VK_NONE); // prevent 2xESC
buildgammatab(gindex);
_paletteDirtyStart = 0;
_paletteDirtyEnd = 255; //fixme?
}
event.kbd.keycode = event.kbd.ascii = 27;
lastevent = event.type;
return true;
}
if (key & GPC_VK_FA) {
if (lastevent == EVENT_LBUTTONUP)
return false;
if (lastevent == EVENT_LBUTTONDOWN) {
lastevent = EVENT_LBUTTONUP;
event.type = EVENT_LBUTTONUP;
} else {
lastevent = EVENT_LBUTTONDOWN;
event.type = EVENT_LBUTTONDOWN;
}
return true;
}
if (key & GPC_VK_FB) {
if (lastevent == EVENT_RBUTTONUP)
return false;
if (lastevent == EVENT_RBUTTONDOWN) {
lastevent = EVENT_RBUTTONUP;
event.type = EVENT_RBUTTONUP;
} else {
lastevent = EVENT_RBUTTONDOWN;
event.type = EVENT_RBUTTONDOWN;
}
return true;
}
if (key & GPC_VK_LEFT) {
mx -= MOUSE_MIPS;
if (mx < 1)
mx = 1; // wrong if 0?
}
if (key & GPC_VK_RIGHT) {
mx += MOUSE_MIPS;
if (mx > 319)
mx = 319;
}
if (key & GPC_VK_UP) {
my -= MOUSE_MIPS;
if (my < 1)
my = 1; // wrong if 0?
}
if (key & GPC_VK_DOWN) {
my += MOUSE_MIPS;
if (my > _screenHeight - 1)
my = _screenHeight - 1;
}
event.type = EVENT_MOUSEMOVE;
km.x = event.mouse.x = mx;
km.y = event.mouse.y = my;
event.mouse.x /= _scaleFactor;
event.mouse.y /= _scaleFactor;
set_mouse_pos(event.mouse.x, event.mouse.y);
}
/////////////////////////////////////////////////////////////////////////////
//
// GP32 Graphics Stuff -
//
/////////////////////////////////////////////////////////////////////////////
int16 OSystem_GP32::RBGToColor(uint8 r, uint8 g, uint8 b) {
float rr, gg, bb;
rr = r * gammatab2[r];
gg = g * gammatab2[g];
bb = b * gammatab2[b];
if (rr > 255)
rr = 255;
if (gg > 255)
gg = 255;
if (bb > 255)
bb = 255;
r = (u8) rr;
g = (u8) gg;
b = (u8) bb;
//return ((((r>>3)&0x1F) << 11) | (((g>>2)&0x3F) << 5) | ((b>>3)&0x1F)); //ph0x
return (((((r) >> 3) & 0x1F) << 11) | ((((g) >> 3) & 0x1F) << 6) |
(((b) >> 3) & 0x1F) << 1);
}
void OSystem_GP32::colorToRBG(int16 color, uint8 &r, uint8 &g, uint8 &b) {
float rr, gg, bb;
r = ((((color) >> 11) & 0x1F) << 3); //(((color>>11)&0x1F) << 3);
g = ((((color) >> 6) & 0x1F) << 3); //(((color>>5)&0x3F) << 2);
b = ((((color) >> 1) & 0x1F) << 3); //((color&0x1F) << 3);
rr = r * gammatab2[r];
gg = g * gammatab2[g];
bb = b * gammatab2[b];
if (rr > 255)
rr = 255;
if (gg > 255)
gg = 255;
if (bb > 255)
bb = 255;
r = (u8) rr;
g = (u8) gg;
b = (u8) bb;
}
void switchsurf(int surf) {
GPLCDINFO lcd;
GpLcdInfoGet(&lcd);
if (surf == DEBUG_SURFACE) {
if (lcd.lcd_global.U8_lcd.bpp == 16)
GpGraphicModeSet(8, NULL);
currentsurf = DEBUG_SURFACE;
GpSurfaceFlip(&LCDbuffer[(int)currentsurf]);
//GpSetPaletteEntry ( 0, 0,0,0 );
//GpSetPaletteEntry ( 1, 0,0,0 );
//GpSetPaletteEntry ( 2, 255,255,255 );
} else if (surf == GAME_SURFACE) {
//if (lcd.lcd_global.U8_lcd.bpp == 8) GpGraphicModeSet(16, NULL);
currentsurf = GAME_SURFACE;
GpSurfaceFlip(&LCDbuffer[(int)currentsurf]);
//GpSetPaletteEntry ( 2, 0,0,0 );
//GpSetPaletteEntry ( 1, 0,107,84 );
//GpSetPaletteEntry ( 0, 255,255,255 );
} else
error("Switching to false stuface");
}
/////////////////////////////////////////////////////////////////////////////
//
// GP32 Sound Stuff -
//
/////////////////////////////////////////////////////////////////////////////
void OSystem_GP32::clearSoundCallback() {
// _sound_proc = NULL;
// _sound_proc_param = NULL;
}
typedef void SoundProc(void *param, byte *buf, int len);
typedef struct GPSOUNDBUF {
PCM_SR freq; /* Taken from gpmm.h */
PCM_BIT format; /* Taken from gpmm.h */
unsigned int samples; /* Buffer length (in samples) */
void *userdata; /* Userdata which gets passed to the callback function */
SoundProc *callback;
unsigned int pollfreq; /* Frequency of the timer interrupt which polls the playing position
* recommended value: 2*(playingfreq in Hz/GPSOUNDBUF.samples) */
unsigned int samplesize; /* Size of one sample (8bit mono->1, 16bit stereo->4) - don't touch this */
} GPSOUNDBUF;
GPSOUNDBUF gpsndbuf; // for scumm
/* Global variables */
unsigned int frame = 0;
unsigned int *soundPos = 0;
volatile int idx_buf;
unsigned int shiftVal = 0;
void *buffer;
GPSOUNDBUF soundBuf;
/* This routine gets called by the timer interrupt and
* polls the current playing position within the buffer.
*/
//void *blah; // holds "this" for mixer.cpp
void soundtimer(void) {
unsigned int t =
(((unsigned int)(*soundPos) - (unsigned int)buffer) >> shiftVal) >=
soundBuf.samples ? 1 : 0;
if (t != frame) {
unsigned int offs =
((frame == 1) ? (soundBuf.samples << shiftVal) : 0);
soundBuf.callback(soundBuf.userdata /*blah */ , (u8 *) ((unsigned int)buffer + offs), soundBuf.samples << shiftVal); //FIXME (*callback)(param) ?
frame = t;
}
}
int GpSoundBufStart(GPSOUNDBUF *sb) {
frame = 0;
/* Copy the structure */
memcpy(&soundBuf, sb, sizeof(GPSOUNDBUF));
/* Calculate size of a single sample in bytes
* and a corresponding shift value
*/
shiftVal = 0;
switch (soundBuf.freq) {
case PCM_S11:
break;
case PCM_S22:
break;
case PCM_S44:
shiftVal++;
break;
case PCM_M11:
break;
case PCM_M22:
break;
case PCM_M44:
shiftVal++;
break;
}
if (soundBuf.format == PCM_16BIT)
shiftVal++;
soundBuf.samplesize = 1 << shiftVal;
/* Allocate memory for the playing buffer */
buffer = malloc(soundBuf.samplesize * soundBuf.samples * 2);
memset(buffer, 0, soundBuf.samplesize * soundBuf.samples * 2);
/* Set timer interrupt #0 */
if (GpTimerOptSet(0, soundBuf.pollfreq, 0,
soundtimer) == GPOS_ERR_ALREADY_USED)
error("timer slot used");
GpTimerSet(0);
/* Start playing */
GpPcmPlay((unsigned short *)buffer,
soundBuf.samples * soundBuf.samplesize * 2, 1);
GpPcmLock((unsigned short *)buffer, (int *)&idx_buf,
(unsigned int *)&soundPos);
return 0;
}
void GpSoundBufStop(void) {
GpPcmStop();
GpPcmRemove((unsigned short *)buffer);
GpTimerKill(0);
free(buffer);
}
int OSystem_GP32::getOutputSampleRate() const {
return SAMPLES_PER_SEC;
}
// Set the function to be invoked whenever samples need to be generated
// Buffer Length and Poll Frequency changed. DJWillis
bool OSystem_GP32::setSoundCallback(SoundProc proc, void *param) {
gpsndbuf.freq = PCM_S22; // Taken from gpmm.h
gpsndbuf.format = PCM_16BIT; // Taken from gpmm.h
gpsndbuf.samples = 2048; //128; //fixme? // Buffer length (in samples)
//FIXME? crashes if not commented?!
//gpsndbuf.userdata=g_scumm; //param; //fixme? // Userdata which gets passed to the callback function
gpsndbuf.callback = proc; //mycallback; // Callback function (just like in SDL)
//2*((float)22025/(float)s.samples);
gpsndbuf.pollfreq = 8 * (SAMPLES_PER_SEC / gpsndbuf.samples); //fixme
// Frequency of the timer interrupt which polls the playing position
// recommended value: 2*(playingfreq in Hz/GPSOUNDBUF.samples)
//s.samplesize; // Size of one sample (8bit mono->1, 16bit stereo->4) - don't touch this
GpPcmInit(PCM_S22, PCM_16BIT);
GpSoundBufStart(&gpsndbuf);
return true;
}
/////////////////////////////////////////////////////////////////////////////
//
// GP32 Graphics Stuff
//
/////////////////////////////////////////////////////////////////////////////
void OSystem_GP32::get_screen_image(byte *buf) {
/* make sure the mouse is gone */
undraw_mouse();
///if (gpLockSurface(_screen) == -1)
/// error("gpLockSurface failed: %s.\n", gpGetError());
memcpy(buf, _screen->pixels, _screenWidth * _screenHeight);
///gpUnlockSurface(_screen);
}
void OSystem_GP32::hotswap_gfx_mode() {
/* We allocate a screen sized bitmap which contains a "backup"
* of the screen data during the change. Then we draw that to
* the new screen right after it's setup.
*/
byte *bak_mem = (byte *) malloc(_screenWidth * _screenHeight);
get_screen_image(bak_mem);
unload_gfx_mode();
load_gfx_mode();
// reset palette
gpSetColors(_screen, _currentPalette, 0, 256);
// blit image
copyRectToScreen(bak_mem, _screenWidth, 0, 0, _screenWidth,
_screenHeight);
free(bak_mem);
updateScreen();
}
// Get or set a property
//uint32 OSystem_GP32::property(int param, Property *value)
//{
// switch(param) {
//
// case PROP_GET_FULLSCREEN:
// return _full_screen;
//}
void OSystem_GP32::setWindowCaption(const char *caption) {
//gGameName = caption; // Would like to return game here like DC port. - DJWillis
}
// CDROM Code - All returns false as the GP32 has no CDROM ;-)
bool OSystem_GP32::openCD(int drive) {
return false;
}
bool OSystem_GP32::pollCD() {
return false;
}
void OSystem_GP32::playCD(int track, int num_loops, int start_frame, int duration) {
}
void OSystem_GP32::stopCD() {
}
void OSystem_GP32::updateCD() {
}
// End CDROM Code.
// Add a new callback timer
// ph0x FIXME: make members
int _timerinterval;
int (*_timercallback)(int);
void voidcallback() {
//printf("timer running");
_timercallback(_timerinterval); //FIXME ?? (*_timercallback)(_timerinterval);
}
void OSystem_GP32::setTimerCallback(TimerProc callback, int timer) {
int timerno = 1; //0 used by sound proc
if (!callback) {
GpTimerKill(timerno);
return;
}
if (GpTimerOptSet(timerno, timer, 0,
voidcallback) == GPOS_ERR_ALREADY_USED)
error("timer slot used");
_timerinterval = timer;
_timercallback = callback;
GpTimerSet(timerno);
}
// Mutex handling - DJWillis Hack
OSystem::MutexRef OSystem_GP32::createMutex(void) {
return NULL;
}
void OSystem_GP32::lockMutex(MutexRef) {
}
void OSystem_GP32::unlockMutex(MutexRef) {
}
void OSystem_GP32::deleteMutex(MutexRef) {
}
// Quit
void OSystem_GP32::quit() {
printf("Quitting...");
exit(0);
}
// Overlay
void OSystem_GP32::showOverlay() {
// hide the mouse
undraw_mouse();
u8 *s = (u8 *) _screen->pixels;
u16 *d = (u16 *) _tmpscreen->pixels;
u8 c;
// convert to 16 bit
for (int y = 0; y < _screenHeight; y++) {
for (int x = 0; x < 320; x++) {
c = *s;
*d++ =
(u16) gpRGB16(_currentPalette[c].r,
_currentPalette[c].g, _currentPalette[c].b);
s++;
}
d += 3; // tmpscreen width is screen+3
}
GpGraphicModeSet(16, NULL); //ph0x
// Test code.
//???????????
//GpRectFill(NULL,&LCDbuffer[GAME_SURFACE], 0, 0, 320, 240, 0); //black border
_overlayVisible = true;
clearOverlay();
}
void OSystem_GP32::hideOverlay() {
// hide the mouse
undraw_mouse();
GpGraphicModeSet(8, NULL); //ph0x
GpRectFill(NULL, &LCDbuffer[GAME_SURFACE], 0, 0, 320, 240, 0); //black border
_overlayVisible = false;
_forceFull = true;
}
void OSystem_GP32::clearOverlay() {
if (!_overlayVisible)
return;
// hide the mouse
undraw_mouse();
// Clear the overlay by making the game screen "look through" everywhere.
gpRect src, dst;
src.x = src.y = 0;
dst.x = dst.y = 1;
src.w = dst.w = _screenWidth;
src.h = dst.h = _screenHeight;
if (gpBlitSurface(_screen, &src, _tmpscreen, &dst) != 0) //FIXME
error("gpBlitSurface failed: %s", gpGetError());
_forceFull = true;
}
void OSystem_GP32::grabOverlay(int16 *buf, int pitch) {
if (!_overlayVisible)
return;
if (_tmpscreen == NULL)
return;
// hide the mouse
undraw_mouse();
///if (gpLockSurface(_tmpscreen) == -1)
/// error("gpLockSurface failed: %s.\n", gpGetError());
int16 *src = (int16 *) _tmpscreen->pixels + TMP_SCREEN_WIDTH + 1;
int h = _screenHeight;
do {
memcpy(buf, src, _screenWidth * 2);
src += TMP_SCREEN_WIDTH;
buf += pitch;
} while (--h);
///gpUnlockSurface(_tmpscreen);
}
void OSystem_GP32::copyRectToOverlay(const int16 * buf, int pitch, int x,
int y, int w, int h) {
if (!_overlayVisible)
return;
if (_tmpscreen == NULL)
return;
// Clip the coordinates
if (x < 0) {
w += x;
buf -= x;
x = 0;
}
if (y < 0) {
h += y;
buf -= y * pitch;
y = 0;
}
if (w > _screenWidth - x) {
w = _screenWidth - x;
}
if (h > _screenHeight - y) {
h = _screenHeight - y;
}
if (w <= 0 || h <= 0)
return;
// Mark the modified region as dirty
cksum_valid = false;
add_dirty_rect(x, y, w, h);
/* FIXME: undraw mouse only if the draw rect intersects with the mouse rect */
undraw_mouse();
///if (gpLockSurface(_tmpscreen) == -1)
/// error("gpLockSurface failed: %s.\n", gpGetError());
int16 *dst =
(int16 *) _tmpscreen->pixels + (y + 1) * TMP_SCREEN_WIDTH + (x +
1);
do {
memcpy(dst, buf, w * 2);
dst += TMP_SCREEN_WIDTH;
buf += pitch;
} while (--h);
///gpUnlockSurface(_tmpscreen);
}
void OSystem_GP32::internUpdateScreen() {
assert(_hwscreen != NULL);
// If the shake position changed, fill the dirty area with blackness
if (_currentShakePos != _newShakePos) {
gpRect blackrect =
{ 0, 0, _screenWidth * _scaleFactor,
_newShakePos * _scaleFactor };
//if (_adjustAspectRatio)
// blackrect.h = real2Aspect(blackrect.h - 1) + 1;
gpFillRect(_hwscreen, &blackrect, 0);
_currentShakePos = _newShakePos;
_forceFull = true;
}
// Make sure the mouse is drawn, if it should be drawn.
draw_mouse();
// Check whether the palette was changed in the meantime and update the
// screen surface accordingly.
if (_paletteDirtyEnd != 0) {
gpSetColors(_screen, _currentPalette + _paletteDirtyStart,
_paletteDirtyStart, _paletteDirtyEnd - _paletteDirtyStart);
_paletteDirtyEnd = 0;
_forceFull = true;
}
//#ifdef USE_OSD
// // OSD visible (i.e. non-transparent)?
// if (_osdAlpha != gpALPHA_TRANSPARENT) {
// // Updated alpha value
// const int diff = gpGetTicks() - _osdFadeStartTime;
// if (diff > 0) {
// if (diff >= kOSDFadeOutDuration) {
// // Back to full transparency
// _osdAlpha = gpALPHA_TRANSPARENT;
// } else {
// // Do a linear fade out...
// const int startAlpha = gpALPHA_TRANSPARENT + kOSDInitialAlpha * (gpALPHA_OPAQUE - gpALPHA_TRANSPARENT) / 100;
// _osdAlpha = startAlpha + diff * (gpALPHA_TRANSPARENT - startAlpha) / kOSDFadeOutDuration;
// }
// gpSetAlpha(_osdSurface, gpRLEACCEL | gpSRCCOLORKEY | gpSRCALPHA, _osdAlpha);
// _forceFull = true;
// }
// }
//#endif
// Force a full redraw if requested
if (_forceFull) {
_num_dirty_rects = 1;
_dirty_rect_list[0].x = 0;
_dirty_rect_list[0].y = 0;
_dirty_rect_list[0].w = _screenWidth;
_dirty_rect_list[0].h = _screenHeight;
}
// Only draw anything if necessary
if (_num_dirty_rects > 0) {
gpRect *r;
gpRect dst;
uint32 srcPitch, dstPitch;
gpRect *last_rect = _dirty_rect_list + _num_dirty_rects;
if (_scaler_proc == Normal1x && !_adjustAspectRatio) {
gpSurface *target =
_overlayVisible ? _tmpscreen : _screen;
for (r = _dirty_rect_list; r != last_rect; ++r) {
dst = *r;
if (_overlayVisible) {
// FIXME: I don't understand why this is necessary...
dst.x--;
dst.y--;
}
dst.y += _currentShakePos;
if (gpBlitSurface(target, r, _hwscreen,
&dst) != 0)
error("gpBlitSurface failed: %s",
gpGetError());
}
} else {
if (!_overlayVisible) {
for (r = _dirty_rect_list; r != last_rect; ++r) {
dst = *r;
dst.x++; // Shift rect by one since 2xSai needs to acces the data around
dst.y++; // any pixel to scale it, and we want to avoid mem access crashes.
if (gpBlitSurface(_screen, r,
_tmpscreen, &dst) != 0)
error
("gpBlitSurface failed: %s",
gpGetError());
}
}
//gpLockSurface(_tmpscreen);
//gpLockSurface(_hwscreen);
srcPitch = _tmpscreen->pitch;
dstPitch = _hwscreen->pitch;
for (r = _dirty_rect_list; r != last_rect; ++r) {
register int dst_y = r->y + _currentShakePos;
register int dst_h = 0;
register int orig_dst_y = 0;
if (dst_y < _screenHeight) {
dst_h = r->h;
if (dst_h > _screenHeight - dst_y)
dst_h = _screenHeight - dst_y;
dst_y *= _scaleFactor;
if (_adjustAspectRatio) {
orig_dst_y = dst_y;
dst_y = real2Aspect(dst_y);
}
_scaler_proc((byte *) _tmpscreen->
pixels + (r->x * 2 + 2) + (r->y +
1) * srcPitch, srcPitch,
(byte *) _hwscreen->pixels +
r->x * 2 * _scaleFactor +
dst_y * dstPitch, dstPitch, r->w,
dst_h);
}
r->x *= _scaleFactor;
r->y = dst_y;
r->w *= _scaleFactor;
r->h = dst_h * _scaleFactor;
if (_adjustAspectRatio
&& orig_dst_y / _scaleFactor <
_screenHeight)
r->h =
stretch200To240((uint8 *)
_hwscreen->pixels, dstPitch, r->w,
r->h, r->x, r->y, orig_dst_y);
}
//gpUnlockSurface(_tmpscreen);
//gpUnlockSurface(_hwscreen);
}
// Readjust the dirty rect list in case we are doing a full update.
// This is necessary if shaking is active.
if (_forceFull) {
_dirty_rect_list[0].y = 0;
_dirty_rect_list[0].h = 240;
}
#ifdef USE_OSD
if (_osdAlpha != gpALPHA_TRANSPARENT) {
gpBlitSurface(_osdSurface, 0, _hwscreen, 0);
}
#endif
// Finally, blit all our changes to the screen
gpUpdateRects(_hwscreen, _num_dirty_rects, _dirty_rect_list);
}
_num_dirty_rects = 0;
_forceFull = false;
}
// assert(_hwscreen != NULL);
//
// // If the shake position changed, fill the dirty area with blackness
// if (_currentShakePos != _newShakePos) {
// gpRect blackrect = {0, 0, _screenWidth*_scaleFactor, _newShakePos*_scaleFactor};
// gpFillRect(_hwscreen, &blackrect, 0);
//
// _currentShakePos = _newShakePos;
//
// _forceFull = true;
// }
//
// // Make sure the mouse is drawn, if it should be drawn.
// draw_mouse(); //ph0x
//
// // Check whether the palette was changed in the meantime and update the
// // screen surface accordingly.
// if (_paletteDirtyEnd != 0) {
// gpSetColors(_screen, _currentPalette + _paletteDirtyStart,
// _paletteDirtyStart,
// _paletteDirtyEnd - _paletteDirtyStart);
//
// _paletteDirtyEnd = 0;
//
// _forceFull = true;
// }
//
// // Force a full redraw if requested
// if (_forceFull) {
// _num_dirty_rects = 1;
//
// _dirty_rect_list[0].x = 0;
// _dirty_rect_list[0].y = 0;
// _dirty_rect_list[0].w = _screenWidth;
// _dirty_rect_list[0].h = _screenHeight;
// }
//
// // Only draw anything if necessary
// if (_num_dirty_rects > 0) {
//
// gpRect *r;
// uint32 srcPitch, dstPitch;
// gpRect *last_rect = _dirty_rect_list + _num_dirty_rects;
//
// // Convert appropriate parts of the 8bpp image into 16bpp
// if (!_overlayVisible) {
// gpRect dst;
// for(r = _dirty_rect_list; r != last_rect; ++r) {
// dst = *r;
// dst.x++; // FIXME? Shift rect by one since 2xSai needs to acces the data around
// dst.y++; // FIXME? any pixel to scale it, and we want to avoid mem access crashes.
//
// if (gpBlitSurface(_screen, r, _hwscreen, &dst) != 0) //ph0x! gp_tmpscreen
// error("gpBlitSurface failed: %s", gpGetError());
// }
// }
//
// ///gp_LockSurface(gp_tmpscreen);
// ///gp_LockSurface(gp_hwscreen);
//
//// ph0x! (no scaling) cannot skip intro if commented?
//
// srcPitch = _tmpscreen->pitch;
// dstPitch = _hwscreen->pitch;
// for(r = _dirty_rect_list; r != last_rect; ++r) {
// register int dst_y = r->y + _currentShakePos;
// register int dst_h = 0;
// if (dst_y < _screenHeight) {
// dst_h = r->h;
// if (dst_h > _screenHeight - dst_y)
// dst_h = _screenHeight - dst_y;
//
// dst_y *= _scaleFactor;
//
// if (_overlayVisible) //ph0x fixme?
// _scaler_proc((byte*)_tmpscreen->pixels + (r->x*2+2) + (r->y+1)*srcPitch, srcPitch,
// (byte*)_hwscreen->pixels + r->x*2*_scaleFactor + dst_y*dstPitch, dstPitch, r->w, dst_h);
// }
// r->x *= _scaleFactor;
// r->y = dst_y;
// r->w *= _scaleFactor;
// r->h = dst_h * _scaleFactor;
// }
//
// ///gp_UnlockSurface(gp_tmpscreen);
// ///gp_UnlockSurface(gp_hwscreen);
//
// // Readjust the dirty rect list in case we are doing a full update.
// // This is necessary if shaking is active.
// if (_forceFull) {
// _dirty_rect_list[0].y = 0;
// _dirty_rect_list[0].h = _screenHeight * _scaleFactor;
// }
//
// // Finally, blit all our changes to the screen
//
// // FIXME (dont use condition)
// if (_overlayVisible)
// gpUpdateRects(_hwscreen, _num_dirty_rects, _dirty_rect_list); //ph0x! gp_hwscreen
// else
// gpUpdateRects(_screen, _num_dirty_rects, _dirty_rect_list);
// }
//
// _num_dirty_rects = 0;
// _forceFull = false;
//}
void OSystem_GP32::setFeatureState(Feature f, bool enable) {
switch (f) {
case kFeatureFullscreenMode:
setFullscreenMode(enable);
break;
case kFeatureAspectRatioCorrection:
if (_screenHeight == 200 && _adjustAspectRatio != enable) {
Common::StackLock lock(_graphicsMutex);
//assert(_hwscreen != 0);
_adjustAspectRatio ^= true;
hotswap_gfx_mode();
#ifdef USE_OSD
char buffer[128];
if (_adjustAspectRatio)
sprintf(buffer,
"Enabled aspect ratio correction\n%d x %d -> %d x %d",
_screenWidth, _screenHeight, _hwscreen->w,
_hwscreen->h);
else
sprintf(buffer,
"Disabled aspect ratio correction\n%d x %d -> %d x %d",
_screenWidth, _screenHeight, _hwscreen->w,
_hwscreen->h);
displayMessageOnOSD(buffer);
#endif
// Blit everything to the screen
internUpdateScreen();
// Make sure that an EVENT_SCREEN_CHANGED gets sent later
_modeChanged = true;
}
break;
case kFeatureAutoComputeDirtyRects:
if (enable)
_mode_flags |= DF_WANT_RECT_OPTIM;
else
_mode_flags &= ~DF_WANT_RECT_OPTIM;
break;
default:
break;
}
}
bool OSystem_GP32::hasFeature(Feature f) {
return false;
(f == kFeatureFullscreenMode) || (f == kFeatureAspectRatioCorrection);
// ||
// (f == kFeatureAutoComputeDirtyRects);
}
bool OSystem_GP32::getFeatureState(Feature f) {
switch (f) {
case kFeatureFullscreenMode:
return _full_screen;
case kFeatureAspectRatioCorrection:
return _adjustAspectRatio;
case kFeatureAutoComputeDirtyRects:
return _mode_flags & DF_WANT_RECT_OPTIM;
default:
return false;
}
}
void OSystem_GP32::setFullscreenMode(bool enable) {
Common::StackLock lock(_graphicsMutex);
if (_full_screen != enable) {
assert(_hwscreen != 0);
_full_screen ^= true;
undraw_mouse();
//if (!gpWM_ToggleFullScreen(_hwscreen)) {
// if ToggleFullScreen fails, achieve the same effect with hotswap gfx mode
// hotswap_gfx_mode();
//}
#ifdef USE_OSD
if (_full_screen)
displayMessageOnOSD("Fullscreen mode");
else
displayMessageOnOSD("Windowed mode");
#endif
// Blit everything to the screen
internUpdateScreen();
// Make sure that an EVENT_SCREEN_CHANGED gets sent later
_modeChanged = true;
}
}
static const OSystem::GraphicsMode supportedGraphicsModes[] = {
{"1x", "320x240 16bpp", GFX_NORMAL},
{0, 0, 0}
};
const OSystem::GraphicsMode *OSystem_GP32::getSupportedGraphicsModes() const {
return supportedGraphicsModes;
}
int OSystem_GP32::getDefaultGraphicsMode() const {
return GFX_NORMAL;
}
bool OSystem_GP32::setGraphicsMode(int mode) {
Common::StackLock lock(_graphicsMutex);
int newScaleFactor = 1;
ScalerProc *newScalerProc;
switch (mode) {
case GFX_NORMAL:
newScaleFactor = 1;
newScalerProc = Normal1x;
break;
//case GFX_DOUBLESIZE:
// newScaleFactor = 2;
// newScalerProc = Normal2x;
// break;
//case GFX_TRIPLESIZE:
// newScaleFactor = 3;
// newScalerProc = Normal3x;
// break;
//case GFX_2XSAI:
// newScaleFactor = 2;
// newScalerProc = _2xSaI;
// break;
//case GFX_SUPER2XSAI:
// newScaleFactor = 2;
// newScalerProc = Super2xSaI;
// break;
//case GFX_SUPEREAGLE:
// newScaleFactor = 2;
// newScalerProc = SuperEagle;
// break;
//case GFX_ADVMAME2X:
// newScaleFactor = 2;
// newScalerProc = AdvMame2x;
// break;
//case GFX_ADVMAME3X:
// newScaleFactor = 3;
// newScalerProc = AdvMame3x;
// break;
//case GFX_HQ2X:
// newScaleFactor = 2;
// newScalerProc = HQ2x;
// break;
//case GFX_HQ3X:
// newScaleFactor = 3;
// newScalerProc = HQ3x;
// break;
//case GFX_TV2X:
// newScaleFactor = 2;
// newScalerProc = TV2x;
// break;
//case GFX_DOTMATRIX:
// newScaleFactor = 2;
// newScalerProc = DotMatrix;
// break;
default:
warning("unknown gfx mode %d", mode);
return false;
}
_mode = mode;
_scaler_proc = newScalerProc;
if (newScaleFactor != _scaleFactor) {
_scaleFactor = newScaleFactor;
hotswap_gfx_mode();
}
if (!_screen)
return true;
#ifdef USE_OSD
if (_osdSurface) {
const char *newScalerName = 0;
const GraphicsMode *g = s_supportedGraphicsModes;
while (g->name) {
if (g->id == mode) {
newScalerName = g->description;
break;
}
g++;
}
if (newScalerName) {
char buffer[128];
sprintf(buffer,
"Active graphics filter: %s\n%d x %d -> %d x %d",
newScalerName, _screenWidth, _screenHeight,
_hwscreen->w, _hwscreen->h);
displayMessageOnOSD(buffer);
}
}
#endif
// Blit everything to the screen
_forceFull = true;
internUpdateScreen();
// Make sure that an EVENT_SCREEN_CHANGED gets sent later
_modeChanged = true;
return true;
}
int OSystem_GP32::getGraphicsMode() const {
return _mode;
}
////OSystem *OSystem_GP32::create(int gfx_mode, bool full_screen)
//OSystem *OSystem_GP32::create()
//{
// //OSystem_GP32 *syst = new OSystem_GP32();
//
// //syst->_mode = gfx_mode;
// //syst->_full_screen = full_screen;
// //
// //// allocate palette storage
// //syst->_currentPalette = (gpColor*)calloc(sizeof(gpColor), 256);
//
// //// allocate the dirty rect storage
// //syst->_mouseBackup = (byte*)malloc(MAX_MOUSE_W * MAX_MOUSE_H * MAX_SCALING * 2);
// /*return syst;*/
// return new OSystem_GP32();
//}
//////////////////////////////////////////////////
// GP32 stuff
//////////////////////////////////////////////////
extern "C" int write(int fd, void *p, size_t n);
int write(int fd, void *p, size_t n) { //ph0x hack!
return 0;
}
// Converts 8bit rgb values to a GP32 palette value
void GpSetPaletteEntry(u8 i, u8 r, u8 g, u8 b) {
GP_PALETTEENTRY entry = gpRGB16(r, g, b);
GpPaletteEntryChange(i, 1, &entry, 0);
}
int gpprintf(const char *fmt, ...) {
static bool busy;
static int y;
char s[1024]; // ?
va_list marker;
if (busy)
return 0;
busy = true;
va_start(marker, fmt);
vsnprintf(s, 1024, fmt, marker);
va_end(marker);
#ifdef GPDEBUG
//dprintf("mem: %d ", gm_availablesize());
dprintf(s);
if (s[strlen(s) - 1] != '\n')
dprintf("\n");
//if (s[0]!='>') return r;
#endif
fprintf(stdout, s);
// print to lcd
GpTextOut(NULL, &LCDbuffer[DEBUG_SURFACE], 0, y, s, 1);
y += (ENGFONT_H - FONT_LINEGAP);
if (y >
(240 / (ENGFONT_H - FONT_LINEGAP)) * (ENGFONT_H - FONT_LINEGAP)) {
y = 0;
GpRectFill(NULL, &LCDbuffer[DEBUG_SURFACE], 0, 0, 320, 240, 2);
}
busy = false;
return 0;
}
int gpfprintf(FILE *stream, const char *fmt, ...) {
char s[256];
va_list marker;
va_start(marker, fmt);
vsnprintf(s, 256, fmt, marker);
va_end(marker);
return fwrite(s, 1, strlen(s), stream);
}
typedef struct {
FILE f;
ulong size;
ulong p; //cache position
} xfile;
#define XFILE(f) (*(xfile*)f)
#define FCACHE_SIZE 8*1024 // speed up writes
FILE *gpfopen(const char *filename, const char *mode) {
//FIXME: allocation, mode, malloc -> new
ulong m;
FILE *f;
ERR_CODE err;
char s[256];
if (!strchr(filename, '.')) {
sprintf(s, "%s.", filename);
filename = s;
}
//printf(">open %s as %s", filename, mode);
// FIXME add binary/text support
if (tolower(mode[0]) == 'r') {
f = (FILE *) malloc(sizeof(xfile));
m = OPEN_R;
GpFileGetSize(filename, &XFILE(f).size);
err = GpFileOpen(filename, m, f);
} else if (tolower(mode[0]) == 'w') {
//printf("open if as W");
f = (FILE *) malloc(sizeof(xfile) + FCACHE_SIZE);
XFILE(f).size = 0; // FIXME? new file has no size?
XFILE(f).p = 0;
m = OPEN_W;
err = GpFileCreate(filename, ALWAYS_CREATE, f);
} else
error("wrong file mode");
if (!f)
error("%s: cannot crate F_HANDLE", __FUNCTION__);
if (err) {
//printf("IOerr %d", err);
return NULL;
} else
return f;
}
int gpfclose(FILE *f) {
if (!f) {
//warning("closing null file");
return 1;
}
if (*(u32 *)((char *)f - sizeof(u32)) == 0x4321) {
debug(0, "Double closing", __FUNCTION__);
return 1;
} // return 1 ??
if (XFILE(f).p) {
GpFileWrite(*f, (char *)f + sizeof(xfile), XFILE(f).p); // flush cache
XFILE(f).p = 0;
}
ERR_CODE err = GpFileClose(*f);
free(f);
return err;
}
int gpfseek(FILE *stream, long offset, int whence) {
ulong dummy;
switch (whence) {
case SEEK_SET:
whence = FROM_BEGIN;
break;
case SEEK_CUR:
whence = FROM_CURRENT;
break;
case SEEK_END:
whence = FROM_END;
break;
}
return GpFileSeek(*stream, whence, offset, (long *)&dummy);
}
long gpftell(FILE *stream) { // fixme? use standard func
ulong pos = 0;
//ERR_CODE err = GpFileSeek(*stream, FROM_CURRENT, 0, (long*)&pos);
return pos;
}
size_t gpfread(void *ptr, size_t size, size_t n, FILE *stream) {
ulong readcount = 0;
//ERR_CODE err = GpFileRead(*stream, ptr, size*n, &readcount); //fixme? size*n
return readcount / size; //FIXME?
}
size_t gpfwrite(const void *ptr, size_t size, size_t n, FILE *f) {
int len = size * n;
if (!f) {
//warning("writing to null file");
return 0;
}
if (XFILE(f).p + len < FCACHE_SIZE) {
memcpy((char *)f + sizeof(xfile) + XFILE(f).p, ptr, len);
XFILE(f).p += len;
} else {
if (XFILE(f).p) {
GpFileWrite(*f, (char *)f + sizeof(xfile), XFILE(f).p); // flush cache
XFILE(f).p = 0;
}
ERR_CODE err = GpFileWrite(*f, ptr, len);
if (!err)
return n;
else
return -err;
}
return 0;
}
void gpclearerr(FILE *stream) {
//warning("fixme: %s", __FUNCTION__);
}
int gpfeof(FILE *f) { //fixme!
return ftell(f) >= XFILE(f).size;
}
char *gpfgets(char *s, int n, FILE *f) {
int i = 0;
while (!feof(f) && i < n) {
fread(&s[i], 1, 1, f);
if (s[i] == '\n') {
s[i + 1] = 0;
return s;
}
i++;
}
if (feof(f))
return NULL;
else
return s;
}
char gpfgetc(FILE *f) {
char c[1];
fread(&c[0], 1, 1, f);
return c[0];
}
int gpfflush(FILE * stream) {
return 0;
}
/*
* GP32 Memory managment.
*/
void *gpmalloc(size_t size) {
u32 np;
u32 *up;
np = (u32) gm_malloc(size + sizeof(u32));
if (np) {
up = (u32 *) np;
*up = 0x1234;
return (void *)(np + sizeof(u32));
}
return NULL;
}
void *gpcalloc(size_t nitems, size_t size) {
void *p = gpmalloc(nitems * size); //gpcalloc doesnt clear?
memset(p, 0, nitems * size);
if (*(u8 *) p)
warning("%s: calloc doesn't clear!", __FUNCTION__); //fixme: was error
//printf("callocing");
return p;
}
void gpfree(void *block) {
u32 np;
u32 *up;
if (!block) {
debug(0, "freeing null pointer");
return;
}
np = ((u32) block) - sizeof(u32);
up = (u32 *) np;
if (*up == 0x4321)
error("%s: double deallocation!", __FUNCTION__);
if (*up != 0x1234)
error("%s: corrupt block!", __FUNCTION__);
*up = 0x4321;
gm_free(up);
}
/*
char *gpstrdup(const char *s) {
char *p=(char*)malloc(strlen(s)+1);
memcpy(p, s, strlen(s)+1);
return p;
}
*/
char *gpstrdup(const char *strSource) {
char *strBuffer;
strBuffer = (char *)malloc(strlen(strSource) + 1);
if (strBuffer)
strcpy(strBuffer, strSource);
return strBuffer;
}
time_t gptime(time_t *timer) {
time_t t = GpTickCountGet() / 1000;
if (timer)
*timer = t;
return t;
}
void gpdeinit() {
fclose(fstdin);
fclose(fstdout);
fclose(fstderr);
}
void gpexit(int code) {
switchsurf(DEBUG_SURFACE);
if (!code) {
printf("----------------------------------------");
printf(" Your GP32 is now restarting... ");
printf("----------------------------------------");
gpdeinit();
// FIXME: use function :)
int n = GpTickCountGet();
while ((GpTickCountGet() - n) < 3000);
GpAppExit();
} else {
printf("Exit Code %d", code);
while (1);
}
}
/****************************************************************
Setup CPU Speed - Calls to CPUSPEED.S
****************************************************************/
void gpCPUSpeed(int freq) {
// To extend use: cpu_speed(CLK_SPEED, DIV_FACTOR, CLK_MODE);
if (freq == 166)
cpu_speed(165000000, 0x2f001, 3); // 40 Bus?
if (freq == 156)
cpu_speed(156000000, 0x2c001, 3); // 36 Bus
if (freq == 133)
cpu_speed(133500000, (81 << 12) | (2 << 4) | 1, 2); // 66 Bus?
if (freq == 132)
cpu_speed(132000000, 0x3a011, 3); // 33 Bus
if (freq == 120)
cpu_speed(120000000, 0x24001, 2);
if (freq == 100)
cpu_speed(102000000, (43 << 12) | (1 << 4) | 1, 2);
if (freq == 66)
cpu_speed(67500000, (37 << 12) | (0 << 4) | 2, 2);
if (freq == 40)
cpu_speed(40000000, 0x48013, 1); // Default
if (freq == 33)
cpu_speed(33750000, (37 << 12) | (0 << 4) | 3, 2); // Ultra slow
}
/****************************************************************
Pre-ScummVM Configuration Menu.
****************************************************************/
int ConfigMenu() {
//#ifndef GP32_GDB
// gpCPUSpeed(40);
//#endif /*GP32_GDB*/
GpSetPaletteEntry(2, 0, 0, 0);
GpSetPaletteEntry(1, 0, 0, 0);
GpSetPaletteEntry(0, 255, 255, 255);
int i, key, fg, bg, choice = 0, y = ENGFONT_H * 7;
int n = ARRAYSIZE(menu);
GpTextOut(NULL, &LCDbuffer[(int)currentsurf], 0, y,
"Configuration Menu", 1);
y += ENGFONT_H;
GpTextOut(NULL, &LCDbuffer[(int)currentsurf], 0, y,
"----------------------------------------", 1);
y += ENGFONT_H;
do {
for (i = 0; i < n; i++) {
if (i == choice) {
fg = 2;
bg = 1;
} else {
fg = 1;
bg = 2;
}
GpRectFill(NULL, &LCDbuffer[(int)currentsurf], 0,
y + i * ENGFONT_H, 320, ENGFONT_H, bg);
char s[256];
sprintf(s, "%s [%s]", menu[i].option,
menu[i].submenu[menu[i].index]);
GpTextOut(NULL, &LCDbuffer[(int)currentsurf], 0,
y + i * ENGFONT_H, s, fg);
}
do
key = gpTrapKey();
while (key == GPC_VK_NONE);
if (key & GPC_VK_DOWN) {
if (choice < n - 1)
choice++;
}
if (key & GPC_VK_UP) {
if (choice > 0)
choice--;
}
if (key & GPC_VK_LEFT) {
if (menu[choice].index > 0)
menu[choice].index--;
}
if (key & GPC_VK_RIGHT) {
if (menu[choice].submenu[menu[choice].index + 1])
menu[choice].index++;
}
//if (key & GPC_VK_START || key & GPC_VK_FA) return 1;
if (key & GPC_VK_FA)
return 1;
//if (key & GPC_VK_SELECT) return 0;
do
key = gpTrapKey();
while (key != GPC_VK_NONE);
} while (1);
}
/****************************************************************
Delay (very simple delay)
****************************************************************/
void Delay(unsigned int ms) {
unsigned int delay_by;
delay_by = GpTickCountGet();
while (GpTickCountGet() - delay_by < ms);
}
/****************************************************************
Triple buffering code
****************************************************************/
void FlipScreen() {
if (nflip == 0) {
GpSurfaceFlip(&LCDbuffer[0]);
nflip = 1;
} else if (nflip == 1) {
GpSurfaceFlip(&LCDbuffer[1]);
nflip = 2;
} else if (nflip == 2) {
GpSurfaceFlip(&LCDbuffer[2]);
nflip = 0;
}
}
/****************************************************************
Clear all the screen buffers
****************************************************************/
void ClearScreen() {
int i;
for (i = 0; i <= BUFFERCOUNT; i++) {
GpRectFill(NULL, &LCDbuffer[i], 0, 0, LCDbuffer[i].buf_w,
LCDbuffer[i].buf_h, 0x00);
}
}
/****************************************************************
Fade to black
****************************************************************/
void FadeToBlack(int delay_time) {
//Fade to black
int x;
for (x = 0; x < 30; x++) {
//Fade it further
GpLcdFade(-1, NULL);
//refresh screen
GpSurfaceFlip(&LCDbuffer[nflip]);
//wait a littel bit
Delay(delay_time);
}
//Now Clear all the buffers
ClearScreen();
//Turn the fading off
GpLcdNoFade(NULL);
//Now flip to end it all and leave it black
FlipScreen();
}
/****************************************************************
Fade to White
****************************************************************/
void FadeToWhite(int delay_time) {
//Fade to black
int x;
for (x = 0; x < 30; x++) {
//Fade it further
GpLcdFade(1, NULL);
//refresh screen
GpSurfaceFlip(&LCDbuffer[nflip]);
//wait a littel bit
Delay(delay_time);
}
//Now Clear all the buffers
ClearScreen();
//Turn the fading off
GpLcdNoFade(NULL);
//Now flip to end it all and leave it black
FlipScreen();
}
/****************************************************************
Initialise the File System
****************************************************************/
void InitFileSystem() {
//Initialises GP32 file system
GpFatInit();
GpRelativePathSet("gp:\\gpmm");
// Create folders on SMC if there not there
// For storing games, saves, config and scummvm.ini.
GpDirCreate("gp:\\data", NOT_IF_EXIST);
GpDirCreate("gp:\\data\\scummvm", NOT_IF_EXIST);
GpDirCreate("gp:\\data\\scummvm\\games", NOT_IF_EXIST);
GpDirCreate("gp:\\data\\scummvm\\config", NOT_IF_EXIST);
}
/****************************************************************
Splash Screen - show splash screen
****************************************************************/
void InitSplashPal() {
static GP_HPALETTE h_splash_pal = NULL;
if (h_splash_pal)
GpPaletteDelete(h_splash_pal);
h_splash_pal = GpPaletteCreate(gfx_splash_palnb, gfx_splash_Pal);
GpPaletteDelete(GpPaletteSelect(h_splash_pal));
GpPaletteRealize();
}
int SplashScreen() {
int key;
ClearScreen();
InitSplashPal();
// Show the screen (load into all buffers - ready for screen transition)
GpBitBlt(NULL, &LCDbuffer[0], 0, 0, gfx_splash_width,
gfx_splash_height, (unsigned char *)gfx_splash, 0, 0,
gfx_splash_width, gfx_splash_height);
GpBitBlt(NULL, &LCDbuffer[1], 0, 0, gfx_splash_width,
gfx_splash_height, (unsigned char *)gfx_splash, 0, 0,
gfx_splash_width, gfx_splash_height);
GpBitBlt(NULL, &LCDbuffer[2], 0, 0, gfx_splash_width,
gfx_splash_height, (unsigned char *)gfx_splash, 0, 0,
gfx_splash_width, gfx_splash_height);
// Refresh screen (show the logo)
FlipScreen();
// Initialise the File System
// Done during SpashScreen to hide folder create (if needed) from users.
InitFileSystem();
//TODO: Put branchs for Start and Select and act accordingly.
do {
do
key = gpTrapKey();
while (key == GPC_VK_NONE);
if (key & GPC_VK_START) {
FadeToBlack(20);
return 0;
}
if (key & GPC_VK_SELECT) {
FadeToWhite(20);
ConfigMenu();
return 0;
}
do
key = gpTrapKey();
while (key != GPC_VK_NONE);
} while (1);
//Fade the screen into GP32 setup or ScummVM.
//FadeToWhite(100);
}
/****************************************************************
Read and write the GP32 config file to the SMC
****************************************************************/
void ConfigRead() {
FILE *f;
f = fopen("gp:\\data\\scummvm\\config\\config.dat", "r");
if (f) {
for (unsigned int i = 0; i < ARRAYSIZE(menu); i++)
fread(&menu[i].index, 1, sizeof(menu[i].index), f);
fclose(f);
}
}
void ConfigWrite() {
FILE *f;
f = fopen("gp:\\data\\scummvm\\config\\config.dat", "w");
if (f) {
for (unsigned int i = 0; i < ARRAYSIZE(menu); i++)
fwrite(&menu[i].index, 1, sizeof(menu[i].index), f);
fclose(f);
}
}
/****************************************************************
Prepare GP32
****************************************************************/
void InitLCD() {
// Initialize graphics
GpGraphicModeSet(COLOUR_8BIT_MODE, NULL);
// Set the current buffer
nflip = 0;
short i;
for (i = 0; i <= BUFFERCOUNT; i++) {
GpLcdSurfaceGet(&LCDbuffer[i], i);
}
}
void Init() {
// Setup the LCD.
InitLCD();
// Load the Splash Screen and give the option of config or ScummVM.
// also sets up file system.
SplashScreen();
//GpSetPaletteEntry ( 2, 0,0,0 );
//GpSetPaletteEntry ( 1, 0,0,0 );
//GpSetPaletteEntry ( 0, 255,255,255 );
//// fixme - use get function
////currentsurf=DEBUG_SURFACE;
////GpSurfaceSet(&LCDbuffer[(int)currentsurf]);
//GpSurfaceSet(&LCDbuffer[nflip]);
//GpLcdEnable();
//stderr = fstdout = fopen("gp:\\data\\scummvm\\config\\debug.out", "w");
//stdin = NULL; //fixme?
////fstdin = fopen("stdin", "w");
////fstderr = fopen("stderr", "w");
//printf(" ScummVM for the GP32");
//printf("----------------------------------------");
//printf("PRIVATE BUILD - DO NOT PASS ON!");
//printf("ScummVM (c) 2001-4 The ScummVM Team");
//printf("GP32 Backend (c) 2004 by DJWillis");
//printf("Compiled %s, %s", __DATE__, __TIME__);
//printf("----------------------------------------");
//printf(" Press 'A' to Start ScummVM");
//printf("----------------------------------------");
///*
//ERR_CODE err;
//
//unsigned long bad;
//err = GpFormat("gp:", FORMAT_RESCUE, &bad);
//char s[256];
//GpRelativePathGet(s);
//*/
}
//void *gpmemset (void *s, int c, size_t n) {
// for (int i=n-1; i>=0; i--)
// ((char*)s)[i]=(char)c;
//}
//
//void *gpmemcpy (void *dest, const void *src, size_t n) {
// for (int i=n-1; i>=0; i--)
// ((char*)dest)[i]=((char*)src)[i];
//}
void buildgammatab(int val) {
float g = 1;
for (int i = 0; i < 256; i++) {
gammatab[255 - i] = g;
g *= scrGamma[val];
}
}
void buildgammatab2(int val) {
float g = 1;
for (int i = 0; i < 256; i++) {
gammatab2[255 - i] = g;
g *= scrGamma[val];
}
}
int stricmp(const char *string1, const char *string2) {
char src[4096];
char dest[4096];
int i;
for (i = 0; i < strlen(string1); i++)
if (string1[i] >= 'A' && string1[i] <= 'Z')
src[i] = string1[i] + 32;
else
src[i] = string1[i];
src[i] = 0;
for (i = 0; i < strlen(string2); i++)
if (string2[i] >= 'A' && string2[i] <= 'Z')
dest[i] = string2[i] + 32;
else
dest[i] = string2[i];
dest[i] = 0;
return strcmp(src, dest);
}
int strnicmp(const char *string1, const char *string2, int len) {
char src[4096];
char dest[4096];
int i;
for (i = 0; i < strlen(string1) && i < len; i++)
if (string1[i] >= 'A' && string1[i] <= 'Z')
src[i] = string1[i] + 32;
else
src[i] = string1[i];
src[i] = 0;
for (i = 0; i < strlen(string2) && i < len; i++)
if (string2[i] >= 'A' && string2[i] <= 'Z')
dest[i] = string2[i] + 32;
else
dest[i] = string2[i];
dest[i] = 0;
return strncmp(src, dest, len);
}
extern "C" void GpMain(void *arg);
extern "C" int scummvm_main(int argc, char *argv[]);
void GpMain(void *arg) {
#ifdef GP32_GDB
OpenUSB();
InstallISR();
#endif /*GP32_GDB */
// Wank up the GP32 good and propper ;-)
// asm volatile(" \n"
//" mov r0, #0x01 \n"
//" ldr r1, [r0] \n"
//" \n"
//:
//:
//:"r0", "r1");
// FIXME: causes crash?! (if not at first line of gpmain())
buildgammatab(gindex);
buildgammatab2(ARRAYSIZE(scrGamma) - 1);
Init();
// ConfigRead();
//if ()
//{
// ConfigWrite();
//}
//ConfigMenu();
//ConfigWrite();
// fixme - use get function
//currentsurf=GAME_SURFACE;
//GpSurfaceFlip(&LCDbuffer[(int)currentsurf]);
#ifndef GP32_GDB
int CPUSpeed =
atoi((const char *)menu[MENU_CPUSPEED].submenu[menu[MENU_CPUSPEED].
index]);
#endif /*GP32_GDB */
//static char *argv[] = { "scummvm", NULL, NULL, NULL };
// char *argv[] = { "scummvm", (char*)menu[MENU_MUSICDRV].submenu[menu[MENU_MUSICDRV].index]};
// static int argc = 4;
// Game Testing...
//int argc = 2;
//int argc = 4; char *argv[] = { "scummvm", "-enull", "-pgp:\\gpmm\\scummvm\\sky\\", "sky" };
int argc = 4;
char *argv[] = { "scummvm", "-enull", "", "" };
while (1) {
// Only set the CPU speed if the GDB Stub is NOT needed.
// No point calling ClearScreen(); as we want to see any odd stuff.
#ifndef GP32_GDB
gpCPUSpeed(CPUSpeed);
ClearScreen();
#endif /*GP32_GDB */
//FadeToWhite(200);
//exit(scummvm_main(argc, argv));
////////////////cast_argv = f(const_cast<double&>(d));
//////////////char* argv_;
////////////// argv_ = const_cast<*char*>(argv);
scummvm_main(argc, argv);
}
}