sdl-ios-xcode: src/video/riscos/SDL_riscosFullScreenVideo.c annotate

annotate src/video/riscos/SDL_riscosFullScreenVideo.c @ 1290:c4a5a772c5d9

The event code was fine, and calculated the SDL_windowX/Y correctly. What we really needed to do was avoid doing client rect adjustment on zoomed windows. :)

author	Sam Lantinga <slouken@libsdl.org>
date	Sun, 29 Jan 2006 18:17:35 +0000
parents	d90b362628ea
children	c9b51268668f

rev	line source
630 550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	1 /*
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	2 SDL - Simple DirectMedia Layer
769 b8d311d90021 Updated copyright information for 2004 (Happy New Year!) Sam Lantinga <slouken@libsdl.org> parents: 630 diff changeset	3 Copyright (C) 1997-2004 Sam Lantinga
630 550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	4
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	5 This library is free software; you can redistribute it and/or
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	6 modify it under the terms of the GNU Library General Public
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	7 License as published by the Free Software Foundation; either
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	8 version 2 of the License, or (at your option) any later version.
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	9
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	10 This library is distributed in the hope that it will be useful,
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	11 but WITHOUT ANY WARRANTY; without even the implied warranty of
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	12 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	13 Library General Public License for more details.
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	14
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	15 You should have received a copy of the GNU Library General Public
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	16 License along with this library; if not, write to the Free
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	17 Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	18
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	19 Sam Lantinga
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	20 slouken@devolution.com
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	21 */
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	22
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	23 /*
1035 974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	24 File added by Alan Buckley (alan_baa@hotmail.com) for RISC OS compatability
630 550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	25 27 March 2003
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	26
1035 974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	27 Implements RISC OS full screen display.
630 550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	28 */
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	29
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	30 #include <stdio.h>
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	31 #include <stdlib.h>
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	32 #include <string.h>
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	33
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	34 #include "SDL.h"
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	35 #include "SDL_error.h"
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	36 #include "SDL_video.h"
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	37 #include "SDL_mouse.h"
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	38 #include "SDL_sysvideo.h"
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	39 #include "SDL_pixels_c.h"
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	40 #include "SDL_events_c.h"
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	41
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	42 #include "SDL_riscostask.h"
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	43 #include "SDL_riscosvideo.h"
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	44 #include "SDL_riscosevents_c.h"
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	45 #include "SDL_riscosmouse_c.h"
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	46
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	47 #include "kernel.h"
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	48 #include "swis.h"
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	49 #include "unixlib/os.h"
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	50 #include "unixlib/local.h"
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	51
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	52 /* Private structures */
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	53 typedef struct tagScreenModeBlock
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	54 {
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	55 int flags; // mode selector flags, bit 0 = 1, bit 1-7 format specifier, 8-31 reserved
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	56 int x_pixels;
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	57 int y_pixels;
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	58 int pixel_depth; // 2^pixel_depth = bpp,i.e. 0 = 1, 1 = 2, 4 = 16, 5 = 32
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	59 int frame_rate; // -1 use first match
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	60 int mode_vars[5]; // array of index, value pairs terminated by -1
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	61 } SCREENMODEBLOCK;
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	62
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	63
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	64 /* Helper functions */
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	65 void FULLSCREEN_SetDeviceMode(_THIS);
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	66 int FULLSCREEN_SetMode(int width, int height, int bpp);
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	67 void FULLSCREEN_SetupBanks(_THIS);
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	68
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	69 /* SDL video device functions for fullscreen mode */
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	70 static int FULLSCREEN_SetColors(_THIS, int firstcolor, int ncolors, SDL_Color *colors);
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	71 static int FULLSCREEN_FlipHWSurface(_THIS, SDL_Surface *surface);
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	72 void FULLSCREEN_SetWMCaption(_THIS, const char title, const char icon);
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	73 extern int RISCOS_GetWmInfo(_THIS, SDL_SysWMinfo *info);
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	74
1035 974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	75 /* UpdateRects variants */
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	76 static void FULLSCREEN_UpdateRects(_THIS, int numrects, SDL_Rect *rects);
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	77 static void FULLSCREEN_UpdateRectsMemCpy(_THIS, int numrects, SDL_Rect *rects);
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	78 static void FULLSCREEN_UpdateRects8bpp(_THIS, int numrects, SDL_Rect *rects);
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	79 static void FULLSCREEN_UpdateRects16bpp(_THIS, int numrects, SDL_Rect *rects);
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	80 static void FULLSCREEN_UpdateRects32bpp(_THIS, int numrects, SDL_Rect *rects);
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	81 static void FULLSCREEN_UpdateRectsOS(_THIS, int numrects, SDL_Rect *rects);
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	82
630 550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	83 /* Local helper functions */
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	84 static int cmpmodes(const void va, const void vb);
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	85 static int FULLSCREEN_AddMode(_THIS, int bpp, int w, int h);
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	86 void FULLSCREEN_SetWriteBank(int bank);
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	87 void FULLSCREEN_SetDisplayBank(int bank);
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	88 static void FULLSCREEN_DisableEscape();
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	89 static void FULLSCREEN_EnableEscape();
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	90 void FULLSCREEN_BuildModeList(_THIS);
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	91
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	92 /* Following variable is set up in riskosTask.c */
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	93 extern int riscos_backbuffer; /* Create a back buffer in system memory for full screen mode */
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	94
1035 974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	95 /* Following is used to create a sprite back buffer */
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	96 extern unsigned char *WIMP_CreateBuffer(int width, int height, int bpp);
630 550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	97
1035 974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	98 /* Fast assembler copy */
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	99 extern void RISCOS_Put32(void to, int pixels, int pitch, int rows, void from, int src_skip_bytes);
630 550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	100
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	101 SDL_Surface FULLSCREEN_SetVideoMode(_THIS, SDL_Surface current,
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	102 int width, int height, int bpp, Uint32 flags)
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	103 {
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	104 _kernel_swi_regs regs;
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	105 Uint32 Rmask = 0;
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	106 Uint32 Gmask = 0;
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	107 Uint32 Bmask = 0;
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	108 int create_back_buffer = riscos_backbuffer;
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	109
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	110 switch(bpp)
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	111 {
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	112 case 8:
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	113 flags \|= SDL_HWPALETTE;
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	114 break;
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	115
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	116 case 15:
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	117 case 16:
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	118 Bmask = 0x00007c00;
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	119 Gmask = 0x000003e0;
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	120 Rmask = 0x0000001f;
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	121 break;
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	122
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	123 case 32:
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	124 Bmask = 0x00ff0000;
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	125 Gmask = 0x0000ff00;
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	126 Rmask = 0x000000ff;
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	127 break;
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	128
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	129 default:
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	130 SDL_SetError("Pixel depth not supported");
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	131 return NULL;
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	132 break;
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	133 }
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	134
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	135 if (FULLSCREEN_SetMode(width, height, bpp) == 0)
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	136 {
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	137 SDL_SetError("Couldn't set requested mode");
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	138 return (NULL);
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	139 }
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	140
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	141 /* printf("Setting mode %dx%d\n", width, height); */
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	142
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	143 /* Allocate the new pixel format for the screen */
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	144 if ( ! SDL_ReallocFormat(current, bpp, Rmask, Gmask, Bmask, 0) ) {
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	145 RISCOS_RestoreWimpMode();
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	146 SDL_SetError("Couldn't allocate new pixel format for requested mode");
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	147 return(NULL);
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	148 }
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	149
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	150 /* Set up the new mode framebuffer */
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	151 current->w = width;
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	152 this->hidden->height = current->h = height;
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	153
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	154 regs.r[0] = -1; /* -1 for current screen mode */
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	155
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	156 /* Get screen width in bytes */
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	157 regs.r[1] = 6; // Screen Width in bytes
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	158 _kernel_swi(OS_ReadModeVariable, &regs, &regs);
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	159
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	160 current->pitch = regs.r[2];
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	161
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	162 if (flags & SDL_DOUBLEBUF)
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	163 {
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	164 regs.r[0] = 2; /* Screen area */
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	165 _kernel_swi(OS_ReadDynamicArea, &regs, &regs);
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	166
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	167 /* Reg 1 has amount of memory currently used for display */
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	168 regs.r[0] = 2; /* Screen area */
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	169 regs.r[1] = (current->pitch * height * 2) - regs.r[1];
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	170 if (_kernel_swi(OS_ChangeDynamicArea, &regs, &regs) != NULL)
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	171 {
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	172 /* Can't allocate enough screen memory for double buffer */
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	173 flags &= ~SDL_DOUBLEBUF;
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	174 }
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	175 }
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	176
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	177 current->flags = flags \| SDL_FULLSCREEN \| SDL_HWSURFACE \| SDL_PREALLOC;
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	178
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	179
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	180 /* Need to set display banks here for double buffering */
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	181 if (flags & SDL_DOUBLEBUF)
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	182 {
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	183 FULLSCREEN_SetWriteBank(0);
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	184 FULLSCREEN_SetDisplayBank(1);
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	185
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	186 create_back_buffer = 0; /* Don't need a back buffer for a double buffered display */
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	187 }
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	188
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	189 FULLSCREEN_SetupBanks(this);
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	190
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	191 if (create_back_buffer)
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	192 {
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	193 /* If not double buffered we may need to create a memory
1035 974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	194 ** back buffer to simulate processing on other OSes.
630 550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	195 ** This is turned on by setting the enviromental variable
1035 974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	196 ** SDL$<name>$BackBuffer >= 1
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	197 */
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	198 if (riscos_backbuffer == 3)
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	199 this->hidden->bank[0] = WIMP_CreateBuffer(width, height, bpp);
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	200 else
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	201 this->hidden->bank[0] = malloc(height * current->pitch);
630 550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	202 if (this->hidden->bank[0] == 0)
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	203 {
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	204 RISCOS_RestoreWimpMode();
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	205 SDL_SetError("Couldnt allocate memory for back buffer");
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	206 return (NULL);
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	207 }
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	208 /* Surface updated in programs is now a software surface */
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	209 current->flags &= ~SDL_HWSURFACE;
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	210 }
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	211
1035 974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	212 /* Store address of allocated screen bank to be freed later */
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	213 if (this->hidden->alloc_bank) free(this->hidden->alloc_bank);
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	214 if (create_back_buffer)
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	215 {
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	216 this->hidden->alloc_bank = this->hidden->bank[0];
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	217 if (riscos_backbuffer == 3)
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	218 {
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	219 this->hidden->bank[0] += 60; /* Start of sprite data */
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	220 if (bpp == 8) this->hidden->bank[0] += 2048; /* 8bpp sprite have palette first */
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	221 }
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	222 } else
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	223 this->hidden->alloc_bank = 0;
630 550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	224
1035 974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	225 // Clear both banks to black
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	226 memset(this->hidden->bank[0], 0, height * current->pitch);
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	227 memset(this->hidden->bank[1], 0, height * current->pitch);
630 550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	228
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	229 this->hidden->current_bank = 0;
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	230 current->pixels = this->hidden->bank[0];
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	231
1035 974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	232 /* Have to set the screen here, so SetDeviceMode will pick it up */
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	233 this->screen = current;
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	234
630 550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	235 /* Reset device functions for the wimp */
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	236 FULLSCREEN_SetDeviceMode(this);
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	237
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	238 /* FULLSCREEN_DisableEscape(); */
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	239
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	240 /* We're done */
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	241 return(current);
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	242 }
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	243
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	244 /* Reset any device functions that have been changed because we have run in WIMP mode */
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	245 void FULLSCREEN_SetDeviceMode(_THIS)
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	246 {
1035 974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	247 /* Update rects is different if we have a backbuffer */
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	248
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	249 if (riscos_backbuffer && (this->screen->flags & SDL_DOUBLEBUF) == 0)
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	250 {
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	251 switch(riscos_backbuffer)
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	252 {
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	253 case 2: /* ARM code full word copy */
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	254 switch(this->screen->format->BytesPerPixel)
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	255 {
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	256 case 1: /* 8bpp modes */
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	257 this->UpdateRects = FULLSCREEN_UpdateRects8bpp;
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	258 break;
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	259 case 2: /* 15/16bpp modes */
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	260 this->UpdateRects = FULLSCREEN_UpdateRects16bpp;
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	261 break;
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	262 case 4: /* 32 bpp modes */
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	263 this->UpdateRects = FULLSCREEN_UpdateRects32bpp;
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	264 break;
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	265
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	266 default: /* Just default to the memcpy routine */
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	267 this->UpdateRects = FULLSCREEN_UpdateRectsMemCpy;
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	268 break;
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	269 }
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	270 break;
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	271
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	272 case 3: /* Use OS sprite plot routine */
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	273 this->UpdateRects = FULLSCREEN_UpdateRectsOS;
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	274 break;
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	275
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	276 default: /* Old but safe memcpy */
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	277 this->UpdateRects = FULLSCREEN_UpdateRectsMemCpy;
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	278 break;
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	279 }
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	280 } else
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	281 this->UpdateRects = FULLSCREEN_UpdateRects; /* Default do nothing implementation */
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	282
630 550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	283 this->SetColors = FULLSCREEN_SetColors;
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	284
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	285 this->FlipHWSurface = FULLSCREEN_FlipHWSurface;
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	286
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	287 this->SetCaption = FULLSCREEN_SetWMCaption;
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	288 this->SetIcon = NULL;
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	289 this->IconifyWindow = NULL;
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	290
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	291 this->ShowWMCursor = RISCOS_ShowWMCursor;
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	292 this->WarpWMCursor = FULLSCREEN_WarpWMCursor;
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	293
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	294 this->PumpEvents = FULLSCREEN_PumpEvents;
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	295 }
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	296
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	297 /* Query for the list of available video modes */
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	298 void FULLSCREEN_BuildModeList(_THIS)
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	299 {
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	300 _kernel_swi_regs regs;
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	301 char *enumInfo = NULL;
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	302 char *enum_ptr;
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	303 int *blockInfo;
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	304 int j;
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	305 int num_modes;
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	306
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	307 /* Find out how much space we need */
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	308 regs.r[0] = 2; /* Reason code */
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	309 regs.r[2] = 0; /* Number of modes to skip */
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	310 regs.r[6] = 0; /* pointer to block or 0 for count */
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	311 regs.r[7] = 0; /* Size of block in bytes */
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	312 _kernel_swi(OS_ScreenMode, &regs, &regs);
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	313
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	314 num_modes = -regs.r[2];
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	315
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	316 /* Video memory should be in r[5] */
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	317 this->info.video_mem = regs.r[5]/1024;
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	318
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	319 enumInfo = (unsigned char *)malloc(-regs.r[7]);
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	320 if (enumInfo == NULL)
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	321 {
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	322 SDL_OutOfMemory();
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	323 return;
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	324 }
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	325 /* Read mode information into block */
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	326 regs.r[2] = 0;
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	327 regs.r[6] = (int)enumInfo;
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	328 regs.r[7] = -regs.r[7];
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	329 _kernel_swi(OS_ScreenMode, &regs, &regs);
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	330
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	331 enum_ptr = enumInfo;
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	332
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	333 for (j =0; j < num_modes;j++)
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	334 {
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	335 blockInfo = (int *)enum_ptr;
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	336 if ((blockInfo[1] & 255) == 1) /* We understand this format */
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	337 {
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	338 switch(blockInfo[4])
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	339 {
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	340 case 3: /* 8 bits per pixel */
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	341 FULLSCREEN_AddMode(this, 8, blockInfo[2], blockInfo[3]);
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	342 break;
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	343 case 4: /* 15 bits per pixel */
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	344 FULLSCREEN_AddMode(this, 15, blockInfo[2], blockInfo[3]);
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	345 break;
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	346 case 5: /* 32 bits per pixel */
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	347 FULLSCREEN_AddMode(this, 32, blockInfo[2], blockInfo[3]);
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	348 break;
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	349 }
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	350 }
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	351
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	352 enum_ptr += blockInfo[0];
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	353 }
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	354
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	355 free(enumInfo);
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	356
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	357 /* Sort the mode lists */
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	358 for ( j=0; j<NUM_MODELISTS; ++j ) {
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	359 if ( SDL_nummodes[j] > 0 ) {
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	360 qsort(SDL_modelist[j], SDL_nummodes[j], sizeof *SDL_modelist[j], cmpmodes);
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	361 }
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	362 }
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	363 }
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	364
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	365 static int FULLSCREEN_FlipHWSurface(_THIS, SDL_Surface *surface)
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	366 {
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	367 _kernel_swi_regs regs;
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	368 regs.r[0] = 19;
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	369
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	370 FULLSCREEN_SetDisplayBank(this->hidden->current_bank);
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	371 this->hidden->current_bank ^= 1;
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	372 FULLSCREEN_SetWriteBank(this->hidden->current_bank);
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	373 surface->pixels = this->hidden->bank[this->hidden->current_bank];
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	374
1208 d90b362628ea From: "alan buckley" <alan_baa@hotmail.com> Sam Lantinga <slouken@libsdl.org> parents: 1035 diff changeset	375 /* Wait for Vsync */
d90b362628ea From: "alan buckley" <alan_baa@hotmail.com> Sam Lantinga <slouken@libsdl.org> parents: 1035 diff changeset	376 _kernel_swi(OS_Byte, &regs, &regs);
d90b362628ea From: "alan buckley" <alan_baa@hotmail.com> Sam Lantinga <slouken@libsdl.org> parents: 1035 diff changeset	377
630 550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	378 return(0);
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	379 }
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	380
1035 974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	381 /* Nothing to do if we are writing direct to hardware */
630 550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	382 static void FULLSCREEN_UpdateRects(_THIS, int numrects, SDL_Rect *rects)
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	383 {
1035 974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	384 }
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	385
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	386 /* Safe but slower Memory copy from our allocated back buffer */
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	387 static void FULLSCREEN_UpdateRectsMemCpy(_THIS, int numrects, SDL_Rect *rects)
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	388 {
630 550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	389 int j;
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	390 char to, from;
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	391 int pitch = this->screen->pitch;
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	392 int row;
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	393 int xmult = this->screen->format->BytesPerPixel;
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	394 for (j = 0; j < numrects; j++)
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	395 {
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	396 from = this->hidden->bank[0] + rects->x * xmult + rects->y * pitch;
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	397 to = this->hidden->bank[1] + rects->x * xmult + rects->y * pitch;
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	398 for (row = 0; row < rects->h; row++)
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	399 {
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	400 memcpy(to, from, rects->w * xmult);
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	401 from += pitch;
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	402 to += pitch;
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	403 }
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	404 rects++;
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	405 }
1035 974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	406 }
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	407
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	408 /* Use optimized assembler memory copy. Deliberately copies extra columns if
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	409 necessary to ensure the rectangle is word aligned. */
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	410 static void FULLSCREEN_UpdateRects8bpp(_THIS, int numrects, SDL_Rect *rects)
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	411 {
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	412 int j;
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	413 char to, from;
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	414 int pitch = this->screen->pitch;
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	415 int width_bytes;
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	416 int src_skip_bytes;
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	417
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	418 for (j = 0; j < numrects; j++)
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	419 {
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	420 from = this->hidden->bank[0] + rects->x + rects->y * pitch;
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	421 to = this->hidden->bank[1] + rects->x + rects->y * pitch;
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	422 width_bytes = rects->w;
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	423 if ((int)from & 3)
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	424 {
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	425 int extra = ((int)from & 3);
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	426 from -= extra;
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	427 to -= extra;
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	428 width_bytes += extra;
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	429 }
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	430 if (width_bytes & 3) width_bytes += 4 - (width_bytes & 3);
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	431 src_skip_bytes = pitch - width_bytes;
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	432
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	433 RISCOS_Put32(to, (width_bytes >> 2), pitch, (int)rects->h, from, src_skip_bytes);
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	434 rects++;
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	435 }
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	436 }
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	437
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	438 /* Use optimized assembler memory copy. Deliberately copies extra columns if
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	439 necessary to ensure the rectangle is word aligned. */
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	440 static void FULLSCREEN_UpdateRects16bpp(_THIS, int numrects, SDL_Rect *rects)
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	441 {
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	442 int j;
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	443 char to, from;
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	444 int pitch = this->screen->pitch;
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	445 int width_bytes;
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	446 int src_skip_bytes;
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	447
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	448 for (j = 0; j < numrects; j++)
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	449 {
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	450 from = this->hidden->bank[0] + (rects->x << 1) + rects->y * pitch;
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	451 to = this->hidden->bank[1] + (rects->x << 1) + rects->y * pitch;
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	452 width_bytes = (((int)rects->w) << 1);
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	453 if ((int)from & 3)
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	454 {
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	455 from -= 2;
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	456 to -= 2;
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	457 width_bytes += 2;
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	458 }
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	459 if (width_bytes & 3) width_bytes += 2;
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	460 src_skip_bytes = pitch - width_bytes;
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	461
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	462 RISCOS_Put32(to, (width_bytes >> 2), pitch, (int)rects->h, from, src_skip_bytes);
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	463 rects++;
630 550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	464 }
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	465 }
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	466
1035 974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	467 /* Use optimized assembler memory copy. 32 bpp modes are always word aligned */
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	468 static void FULLSCREEN_UpdateRects32bpp(_THIS, int numrects, SDL_Rect *rects)
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	469 {
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	470 int j;
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	471 char to, from;
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	472 int pitch = this->screen->pitch;
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	473 int width;
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	474
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	475 for (j = 0; j < numrects; j++)
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	476 {
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	477 from = this->hidden->bank[0] + (rects->x << 2) + rects->y * pitch;
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	478 to = this->hidden->bank[1] + (rects->x << 2) + rects->y * pitch;
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	479 width = (int)rects->w ;
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	480
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	481 RISCOS_Put32(to, width, pitch, (int)rects->h, from, pitch - (width << 2));
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	482 rects++;
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	483 }
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	484 }
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	485
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	486 /* Use operating system sprite plots. Currently this is much slower than the
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	487 other variants however accelerated sprite plotting can be seen on the horizon
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	488 so this prepares for it. */
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	489 static void FULLSCREEN_UpdateRectsOS(_THIS, int numrects, SDL_Rect *rects)
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	490 {
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	491 _kernel_swi_regs regs;
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	492 _kernel_oserror *err;
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	493 int j;
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	494 int y;
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	495
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	496 regs.r[0] = 28 + 512;
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	497 regs.r[1] = (unsigned int)this->hidden->alloc_bank;
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	498 regs.r[2] = (unsigned int)this->hidden->alloc_bank+16;
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	499 regs.r[5] = 0;
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	500
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	501 for (j = 0; j < numrects; j++)
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	502 {
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	503 y = this->screen->h - rects->y; /* top of clipping region */
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	504 _kernel_oswrch(24); /* Set graphics clip region */
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	505 _kernel_oswrch((rects->x << this->hidden->xeig) & 0xFF); /* left */
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	506 _kernel_oswrch(((rects->x << this->hidden->xeig) >> 8) & 0xFF);
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	507 _kernel_oswrch(((y - rects->h) << this->hidden->yeig) & 0xFF); /* bottom */
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	508 _kernel_oswrch((((y - rects->h) << this->hidden->yeig)>> 8) & 0xFF);
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	509 _kernel_oswrch(((rects->x + rects->w - 1) << this->hidden->xeig) & 0xFF); /* right */
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	510 _kernel_oswrch((((rects->x + rects->w - 1)<< this->hidden->xeig) >> 8) & 0xFF);
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	511 _kernel_oswrch(((y-1) << this->hidden->yeig) & 0xFF); /* top */
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	512 _kernel_oswrch((((y-1) << this->hidden->yeig) >> 8) & 0xFF);
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	513
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	514 regs.r[3] = 0;
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	515 regs.r[4] = 0;
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	516
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	517 if ((err = _kernel_swi(OS_SpriteOp, &regs, &regs)) != 0)
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	518 {
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	519 printf("OS_SpriteOp failed \n%s\n",err->errmess);
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	520 }
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	521
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	522 rects++;
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	523
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	524 /* Reset to full screen clipping */
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	525 _kernel_oswrch(24); /* Set graphics clip region */
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	526 _kernel_oswrch(0); /* left */
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	527 _kernel_oswrch(0);
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	528 _kernel_oswrch(0); /* bottom */
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	529 _kernel_oswrch(0);
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	530 _kernel_oswrch(((this->screen->w-1) << this->hidden->xeig) & 0xFF); /* right */
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	531 _kernel_oswrch((((this->screen->w-1) << this->hidden->xeig) >> 8) & 0xFF);
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	532 _kernel_oswrch(((this->screen->h-1) << this->hidden->yeig) & 0xFF); /* top */
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	533 _kernel_oswrch((((this->screen->h-1) << this->hidden->yeig) >> 8) & 0xFF);
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	534 }
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	535 }
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	536
974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	537
630 550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	538 int FULLSCREEN_SetColors(_THIS, int firstcolor, int ncolors, SDL_Color *colors)
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	539 {
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	540 _kernel_swi_regs regs;
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	541 int palette[256];
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	542
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	543 regs.r[0] = -1;
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	544 regs.r[1] = -1;
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	545 regs.r[2] = (int)palette;
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	546 regs.r[3] = 1024;
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	547 regs.r[4] = 0;
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	548 _kernel_swi(ColourTrans_ReadPalette, &regs, &regs);
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	549
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	550 while(ncolors--)
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	551 {
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	552 palette[firstcolor] = ((colors->b) << 24) \| ((colors->g) << 16) \| ((colors->r) << 8);
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	553 firstcolor++;
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	554 colors++;
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	555 }
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	556
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	557 regs.r[0] = -1;
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	558 regs.r[1] = -1;
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	559 regs.r[2] = (int)palette;
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	560 regs.r[3] = 0;
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	561 regs.r[4] = 0;
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	562 _kernel_swi(ColourTrans_WritePalette, &regs, &regs);
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	563
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	564 return(1);
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	565 }
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	566
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	567
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	568 static int cmpmodes(const void va, const void vb)
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	569 {
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	570 SDL_Rect a = (SDL_Rect **)va;
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	571 SDL_Rect b = (SDL_Rect **)vb;
966 f72cc0c7305f Video modes are sorted width first, then height Sam Lantinga <slouken@libsdl.org> parents: 769 diff changeset	572 if(a->w == b->w)
f72cc0c7305f Video modes are sorted width first, then height Sam Lantinga <slouken@libsdl.org> parents: 769 diff changeset	573 return b->h - a->h;
f72cc0c7305f Video modes are sorted width first, then height Sam Lantinga <slouken@libsdl.org> parents: 769 diff changeset	574 else
f72cc0c7305f Video modes are sorted width first, then height Sam Lantinga <slouken@libsdl.org> parents: 769 diff changeset	575 return b->w - a->w;
630 550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	576 }
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	577
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	578 static int FULLSCREEN_AddMode(_THIS, int bpp, int w, int h)
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	579 {
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	580 SDL_Rect *mode;
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	581 int i, index;
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	582 int next_mode;
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	583
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	584 /* Check to see if we already have this mode */
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	585 if ( bpp < 8 ) { /* Not supported */
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	586 return(0);
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	587 }
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	588 index = ((bpp+7)/8)-1;
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	589 for ( i=0; i<SDL_nummodes[index]; ++i ) {
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	590 mode = SDL_modelist[index][i];
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	591 if ( (mode->w == w) && (mode->h == h) ) {
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	592 return(0);
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	593 }
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	594 }
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	595
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	596 /* Set up the new video mode rectangle */
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	597 mode = (SDL_Rect )malloc(sizeof mode);
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	598 if ( mode == NULL ) {
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	599 SDL_OutOfMemory();
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	600 return(-1);
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	601 }
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	602 mode->x = 0;
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	603 mode->y = 0;
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	604 mode->w = w;
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	605 mode->h = h;
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	606
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	607 /* Allocate the new list of modes, and fill in the new mode */
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	608 next_mode = SDL_nummodes[index];
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	609 SDL_modelist[index] = (SDL_Rect **)
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	610 realloc(SDL_modelist[index], (1+next_mode+1)sizeof(SDL_Rect ));
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	611 if ( SDL_modelist[index] == NULL ) {
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	612 SDL_OutOfMemory();
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	613 SDL_nummodes[index] = 0;
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	614 free(mode);
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	615 return(-1);
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	616 }
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	617 SDL_modelist[index][next_mode] = mode;
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	618 SDL_modelist[index][next_mode+1] = NULL;
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	619 SDL_nummodes[index]++;
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	620
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	621 return(0);
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	622 }
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	623
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	624 void FULLSCREEN_SetWriteBank(int bank)
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	625 {
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	626 _kernel_swi_regs regs;
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	627 regs.r[0] = 112;
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	628 regs.r[1] = bank+1;
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	629 _kernel_swi(OS_Byte, &regs, &regs);
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	630 }
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	631
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	632 void FULLSCREEN_SetDisplayBank(int bank)
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	633 {
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	634 _kernel_swi_regs regs;
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	635 regs.r[0] = 113;
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	636 regs.r[1] = bank+1;
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	637 _kernel_swi(OS_Byte, &regs, &regs);
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	638 }
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	639
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	640
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	641 /** Disable special escape key processing */
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	642 static void FULLSCREEN_DisableEscape()
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	643 {
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	644 _kernel_swi_regs regs;
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	645 regs.r[0] = 229;
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	646 regs.r[1] = 1;
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	647 regs.r[2] = 0;
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	648 _kernel_swi(OS_Byte, &regs, &regs);
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	649
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	650 }
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	651
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	652 /** Enable special escape key processing */
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	653 static void FULLSCREEN_EnableEscape()
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	654 {
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	655 _kernel_swi_regs regs;
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	656 regs.r[0] = 229;
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	657 regs.r[1] = 0;
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	658 regs.r[2] = 0;
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	659 _kernel_swi(OS_Byte, &regs, &regs);
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	660
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	661 }
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	662
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	663 /** Store caption in case this is called before we create a window */
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	664 void FULLSCREEN_SetWMCaption(_THIS, const char title, const char icon)
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	665 {
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	666 strncpy(this->hidden->title, title, 255);
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	667 this->hidden->title[255] = 0;
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	668 }
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	669
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	670 /* Set screen mode
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	671 *
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	672 * Returns 1 if mode is set ok, otherwise 0
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	673 */
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	674
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	675 int FULLSCREEN_SetMode(int width, int height, int bpp)
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	676 {
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	677 SCREENMODEBLOCK smb;
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	678 _kernel_swi_regs regs;
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	679
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	680 smb.flags = 1;
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	681 smb.x_pixels = width;
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	682 smb.y_pixels = height;
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	683 smb.mode_vars[0] = -1;
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	684
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	685 switch(bpp)
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	686 {
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	687 case 8:
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	688 smb.pixel_depth = 3;
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	689 /* Note: Need to set ModeFlags to 128 and NColour variables to 255 get full 8 bit palette */
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	690 smb.mode_vars[0] = 0; smb.mode_vars[1] = 128; /* Mode flags */
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	691 smb.mode_vars[2] = 3; smb.mode_vars[3] = 255; /* NColour (number of colours -1) */
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	692 smb.mode_vars[4] = -1; /* End of list */
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	693 break;
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	694
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	695 case 15:
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	696 case 16:
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	697 smb.pixel_depth = 4;
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	698 break;
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	699
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	700 case 32:
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	701 smb.pixel_depth = 5;
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	702 break;
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	703
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	704 default:
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	705 SDL_SetError("Pixel depth not supported");
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	706 return 0;
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	707 break;
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	708 }
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	709
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	710 smb.frame_rate = -1;
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	711
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	712 regs.r[0] = 0;
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	713 regs.r[1] = (int)&smb;
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	714
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	715 if (_kernel_swi(OS_ScreenMode, &regs, &regs) != 0)
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	716 {
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	717 SDL_SetError("Couldn't set requested mode");
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	718 return 0;
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	719 }
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	720
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	721 /* Turn cursor off*/
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	722 _kernel_oswrch(23);_kernel_oswrch(1);_kernel_oswrch(0);
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	723 _kernel_oswrch(0);_kernel_oswrch(0);_kernel_oswrch(0);
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	724 _kernel_oswrch(0);_kernel_oswrch(0);_kernel_oswrch(0);
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	725 _kernel_oswrch(0);_kernel_oswrch(0);
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	726
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	727 return 1;
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	728 }
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	729
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	730 /* Get Start addresses for the screen banks */
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	731 void FULLSCREEN_SetupBanks(_THIS)
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	732 {
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	733 _kernel_swi_regs regs;
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	734 int block[5];
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	735 block[0] = 148; /* Write screen start */
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	736 block[1] = 149; /* Display screen start */
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	737 block[2] = 4; /* X eig factor */
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	738 block[3] = 5; /* Y eig factor */
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	739 block[4] = -1; /* End of list of variables to request */
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	740
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	741 regs.r[0] = (int)block;
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	742 regs.r[1] = (int)block;
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	743 _kernel_swi(OS_ReadVduVariables, &regs, &regs);
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	744
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	745 this->hidden->bank[0] = (void *)block[0];
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	746 this->hidden->bank[1] = (void *)block[1];
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	747 this->hidden->xeig = block[2];
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	748 this->hidden->yeig = block[3];
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	749 }
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	750
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	751 /* Toggle to full screen mode from the WIMP */
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	752
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	753 int FULLSCREEN_ToggleFromWimp(_THIS)
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	754 {
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	755 int width = this->screen->w;
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	756 int height = this->screen->h;
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	757 int bpp = this->screen->format->BitsPerPixel;
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	758
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	759 RISCOS_StoreWimpMode();
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	760 if (FULLSCREEN_SetMode(width, height, bpp))
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	761 {
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	762 char buffer = this->hidden->alloc_bank; / This is start of sprite data */
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	763 /* Support back buffer mode only */
1035 974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 966 diff changeset	764 if (riscos_backbuffer == 0) riscos_backbuffer = 1;
630 550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	765
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	766 FULLSCREEN_SetupBanks(this);
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	767
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	768 this->hidden->bank[0] = buffer + 60; /* Start of sprite data */
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	769 if (bpp == 8) this->hidden->bank[0] += 2048; /* 8bpp sprite have palette first */
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	770
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	771 this->hidden->current_bank = 0;
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	772 this->screen->pixels = this->hidden->bank[0];
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	773
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	774 /* Copy back buffer to screen memory */
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	775 memcpy(this->hidden->bank[1], this->hidden->bank[0], width * height * this->screen->format->BytesPerPixel);
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	776
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	777 FULLSCREEN_SetDeviceMode(this);
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	778 return 1;
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	779 } else
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	780 RISCOS_RestoreWimpMode();
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	781
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	782 return 0;
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	783 }

Mercurial > sdl-ios-xcode

annotate src/video/riscos/SDL_riscosFullScreenVideo.c @ 1290:c4a5a772c5d9