int FULLSCREEN_ToggleFromWimp(_THIS)
{
int width = this->screen->w;
int height = this->screen->h;
int bpp = this->screen->format->BitsPerPixel;
RISCOS_StoreWimpMode();
if (FULLSCREEN_SetMode(width, height, bpp))
{
char *buffer = this->hidden->alloc_bank;
if (riscos_backbuffer == 0) riscos_backbuffer = 1;
FULLSCREEN_SetupBanks(this);
this->hidden->bank[0] = buffer + 60;
if (bpp == 8) this->hidden->bank[0] += 2048;
this->hidden->current_bank = 0;
this->screen->pixels = this->hidden->bank[0];
SDL_memcpy(this->hidden->bank[1], this->hidden->bank[0], width * height * this->screen->format->BytesPerPixel);
FULLSCREEN_SetDeviceMode(this);
return 1;
} else
RISCOS_RestoreWimpMode();
return 0;
}
int FULLSCREEN_ToggleFromWimp(_THIS)
{
int width = this->screen->w;
int height = this->screen->h;
int bpp = this->screen->format->BitsPerPixel;
RISCOS_StoreWimpMode();
if (FULLSCREEN_SetMode(width, height, bpp))
{
char *buffer = this->hidden->alloc_bank; /* This is start of sprite data */
/* Support back buffer mode only */
riscos_backbuffer = 1;
FULLSCREEN_SetupBanks(this);
this->hidden->bank[0] = buffer + 60; /* Start of sprite data */
if (bpp == 8) this->hidden->bank[0] += 2048; /* 8bpp sprite have palette first */
this->hidden->current_bank = 0;
this->screen->pixels = this->hidden->bank[0];
/* Copy back buffer to screen memory */
memcpy(this->hidden->bank[1], this->hidden->bank[0], width * height * this->screen->format->BytesPerPixel);
FULLSCREEN_SetDeviceMode(this);
return 1;
} else
RISCOS_RestoreWimpMode();
return 0;
}
/* Set up video mode */
SDL_Surface *RISCOS_SetVideoMode(_THIS, SDL_Surface *current,
int width, int height, int bpp, Uint32 flags)
{
if (flags & SDL_FULLSCREEN)
{
RISCOS_StoreWimpMode();
/* Dump wimp window on switch to full screen */
if (this->hidden->window_handle) WIMP_DeleteWindow(this);
return FULLSCREEN_SetVideoMode(this, current, width, height, bpp, flags);
} else
{
RISCOS_RestoreWimpMode();
return WIMP_SetVideoMode(this, current, width, height, bpp, flags);
}
}
void RISCOS_ExitTask()
{
_kernel_swi_regs regs;
if (stored_mode == -1)
{
_kernel_osbyte(106,1,0);
}
RISCOS_RestoreWimpMode();
regs.r[0] = task_handle;
regs.r[1] = (unsigned int)0x4b534154;
_kernel_swi(Wimp_CloseDown, ®s, ®s);
task_handle = 0;
}
void RISCOS_ExitTask()
{
_kernel_swi_regs regs;
if (stored_mode == -1)
{
/* Ensure cursor is put back to standard pointer shape if
we have been running in a window */
_kernel_osbyte(106,1,0);
}
/* Ensure we end up back in the wimp */
RISCOS_RestoreWimpMode();
/* Neatly exit the task */
regs.r[0] = task_handle;
regs.r[1] = (unsigned int)0x4b534154;
_kernel_swi(Wimp_CloseDown, ®s, ®s);
task_handle = 0;
}
SDL_Surface *FULLSCREEN_SetVideoMode(_THIS, SDL_Surface *current,
int width, int height, int bpp, Uint32 flags)
{
_kernel_swi_regs regs;
Uint32 Rmask = 0;
Uint32 Gmask = 0;
Uint32 Bmask = 0;
int create_back_buffer = riscos_backbuffer;
switch(bpp)
{
case 8:
flags |= SDL_HWPALETTE;
break;
case 15:
case 16:
Bmask = 0x00007c00;
Gmask = 0x000003e0;
Rmask = 0x0000001f;
break;
case 32:
Bmask = 0x00ff0000;
Gmask = 0x0000ff00;
Rmask = 0x000000ff;
break;
default:
SDL_SetError("Pixel depth not supported");
return NULL;
break;
}
if (FULLSCREEN_SetMode(width, height, bpp) == 0)
{
SDL_SetError("Couldn't set requested mode");
return (NULL);
}
if ( ! SDL_ReallocFormat(current, bpp, Rmask, Gmask, Bmask, 0) ) {
RISCOS_RestoreWimpMode();
SDL_SetError("Couldn't allocate new pixel format for requested mode");
return(NULL);
}
current->w = width;
this->hidden->height = current->h = height;
regs.r[0] = -1;
regs.r[1] = 6;
_kernel_swi(OS_ReadModeVariable, ®s, ®s);
current->pitch = regs.r[2];
if (flags & SDL_DOUBLEBUF)
{
regs.r[0] = 2;
_kernel_swi(OS_ReadDynamicArea, ®s, ®s);
regs.r[0] = 2;
regs.r[1] = (current->pitch * height * 2) - regs.r[1];
if (_kernel_swi(OS_ChangeDynamicArea, ®s, ®s) != NULL)
{
flags &= ~SDL_DOUBLEBUF;
}
}
current->flags = flags | SDL_FULLSCREEN | SDL_HWSURFACE | SDL_PREALLOC;
if (flags & SDL_DOUBLEBUF)
{
FULLSCREEN_SetWriteBank(0);
FULLSCREEN_SetDisplayBank(1);
create_back_buffer = 0;
}
FULLSCREEN_SetupBanks(this);
if (create_back_buffer)
{
if (riscos_backbuffer == 3)
this->hidden->bank[0] = WIMP_CreateBuffer(width, height, bpp);
else
this->hidden->bank[0] = SDL_malloc(height * current->pitch);
if (this->hidden->bank[0] == 0)
{
RISCOS_RestoreWimpMode();
SDL_SetError("Couldnt allocate memory for back buffer");
return (NULL);
}
current->flags &= ~SDL_HWSURFACE;
}
if (this->hidden->alloc_bank) SDL_free(this->hidden->alloc_bank);
if (create_back_buffer)
{
this->hidden->alloc_bank = this->hidden->bank[0];
if (riscos_backbuffer == 3)
{
this->hidden->bank[0] += 60;
if (bpp == 8) this->hidden->bank[0] += 2048;
}
} else
this->hidden->alloc_bank = 0;
SDL_memset(this->hidden->bank[0], 0, height * current->pitch);
SDL_memset(this->hidden->bank[1], 0, height * current->pitch);
this->hidden->current_bank = 0;
current->pixels = this->hidden->bank[0];
this->screen = current;
FULLSCREEN_SetDeviceMode(this);
return(current);
}
SDL_Surface *FULLSCREEN_SetVideoMode(_THIS, SDL_Surface *current,
int width, int height, int bpp, Uint32 flags)
{
_kernel_swi_regs regs;
Uint32 Rmask = 0;
Uint32 Gmask = 0;
Uint32 Bmask = 0;
int create_back_buffer = riscos_backbuffer;
switch(bpp)
{
case 8:
flags |= SDL_HWPALETTE;
break;
case 15:
case 16:
Bmask = 0x00007c00;
Gmask = 0x000003e0;
Rmask = 0x0000001f;
break;
case 32:
Bmask = 0x00ff0000;
Gmask = 0x0000ff00;
Rmask = 0x000000ff;
break;
default:
SDL_SetError("Pixel depth not supported");
return NULL;
break;
}
if (FULLSCREEN_SetMode(width, height, bpp) == 0)
{
SDL_SetError("Couldn't set requested mode");
return (NULL);
}
/* printf("Setting mode %dx%d\n", width, height); */
/* Allocate the new pixel format for the screen */
if ( ! SDL_ReallocFormat(current, bpp, Rmask, Gmask, Bmask, 0) ) {
RISCOS_RestoreWimpMode();
SDL_SetError("Couldn't allocate new pixel format for requested mode");
return(NULL);
}
/* Set up the new mode framebuffer */
current->w = width;
this->hidden->height = current->h = height;
regs.r[0] = -1; /* -1 for current screen mode */
/* Get screen width in bytes */
regs.r[1] = 6; // Screen Width in bytes
_kernel_swi(OS_ReadModeVariable, ®s, ®s);
current->pitch = regs.r[2];
if (flags & SDL_DOUBLEBUF)
{
regs.r[0] = 2; /* Screen area */
_kernel_swi(OS_ReadDynamicArea, ®s, ®s);
/* Reg 1 has amount of memory currently used for display */
regs.r[0] = 2; /* Screen area */
regs.r[1] = (current->pitch * height * 2) - regs.r[1];
if (_kernel_swi(OS_ChangeDynamicArea, ®s, ®s) != NULL)
{
/* Can't allocate enough screen memory for double buffer */
flags &= ~SDL_DOUBLEBUF;
}
}
current->flags = flags | SDL_FULLSCREEN | SDL_HWSURFACE | SDL_PREALLOC;
/* Need to set display banks here for double buffering */
if (flags & SDL_DOUBLEBUF)
{
FULLSCREEN_SetWriteBank(0);
FULLSCREEN_SetDisplayBank(1);
create_back_buffer = 0; /* Don't need a back buffer for a double buffered display */
}
FULLSCREEN_SetupBanks(this);
if (create_back_buffer)
{
/* If not double buffered we may need to create a memory
** back buffer to simulate processing on other OS's.
** This is turned on by setting the enviromental variable
** SDL$<name>$BackBuffer to 1
*/
this->hidden->bank[0] = malloc(height * current->pitch);
if (this->hidden->bank[0] == 0)
{
RISCOS_RestoreWimpMode();
SDL_SetError("Couldnt allocate memory for back buffer");
return (NULL);
}
/* Surface updated in programs is now a software surface */
current->flags &= ~SDL_HWSURFACE;
}
/* Store address of allocated screen bank to be freed later */
if (this->hidden->alloc_bank) free(this->hidden->alloc_bank);
if (create_back_buffer)
{
this->hidden->alloc_bank = this->hidden->bank[0];
} else
this->hidden->alloc_bank = 0;
// Clear both banks to black
memset(this->hidden->bank[0], 0, height * current->pitch);
memset(this->hidden->bank[1], 0, height * current->pitch);
this->hidden->current_bank = 0;
current->pixels = this->hidden->bank[0];
/* Reset device functions for the wimp */
FULLSCREEN_SetDeviceMode(this);
/* FULLSCREEN_DisableEscape(); */
/* We're done */
return(current);
}
/* Toggle to window from full screen */
int WIMP_ToggleFromFullScreen(_THIS)
{
int width = this->screen->w;
int height = this->screen->h;
int bpp = this->screen->format->BitsPerPixel;
char *buffer = NULL;
char *old_bank[2];
char *old_alloc_bank;
/* Ensure flags are OK */
this->screen->flags &= ~(SDL_DOUBLEBUF|SDL_HWSURFACE);
if (this->hidden->bank[0] == this->hidden->alloc_bank || riscos_backbuffer == 0)
{
/* Need to create a sprite for the screen and copy the data to it */
char *data;
buffer = WIMP_CreateBuffer(width, height, bpp);
data = buffer + 60; /* Start of sprite data */
if (bpp == 8) data += 2048; /* 8bpp sprite have palette first */
if (buffer == NULL) return 0;
SDL_memcpy(data, this->hidden->bank[0], width * height * this->screen->format->BytesPerPixel);
}
/* else We've switch to full screen before so we already have a sprite */
old_bank[0] = this->hidden->bank[0];
old_bank[1] = this->hidden->bank[1];
old_alloc_bank = this->hidden->alloc_bank;
if (buffer != NULL) this->hidden->alloc_bank = buffer;
this->hidden->bank[1] = this->hidden->alloc_bank;
this->hidden->bank[0] = this->hidden->bank[1] + 60; /* Start of sprite data */
if (bpp == 8) this->hidden->bank[0] += 2048; /* 8bpp sprite have palette first */
this->hidden->current_bank = 0;
this->screen->pixels = this->hidden->bank[0];
RISCOS_RestoreWimpMode();
WIMP_ReadModeInfo(this);
if (WIMP_SetupWindow(this, this->screen))
{
WIMP_SetDeviceMode(this);
WIMP_SetupPlotInfo(this);
if (riscos_backbuffer == 0) riscos_backbuffer = 1;
if (buffer && old_alloc_bank) SDL_free(old_alloc_bank);
return 1;
} else
{
/* Drop back to full screen mode on failure */
this->hidden->bank[0] = old_bank[0];
this->hidden->bank[1] = old_bank[1];
this->hidden->alloc_bank = old_alloc_bank;
if (buffer) SDL_free(buffer);
RISCOS_StoreWimpMode();
FULLSCREEN_SetMode(width, height, bpp);
}
return 0;
}
