sdl-ios-xcode: src/video/xbios/SDL

annotate src/video/xbios/SDL_xbios.c @ 1238:1901fea5edac

Load default OpenGL library if needed at driver initialization

author	Patrice Mandin <patmandin@gmail.com>
date	Sun, 08 Jan 2006 10:22:27 +0000
parents	bf145eaf76ef
children	cbdb2c156aca

rev	line source
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	1 /*
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) 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: 735 diff changeset	3 Copyright (C) 1997-2004 Sam Lantinga
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	4
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	5 This library is free software; you can redistribute it and/or
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	6 modify it under the terms of the GNU Library General Public
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	7 License as published by the Free Software Foundation; either
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	8 version 2 of the License, or (at your option) any later version.
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	9
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	10 This library is distributed in the hope that it will be useful,
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	11 but WITHOUT ANY WARRANTY; without even the implied warranty of
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	12 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	13 Library General Public License for more details.
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	14
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	15 You should have received a copy of the GNU Library General Public
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	16 License along with this library; if not, write to the Free
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	17 Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	18
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	19 Sam Lantinga
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	20 slouken@libsdl.org
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	21 */
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	22
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	23 #ifdef SAVE_RCSID
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	24 static char rcsid =
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	25 "@(#) $Id$";
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	26 #endif
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	27
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	28 /*
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	29 * Xbios SDL video driver
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	30 *
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	31 * Patrice Mandin
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	32 */
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	33
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	34 #include <stdio.h>
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	35 #include <stdlib.h>
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	36 #include <string.h>
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	37 #include <sys/stat.h>
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	38 #include <unistd.h>
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	39
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	40 /* Mint includes */
557 0ce5a68278fd Updated Atari port for new system headers (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: 508 diff changeset	41 #include <mint/cookie.h>
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	42 #include <mint/osbind.h>
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	43 #include <mint/falcon.h>
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	44
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	45 #include "SDL.h"
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	46 #include "SDL_error.h"
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	47 #include "SDL_video.h"
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	48 #include "SDL_mouse.h"
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	49 #include "SDL_sysvideo.h"
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	50 #include "SDL_pixels_c.h"
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	51 #include "SDL_events_c.h"
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	52
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	53 #include "SDL_ataric2p_s.h"
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	54 #include "SDL_atarievents_c.h"
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	55 #include "SDL_atarimxalloc_c.h"
989 475166d13b44 Factorize OSMesa OpenGL code for Atari drivers Patrice Mandin <patmandin@gmail.com> parents: 980 diff changeset	56 #include "SDL_atarigl_c.h"
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	57 #include "SDL_xbios.h"
1040 c6ed27c7d47d Preliminary support for Blowup and Screen Blaster 3 extensions on Atari Falcon 030 Patrice Mandin <patmandin@gmail.com> parents: 993 diff changeset	58 #include "SDL_xbios_blowup.h"
1061 5023cde12cbd Add Falcon Centscreen extension support Patrice Mandin <patmandin@gmail.com> parents: 1043 diff changeset	59 #include "SDL_xbios_centscreen.h"
1040 c6ed27c7d47d Preliminary support for Blowup and Screen Blaster 3 extensions on Atari Falcon 030 Patrice Mandin <patmandin@gmail.com> parents: 993 diff changeset	60 #include "SDL_xbios_sb3.h"
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	61
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	62 #define XBIOS_VID_DRIVER_NAME "xbios"
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	63
1042 0e7218843cfb Dynamically create list of video modes, easier to add new ones Patrice Mandin <patmandin@gmail.com> parents: 1040 diff changeset	64 /* Debug print info */
1043 21d1d05aad39 Disable debug code Patrice Mandin <patmandin@gmail.com> parents: 1042 diff changeset	65 #if 0
1042 0e7218843cfb Dynamically create list of video modes, easier to add new ones Patrice Mandin <patmandin@gmail.com> parents: 1040 diff changeset	66 #define DEBUG_PRINT(what) \
0e7218843cfb Dynamically create list of video modes, easier to add new ones Patrice Mandin <patmandin@gmail.com> parents: 1040 diff changeset	67 { \
0e7218843cfb Dynamically create list of video modes, easier to add new ones Patrice Mandin <patmandin@gmail.com> parents: 1040 diff changeset	68 printf what; \
0e7218843cfb Dynamically create list of video modes, easier to add new ones Patrice Mandin <patmandin@gmail.com> parents: 1040 diff changeset	69 }
1043 21d1d05aad39 Disable debug code Patrice Mandin <patmandin@gmail.com> parents: 1042 diff changeset	70 #define DEBUG_VIDEO_XBIOS 1
1042 0e7218843cfb Dynamically create list of video modes, easier to add new ones Patrice Mandin <patmandin@gmail.com> parents: 1040 diff changeset	71 #else
0e7218843cfb Dynamically create list of video modes, easier to add new ones Patrice Mandin <patmandin@gmail.com> parents: 1040 diff changeset	72 #define DEBUG_PRINT(what)
0e7218843cfb Dynamically create list of video modes, easier to add new ones Patrice Mandin <patmandin@gmail.com> parents: 1040 diff changeset	73 #undef DEBUG_VIDEO_XBIOS
0e7218843cfb Dynamically create list of video modes, easier to add new ones Patrice Mandin <patmandin@gmail.com> parents: 1040 diff changeset	74 #endif
735 abec2a842d11 Use new C2P routine Patrice Mandin <patmandin@gmail.com> parents: 712 diff changeset	75
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	76 /* Initialization/Query functions */
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	77 static int XBIOS_VideoInit(_THIS, SDL_PixelFormat *vformat);
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	78 static SDL_Rect *XBIOS_ListModes(_THIS, SDL_PixelFormat format, Uint32 flags);
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	79 static SDL_Surface XBIOS_SetVideoMode(_THIS, SDL_Surface current, int width, int height, int bpp, Uint32 flags);
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	80 static int XBIOS_SetColors(_THIS, int firstcolor, int ncolors, SDL_Color *colors);
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	81 static void XBIOS_VideoQuit(_THIS);
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	82
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	83 /* Hardware surface functions */
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	84 static int XBIOS_AllocHWSurface(_THIS, SDL_Surface *surface);
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	85 static int XBIOS_LockHWSurface(_THIS, SDL_Surface *surface);
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	86 static int XBIOS_FlipHWSurface(_THIS, SDL_Surface *surface);
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	87 static void XBIOS_UnlockHWSurface(_THIS, SDL_Surface *surface);
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	88 static void XBIOS_FreeHWSurface(_THIS, SDL_Surface *surface);
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	89 static void XBIOS_UpdateRects(_THIS, int numrects, SDL_Rect *rects);
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	90
978 3b1ba22f5a28 Add support for OpenGL on Atari using OSMesa, the offscreen rendering driver from Mesa Patrice Mandin <patmandin@gmail.com> parents: 972 diff changeset	91 #ifdef HAVE_OPENGL
3b1ba22f5a28 Add support for OpenGL on Atari using OSMesa, the offscreen rendering driver from Mesa Patrice Mandin <patmandin@gmail.com> parents: 972 diff changeset	92 /* OpenGL functions */
3b1ba22f5a28 Add support for OpenGL on Atari using OSMesa, the offscreen rendering driver from Mesa Patrice Mandin <patmandin@gmail.com> parents: 972 diff changeset	93 static void XBIOS_GL_SwapBuffers(_THIS);
3b1ba22f5a28 Add support for OpenGL on Atari using OSMesa, the offscreen rendering driver from Mesa Patrice Mandin <patmandin@gmail.com> parents: 972 diff changeset	94 #endif
3b1ba22f5a28 Add support for OpenGL on Atari using OSMesa, the offscreen rendering driver from Mesa Patrice Mandin <patmandin@gmail.com> parents: 972 diff changeset	95
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	96 /* To setup palette */
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	97
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	98 static unsigned short TT_palette[256];
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	99 static unsigned long F30_palette[256];
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	100
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	101 /* Xbios driver bootstrap functions */
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	102
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	103 static int XBIOS_Available(void)
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	104 {
1040 c6ed27c7d47d Preliminary support for Blowup and Screen Blaster 3 extensions on Atari Falcon 030 Patrice Mandin <patmandin@gmail.com> parents: 993 diff changeset	105 unsigned long cookie_vdo, cookie_mil, cookie_hade, cookie_scpn;
797 d0f1e34290d6 Milan and Hades Atari clones do not have an Atari video chip Patrice Mandin <patmandin@gmail.com> parents: 769 diff changeset	106
d0f1e34290d6 Milan and Hades Atari clones do not have an Atari video chip Patrice Mandin <patmandin@gmail.com> parents: 769 diff changeset	107 /* Milan/Hades Atari clones do not have an Atari video chip */
d0f1e34290d6 Milan and Hades Atari clones do not have an Atari video chip Patrice Mandin <patmandin@gmail.com> parents: 769 diff changeset	108 if ( (Getcookie(C__MIL, &cookie_mil) == C_FOUND) \|\|
d0f1e34290d6 Milan and Hades Atari clones do not have an Atari video chip Patrice Mandin <patmandin@gmail.com> parents: 769 diff changeset	109 (Getcookie(C_hade, &cookie_hade) == C_FOUND) ) {
d0f1e34290d6 Milan and Hades Atari clones do not have an Atari video chip Patrice Mandin <patmandin@gmail.com> parents: 769 diff changeset	110 return 0;
d0f1e34290d6 Milan and Hades Atari clones do not have an Atari video chip Patrice Mandin <patmandin@gmail.com> parents: 769 diff changeset	111 }
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	112
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	113 /* Cookie _VDO present ? if not, assume ST machine */
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	114 if (Getcookie(C__VDO, &cookie_vdo) != C_FOUND) {
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	115 cookie_vdo = VDO_ST << 16;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	116 }
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	117
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	118 /* Test if we have a monochrome monitor plugged in */
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	119 switch( cookie_vdo >>16) {
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	120 case VDO_ST:
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	121 case VDO_STE:
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	122 if ( Getrez() == (ST_HIGH>>8) )
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	123 return 0;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	124 break;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	125 case VDO_TT:
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	126 if ( (EgetShift() & ES_MODE) == TT_HIGH)
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	127 return 0;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	128 break;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	129 case VDO_F30:
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	130 if ( Montype() == MONITOR_MONO)
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	131 return 0;
1040 c6ed27c7d47d Preliminary support for Blowup and Screen Blaster 3 extensions on Atari Falcon 030 Patrice Mandin <patmandin@gmail.com> parents: 993 diff changeset	132 if (Getcookie(C_SCPN, &cookie_scpn) == C_FOUND) {
c6ed27c7d47d Preliminary support for Blowup and Screen Blaster 3 extensions on Atari Falcon 030 Patrice Mandin <patmandin@gmail.com> parents: 993 diff changeset	133 if (!SDL_XBIOS_SB3Usable((scpn_cookie_t *)cookie_scpn)) {
c6ed27c7d47d Preliminary support for Blowup and Screen Blaster 3 extensions on Atari Falcon 030 Patrice Mandin <patmandin@gmail.com> parents: 993 diff changeset	134 return 0;
c6ed27c7d47d Preliminary support for Blowup and Screen Blaster 3 extensions on Atari Falcon 030 Patrice Mandin <patmandin@gmail.com> parents: 993 diff changeset	135 }
c6ed27c7d47d Preliminary support for Blowup and Screen Blaster 3 extensions on Atari Falcon 030 Patrice Mandin <patmandin@gmail.com> parents: 993 diff changeset	136 }
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	137 break;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	138 default:
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	139 return 0;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	140 }
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	141
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	142 return 1;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	143 }
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	144
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	145 static void XBIOS_DeleteDevice(SDL_VideoDevice *device)
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	146 {
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	147 free(device->hidden);
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	148 free(device);
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	149 }
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	150
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	151 static SDL_VideoDevice *XBIOS_CreateDevice(int devindex)
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	152 {
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	153 SDL_VideoDevice *device;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	154
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	155 /* Initialize all variables that we clean on shutdown */
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	156 device = (SDL_VideoDevice *)malloc(sizeof(SDL_VideoDevice));
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	157 if ( device ) {
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	158 memset(device, 0, (sizeof *device));
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	159 device->hidden = (struct SDL_PrivateVideoData *)
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	160 malloc((sizeof *device->hidden));
989 475166d13b44 Factorize OSMesa OpenGL code for Atari drivers Patrice Mandin <patmandin@gmail.com> parents: 980 diff changeset	161 device->gl_data = (struct SDL_PrivateGLData *)
475166d13b44 Factorize OSMesa OpenGL code for Atari drivers Patrice Mandin <patmandin@gmail.com> parents: 980 diff changeset	162 malloc((sizeof *device->gl_data));
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	163 }
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	164 if ( (device == NULL) \|\| (device->hidden == NULL) ) {
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	165 SDL_OutOfMemory();
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	166 if ( device ) {
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	167 free(device);
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	168 }
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	169 return(0);
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	170 }
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	171 memset(device->hidden, 0, (sizeof *device->hidden));
989 475166d13b44 Factorize OSMesa OpenGL code for Atari drivers Patrice Mandin <patmandin@gmail.com> parents: 980 diff changeset	172 memset(device->gl_data, 0, sizeof(*device->gl_data));
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	173
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	174 /* Video functions */
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	175 device->VideoInit = XBIOS_VideoInit;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	176 device->ListModes = XBIOS_ListModes;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	177 device->SetVideoMode = XBIOS_SetVideoMode;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	178 device->SetColors = XBIOS_SetColors;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	179 device->UpdateRects = NULL;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	180 device->VideoQuit = XBIOS_VideoQuit;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	181 device->AllocHWSurface = XBIOS_AllocHWSurface;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	182 device->LockHWSurface = XBIOS_LockHWSurface;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	183 device->UnlockHWSurface = XBIOS_UnlockHWSurface;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	184 device->FlipHWSurface = XBIOS_FlipHWSurface;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	185 device->FreeHWSurface = XBIOS_FreeHWSurface;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	186
978 3b1ba22f5a28 Add support for OpenGL on Atari using OSMesa, the offscreen rendering driver from Mesa Patrice Mandin <patmandin@gmail.com> parents: 972 diff changeset	187 #ifdef HAVE_OPENGL
3b1ba22f5a28 Add support for OpenGL on Atari using OSMesa, the offscreen rendering driver from Mesa Patrice Mandin <patmandin@gmail.com> parents: 972 diff changeset	188 /* OpenGL functions */
989 475166d13b44 Factorize OSMesa OpenGL code for Atari drivers Patrice Mandin <patmandin@gmail.com> parents: 980 diff changeset	189 device->GL_LoadLibrary = SDL_AtariGL_LoadLibrary;
475166d13b44 Factorize OSMesa OpenGL code for Atari drivers Patrice Mandin <patmandin@gmail.com> parents: 980 diff changeset	190 device->GL_GetProcAddress = SDL_AtariGL_GetProcAddress;
475166d13b44 Factorize OSMesa OpenGL code for Atari drivers Patrice Mandin <patmandin@gmail.com> parents: 980 diff changeset	191 device->GL_GetAttribute = SDL_AtariGL_GetAttribute;
475166d13b44 Factorize OSMesa OpenGL code for Atari drivers Patrice Mandin <patmandin@gmail.com> parents: 980 diff changeset	192 device->GL_MakeCurrent = SDL_AtariGL_MakeCurrent;
978 3b1ba22f5a28 Add support for OpenGL on Atari using OSMesa, the offscreen rendering driver from Mesa Patrice Mandin <patmandin@gmail.com> parents: 972 diff changeset	193 device->GL_SwapBuffers = XBIOS_GL_SwapBuffers;
3b1ba22f5a28 Add support for OpenGL on Atari using OSMesa, the offscreen rendering driver from Mesa Patrice Mandin <patmandin@gmail.com> parents: 972 diff changeset	194 #endif
3b1ba22f5a28 Add support for OpenGL on Atari using OSMesa, the offscreen rendering driver from Mesa Patrice Mandin <patmandin@gmail.com> parents: 972 diff changeset	195
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	196 /* Events */
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	197 device->InitOSKeymap = Atari_InitOSKeymap;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	198 device->PumpEvents = Atari_PumpEvents;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	199
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	200 device->free = XBIOS_DeleteDevice;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	201
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	202 return device;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	203 }
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	204
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	205 VideoBootStrap XBIOS_bootstrap = {
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	206 XBIOS_VID_DRIVER_NAME, "Atari Xbios driver",
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	207 XBIOS_Available, XBIOS_CreateDevice
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	208 };
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	209
1042 0e7218843cfb Dynamically create list of video modes, easier to add new ones Patrice Mandin <patmandin@gmail.com> parents: 1040 diff changeset	210 void SDL_XBIOS_AddMode(_THIS, Uint16 modecode, Uint16 width, Uint16 height,
0e7218843cfb Dynamically create list of video modes, easier to add new ones Patrice Mandin <patmandin@gmail.com> parents: 1040 diff changeset	211 Uint16 depth, SDL_bool flags)
0e7218843cfb Dynamically create list of video modes, easier to add new ones Patrice Mandin <patmandin@gmail.com> parents: 1040 diff changeset	212 {
0e7218843cfb Dynamically create list of video modes, easier to add new ones Patrice Mandin <patmandin@gmail.com> parents: 1040 diff changeset	213 int i, curpos;
0e7218843cfb Dynamically create list of video modes, easier to add new ones Patrice Mandin <patmandin@gmail.com> parents: 1040 diff changeset	214 xbiosmode_t *current_mode;
0e7218843cfb Dynamically create list of video modes, easier to add new ones Patrice Mandin <patmandin@gmail.com> parents: 1040 diff changeset	215
0e7218843cfb Dynamically create list of video modes, easier to add new ones Patrice Mandin <patmandin@gmail.com> parents: 1040 diff changeset	216 /* Check if mode already exists */
0e7218843cfb Dynamically create list of video modes, easier to add new ones Patrice Mandin <patmandin@gmail.com> parents: 1040 diff changeset	217 if (XBIOS_modelist) {
0e7218843cfb Dynamically create list of video modes, easier to add new ones Patrice Mandin <patmandin@gmail.com> parents: 1040 diff changeset	218 current_mode = XBIOS_modelist;
0e7218843cfb Dynamically create list of video modes, easier to add new ones Patrice Mandin <patmandin@gmail.com> parents: 1040 diff changeset	219 for (i=0;i<XBIOS_nummodes; i++, current_mode++) {
0e7218843cfb Dynamically create list of video modes, easier to add new ones Patrice Mandin <patmandin@gmail.com> parents: 1040 diff changeset	220 if (current_mode->width != width)
0e7218843cfb Dynamically create list of video modes, easier to add new ones Patrice Mandin <patmandin@gmail.com> parents: 1040 diff changeset	221 continue;
0e7218843cfb Dynamically create list of video modes, easier to add new ones Patrice Mandin <patmandin@gmail.com> parents: 1040 diff changeset	222 if (current_mode->height != height)
0e7218843cfb Dynamically create list of video modes, easier to add new ones Patrice Mandin <patmandin@gmail.com> parents: 1040 diff changeset	223 continue;
0e7218843cfb Dynamically create list of video modes, easier to add new ones Patrice Mandin <patmandin@gmail.com> parents: 1040 diff changeset	224 if (current_mode->depth != depth)
0e7218843cfb Dynamically create list of video modes, easier to add new ones Patrice Mandin <patmandin@gmail.com> parents: 1040 diff changeset	225 continue;
0e7218843cfb Dynamically create list of video modes, easier to add new ones Patrice Mandin <patmandin@gmail.com> parents: 1040 diff changeset	226 return;
0e7218843cfb Dynamically create list of video modes, easier to add new ones Patrice Mandin <patmandin@gmail.com> parents: 1040 diff changeset	227 }
0e7218843cfb Dynamically create list of video modes, easier to add new ones Patrice Mandin <patmandin@gmail.com> parents: 1040 diff changeset	228 }
0e7218843cfb Dynamically create list of video modes, easier to add new ones Patrice Mandin <patmandin@gmail.com> parents: 1040 diff changeset	229
0e7218843cfb Dynamically create list of video modes, easier to add new ones Patrice Mandin <patmandin@gmail.com> parents: 1040 diff changeset	230 ++XBIOS_nummodes;
0e7218843cfb Dynamically create list of video modes, easier to add new ones Patrice Mandin <patmandin@gmail.com> parents: 1040 diff changeset	231 XBIOS_modelist = (xbiosmode_t ) realloc(XBIOS_modelist, XBIOS_nummodes sizeof(xbiosmode_t));
0e7218843cfb Dynamically create list of video modes, easier to add new ones Patrice Mandin <patmandin@gmail.com> parents: 1040 diff changeset	232
0e7218843cfb Dynamically create list of video modes, easier to add new ones Patrice Mandin <patmandin@gmail.com> parents: 1040 diff changeset	233 /* Keep the list sorted: bpp, width, height */
0e7218843cfb Dynamically create list of video modes, easier to add new ones Patrice Mandin <patmandin@gmail.com> parents: 1040 diff changeset	234 curpos=0;
0e7218843cfb Dynamically create list of video modes, easier to add new ones Patrice Mandin <patmandin@gmail.com> parents: 1040 diff changeset	235
0e7218843cfb Dynamically create list of video modes, easier to add new ones Patrice Mandin <patmandin@gmail.com> parents: 1040 diff changeset	236 for(i=0; i<XBIOS_nummodes-1; i++) {
0e7218843cfb Dynamically create list of video modes, easier to add new ones Patrice Mandin <patmandin@gmail.com> parents: 1040 diff changeset	237 if (XBIOS_modelist[i].depth <= depth) {
0e7218843cfb Dynamically create list of video modes, easier to add new ones Patrice Mandin <patmandin@gmail.com> parents: 1040 diff changeset	238 if (XBIOS_modelist[i].width < width) {
0e7218843cfb Dynamically create list of video modes, easier to add new ones Patrice Mandin <patmandin@gmail.com> parents: 1040 diff changeset	239 break;
0e7218843cfb Dynamically create list of video modes, easier to add new ones Patrice Mandin <patmandin@gmail.com> parents: 1040 diff changeset	240 } else if (XBIOS_modelist[i].width == width) {
0e7218843cfb Dynamically create list of video modes, easier to add new ones Patrice Mandin <patmandin@gmail.com> parents: 1040 diff changeset	241 if (XBIOS_modelist[i].height <= height) {
0e7218843cfb Dynamically create list of video modes, easier to add new ones Patrice Mandin <patmandin@gmail.com> parents: 1040 diff changeset	242 break;
0e7218843cfb Dynamically create list of video modes, easier to add new ones Patrice Mandin <patmandin@gmail.com> parents: 1040 diff changeset	243 }
0e7218843cfb Dynamically create list of video modes, easier to add new ones Patrice Mandin <patmandin@gmail.com> parents: 1040 diff changeset	244 }
0e7218843cfb Dynamically create list of video modes, easier to add new ones Patrice Mandin <patmandin@gmail.com> parents: 1040 diff changeset	245 }
0e7218843cfb Dynamically create list of video modes, easier to add new ones Patrice Mandin <patmandin@gmail.com> parents: 1040 diff changeset	246 curpos++;
0e7218843cfb Dynamically create list of video modes, easier to add new ones Patrice Mandin <patmandin@gmail.com> parents: 1040 diff changeset	247 }
0e7218843cfb Dynamically create list of video modes, easier to add new ones Patrice Mandin <patmandin@gmail.com> parents: 1040 diff changeset	248
0e7218843cfb Dynamically create list of video modes, easier to add new ones Patrice Mandin <patmandin@gmail.com> parents: 1040 diff changeset	249 /* Push remaining modes further */
0e7218843cfb Dynamically create list of video modes, easier to add new ones Patrice Mandin <patmandin@gmail.com> parents: 1040 diff changeset	250 for(i=XBIOS_nummodes-1; i>curpos; i--) {
0e7218843cfb Dynamically create list of video modes, easier to add new ones Patrice Mandin <patmandin@gmail.com> parents: 1040 diff changeset	251 memcpy(&XBIOS_modelist[i], &XBIOS_modelist[i-1], sizeof(xbiosmode_t));
0e7218843cfb Dynamically create list of video modes, easier to add new ones Patrice Mandin <patmandin@gmail.com> parents: 1040 diff changeset	252 }
0e7218843cfb Dynamically create list of video modes, easier to add new ones Patrice Mandin <patmandin@gmail.com> parents: 1040 diff changeset	253
0e7218843cfb Dynamically create list of video modes, easier to add new ones Patrice Mandin <patmandin@gmail.com> parents: 1040 diff changeset	254 XBIOS_modelist[curpos].number = modecode;
0e7218843cfb Dynamically create list of video modes, easier to add new ones Patrice Mandin <patmandin@gmail.com> parents: 1040 diff changeset	255 XBIOS_modelist[curpos].width = width;
0e7218843cfb Dynamically create list of video modes, easier to add new ones Patrice Mandin <patmandin@gmail.com> parents: 1040 diff changeset	256 XBIOS_modelist[curpos].height = height;
0e7218843cfb Dynamically create list of video modes, easier to add new ones Patrice Mandin <patmandin@gmail.com> parents: 1040 diff changeset	257 XBIOS_modelist[curpos].depth = depth;
0e7218843cfb Dynamically create list of video modes, easier to add new ones Patrice Mandin <patmandin@gmail.com> parents: 1040 diff changeset	258 XBIOS_modelist[curpos].doubleline = flags;
0e7218843cfb Dynamically create list of video modes, easier to add new ones Patrice Mandin <patmandin@gmail.com> parents: 1040 diff changeset	259 }
0e7218843cfb Dynamically create list of video modes, easier to add new ones Patrice Mandin <patmandin@gmail.com> parents: 1040 diff changeset	260
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	261 static int XBIOS_VideoInit(_THIS, SDL_PixelFormat *vformat)
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	262 {
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	263 int i,j8,j16;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	264 xbiosmode_t *current_mode;
1061 5023cde12cbd Add Falcon Centscreen extension support Patrice Mandin <patmandin@gmail.com> parents: 1043 diff changeset	265 unsigned long cookie_blow, cookie_scpn, cookie_cnts;
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	266
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	267 /* Initialize all variables that we clean on shutdown */
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	268 memset (SDL_modelist, 0, sizeof(SDL_modelist));
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	269
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	270 /* Cookie _VDO present ? if not, assume ST machine */
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	271 if (Getcookie(C__VDO, &XBIOS_cvdo) != C_FOUND) {
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	272 XBIOS_cvdo = VDO_ST << 16;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	273 }
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	274
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	275 /* Allocate memory for old palette */
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	276 XBIOS_oldpalette = (void )malloc(256sizeof(long));
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	277 if ( !XBIOS_oldpalette ) {
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	278 SDL_SetError("Unable to allocate memory for old palette\n");
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	279 return(-1);
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	280 }
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	281
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	282 /* Initialize video mode list */
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	283 /* and save current screen status (palette, screen address, video mode) */
1042 0e7218843cfb Dynamically create list of video modes, easier to add new ones Patrice Mandin <patmandin@gmail.com> parents: 1040 diff changeset	284 XBIOS_nummodes = 0;
0e7218843cfb Dynamically create list of video modes, easier to add new ones Patrice Mandin <patmandin@gmail.com> parents: 1040 diff changeset	285 XBIOS_modelist = NULL;
1064 fba6b67b4d60 Add Centscreen extended modes support Patrice Mandin <patmandin@gmail.com> parents: 1061 diff changeset	286 XBIOS_centscreen = SDL_FALSE;
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	287
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	288 switch (XBIOS_cvdo >>16) {
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	289 case VDO_ST:
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	290 case VDO_STE:
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	291 {
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	292 short *oldpalette;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	293
1042 0e7218843cfb Dynamically create list of video modes, easier to add new ones Patrice Mandin <patmandin@gmail.com> parents: 1040 diff changeset	294 SDL_XBIOS_AddMode(this, ST_LOW>>8,320,200,4,SDL_FALSE);
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	295
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	296 XBIOS_oldvbase=Physbase();
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	297 XBIOS_oldvmode=Getrez();
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	298 switch(XBIOS_oldvmode << 8) {
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	299 case ST_LOW:
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	300 XBIOS_oldnumcol=16;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	301 break;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	302 case ST_MED:
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	303 XBIOS_oldnumcol=4;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	304 break;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	305 case ST_HIGH:
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	306 XBIOS_oldnumcol=2;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	307 break;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	308 default:
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	309 XBIOS_oldnumcol=0;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	310 break;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	311 }
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	312
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	313 oldpalette= (short *) XBIOS_oldpalette;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	314 for (i=0;i<XBIOS_oldnumcol;i++) {
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	315 *oldpalette++=Setcolor(i,-1);
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	316 }
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	317
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	318 vformat->BitsPerPixel = 8;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	319 }
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	320 break;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	321 case VDO_TT:
1042 0e7218843cfb Dynamically create list of video modes, easier to add new ones Patrice Mandin <patmandin@gmail.com> parents: 1040 diff changeset	322
0e7218843cfb Dynamically create list of video modes, easier to add new ones Patrice Mandin <patmandin@gmail.com> parents: 1040 diff changeset	323 SDL_XBIOS_AddMode(this, TT_LOW,320,480,8,SDL_FALSE);
0e7218843cfb Dynamically create list of video modes, easier to add new ones Patrice Mandin <patmandin@gmail.com> parents: 1040 diff changeset	324 /* Software double-lined mode */
0e7218843cfb Dynamically create list of video modes, easier to add new ones Patrice Mandin <patmandin@gmail.com> parents: 1040 diff changeset	325 SDL_XBIOS_AddMode(this, TT_LOW,320,240,8,SDL_TRUE);
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	326
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	327 XBIOS_oldvbase=Logbase();
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	328 XBIOS_oldvmode=EgetShift();
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	329
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	330 switch(XBIOS_oldvmode & ES_MODE) {
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	331 case TT_LOW:
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	332 XBIOS_oldnumcol=256;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	333 break;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	334 case ST_LOW:
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	335 case TT_MED:
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	336 XBIOS_oldnumcol=16;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	337 break;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	338 case ST_MED:
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	339 XBIOS_oldnumcol=4;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	340 break;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	341 case ST_HIGH:
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	342 case TT_HIGH:
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	343 XBIOS_oldnumcol=2;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	344 break;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	345 default:
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	346 XBIOS_oldnumcol=0;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	347 break;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	348 }
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	349 if (XBIOS_oldnumcol) {
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	350 EgetPalette(0, XBIOS_oldnumcol, XBIOS_oldpalette);
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	351 }
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	352
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	353 vformat->BitsPerPixel = 8;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	354 break;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	355 case VDO_F30:
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	356 switch (Montype())
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	357 {
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	358 case MONITOR_MONO:
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	359 /* Not usable */
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	360 break;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	361 case MONITOR_RGB:
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	362 case MONITOR_TV:
1042 0e7218843cfb Dynamically create list of video modes, easier to add new ones Patrice Mandin <patmandin@gmail.com> parents: 1040 diff changeset	363 SDL_XBIOS_AddMode(this, BPS16\|COL80\|OVERSCAN\|VERTFLAG,768,480,16,SDL_FALSE);
0e7218843cfb Dynamically create list of video modes, easier to add new ones Patrice Mandin <patmandin@gmail.com> parents: 1040 diff changeset	364 SDL_XBIOS_AddMode(this, BPS16\|COL80\|OVERSCAN,768,240,16,SDL_FALSE);
0e7218843cfb Dynamically create list of video modes, easier to add new ones Patrice Mandin <patmandin@gmail.com> parents: 1040 diff changeset	365 SDL_XBIOS_AddMode(this, BPS16\|COL80\|VERTFLAG,640,400,16,SDL_FALSE);
0e7218843cfb Dynamically create list of video modes, easier to add new ones Patrice Mandin <patmandin@gmail.com> parents: 1040 diff changeset	366 SDL_XBIOS_AddMode(this, BPS16\|COL80,640,200,16,SDL_FALSE);
0e7218843cfb Dynamically create list of video modes, easier to add new ones Patrice Mandin <patmandin@gmail.com> parents: 1040 diff changeset	367 SDL_XBIOS_AddMode(this, BPS16\|OVERSCAN\|VERTFLAG,384,480,16,SDL_FALSE);
0e7218843cfb Dynamically create list of video modes, easier to add new ones Patrice Mandin <patmandin@gmail.com> parents: 1040 diff changeset	368 SDL_XBIOS_AddMode(this, BPS16\|OVERSCAN,384,240,16,SDL_FALSE);
0e7218843cfb Dynamically create list of video modes, easier to add new ones Patrice Mandin <patmandin@gmail.com> parents: 1040 diff changeset	369 SDL_XBIOS_AddMode(this, BPS16\|VERTFLAG,320,400,16,SDL_FALSE);
0e7218843cfb Dynamically create list of video modes, easier to add new ones Patrice Mandin <patmandin@gmail.com> parents: 1040 diff changeset	370 SDL_XBIOS_AddMode(this, BPS16,320,200,16,SDL_FALSE);
0e7218843cfb Dynamically create list of video modes, easier to add new ones Patrice Mandin <patmandin@gmail.com> parents: 1040 diff changeset	371 SDL_XBIOS_AddMode(this, BPS8\|COL80\|OVERSCAN\|VERTFLAG,768,480,8,SDL_FALSE);
0e7218843cfb Dynamically create list of video modes, easier to add new ones Patrice Mandin <patmandin@gmail.com> parents: 1040 diff changeset	372 SDL_XBIOS_AddMode(this, BPS8\|COL80\|OVERSCAN,768,240,8,SDL_FALSE);
0e7218843cfb Dynamically create list of video modes, easier to add new ones Patrice Mandin <patmandin@gmail.com> parents: 1040 diff changeset	373 SDL_XBIOS_AddMode(this, BPS8\|COL80\|VERTFLAG,640,400,8,SDL_FALSE);
0e7218843cfb Dynamically create list of video modes, easier to add new ones Patrice Mandin <patmandin@gmail.com> parents: 1040 diff changeset	374 SDL_XBIOS_AddMode(this, BPS8\|COL80,640,200,8,SDL_FALSE);
0e7218843cfb Dynamically create list of video modes, easier to add new ones Patrice Mandin <patmandin@gmail.com> parents: 1040 diff changeset	375 SDL_XBIOS_AddMode(this, BPS8\|OVERSCAN\|VERTFLAG,384,480,8,SDL_FALSE);
0e7218843cfb Dynamically create list of video modes, easier to add new ones Patrice Mandin <patmandin@gmail.com> parents: 1040 diff changeset	376 SDL_XBIOS_AddMode(this, BPS8\|OVERSCAN,384,240,8,SDL_FALSE);
0e7218843cfb Dynamically create list of video modes, easier to add new ones Patrice Mandin <patmandin@gmail.com> parents: 1040 diff changeset	377 SDL_XBIOS_AddMode(this, BPS8\|VERTFLAG,320,400,8,SDL_FALSE);
0e7218843cfb Dynamically create list of video modes, easier to add new ones Patrice Mandin <patmandin@gmail.com> parents: 1040 diff changeset	378 SDL_XBIOS_AddMode(this, BPS8,320,200,8,SDL_FALSE);
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	379 break;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	380 case MONITOR_VGA:
1042 0e7218843cfb Dynamically create list of video modes, easier to add new ones Patrice Mandin <patmandin@gmail.com> parents: 1040 diff changeset	381 SDL_XBIOS_AddMode(this, BPS16,320,480,16,SDL_FALSE);
0e7218843cfb Dynamically create list of video modes, easier to add new ones Patrice Mandin <patmandin@gmail.com> parents: 1040 diff changeset	382 SDL_XBIOS_AddMode(this, BPS16\|VERTFLAG,320,240,16,SDL_FALSE);
0e7218843cfb Dynamically create list of video modes, easier to add new ones Patrice Mandin <patmandin@gmail.com> parents: 1040 diff changeset	383 SDL_XBIOS_AddMode(this, BPS8\|COL80,640,480,8,SDL_FALSE);
0e7218843cfb Dynamically create list of video modes, easier to add new ones Patrice Mandin <patmandin@gmail.com> parents: 1040 diff changeset	384 SDL_XBIOS_AddMode(this, BPS8\|COL80\|VERTFLAG,640,240,8,SDL_FALSE);
0e7218843cfb Dynamically create list of video modes, easier to add new ones Patrice Mandin <patmandin@gmail.com> parents: 1040 diff changeset	385 SDL_XBIOS_AddMode(this, BPS8,320,480,8,SDL_FALSE);
0e7218843cfb Dynamically create list of video modes, easier to add new ones Patrice Mandin <patmandin@gmail.com> parents: 1040 diff changeset	386 SDL_XBIOS_AddMode(this, BPS8\|VERTFLAG,320,240,8,SDL_FALSE);
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	387 break;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	388 }
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	389 XBIOS_oldvbase=Logbase();
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	390 XBIOS_oldvmode=Vsetmode(-1);
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	391
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	392 XBIOS_oldnumcol= 1<< (1 << (XBIOS_oldvmode & NUMCOLS));
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	393 if (XBIOS_oldnumcol > 256) {
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	394 XBIOS_oldnumcol = 0;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	395 }
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	396 if (XBIOS_oldnumcol) {
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	397 VgetRGB(0, XBIOS_oldnumcol, XBIOS_oldpalette);
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	398 }
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	399
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	400 vformat->BitsPerPixel = 16;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	401
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	402 /* Keep vga/rvb, and pal/ntsc bits */
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	403 current_mode = XBIOS_modelist;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	404 for (i=0;i<XBIOS_nummodes;i++) {
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	405 Uint16 newvmode;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	406
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	407 newvmode = current_mode->number;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	408 newvmode &= ~(VGA\|PAL);
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	409 newvmode \|= XBIOS_oldvmode & (VGA\|PAL);
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	410 current_mode->number = newvmode;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	411
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	412 current_mode++;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	413 }
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	414
1064 fba6b67b4d60 Add Centscreen extended modes support Patrice Mandin <patmandin@gmail.com> parents: 1061 diff changeset	415 /* Initialize BlowUp/SB3/Centscreen stuff if present */
1040 c6ed27c7d47d Preliminary support for Blowup and Screen Blaster 3 extensions on Atari Falcon 030 Patrice Mandin <patmandin@gmail.com> parents: 993 diff changeset	416 if (Getcookie(C_BLOW, &cookie_blow) == C_FOUND) {
c6ed27c7d47d Preliminary support for Blowup and Screen Blaster 3 extensions on Atari Falcon 030 Patrice Mandin <patmandin@gmail.com> parents: 993 diff changeset	417 SDL_XBIOS_BlowupInit(this, (blow_cookie_t *)cookie_blow);
c6ed27c7d47d Preliminary support for Blowup and Screen Blaster 3 extensions on Atari Falcon 030 Patrice Mandin <patmandin@gmail.com> parents: 993 diff changeset	418 } else if (Getcookie(C_SCPN, &cookie_scpn) == C_FOUND) {
c6ed27c7d47d Preliminary support for Blowup and Screen Blaster 3 extensions on Atari Falcon 030 Patrice Mandin <patmandin@gmail.com> parents: 993 diff changeset	419 SDL_XBIOS_SB3Init(this, (scpn_cookie_t *)cookie_scpn);
1061 5023cde12cbd Add Falcon Centscreen extension support Patrice Mandin <patmandin@gmail.com> parents: 1043 diff changeset	420 } else if (Getcookie(C_CNTS, &cookie_cnts) == C_FOUND) {
1064 fba6b67b4d60 Add Centscreen extended modes support Patrice Mandin <patmandin@gmail.com> parents: 1061 diff changeset	421 XBIOS_oldvmode = SDL_XBIOS_CentscreenInit(this);
fba6b67b4d60 Add Centscreen extended modes support Patrice Mandin <patmandin@gmail.com> parents: 1061 diff changeset	422 XBIOS_centscreen = SDL_TRUE;
1040 c6ed27c7d47d Preliminary support for Blowup and Screen Blaster 3 extensions on Atari Falcon 030 Patrice Mandin <patmandin@gmail.com> parents: 993 diff changeset	423 }
1064 fba6b67b4d60 Add Centscreen extended modes support Patrice Mandin <patmandin@gmail.com> parents: 1061 diff changeset	424
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	425 break;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	426 }
1042 0e7218843cfb Dynamically create list of video modes, easier to add new ones Patrice Mandin <patmandin@gmail.com> parents: 1040 diff changeset	427
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	428 current_mode = XBIOS_modelist;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	429 j8 = j16 = 0;
1042 0e7218843cfb Dynamically create list of video modes, easier to add new ones Patrice Mandin <patmandin@gmail.com> parents: 1040 diff changeset	430 for (i=0; i<XBIOS_nummodes; i++, current_mode++) {
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	431 switch (current_mode->depth) {
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	432 case 4:
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	433 case 8:
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	434 SDL_modelist[0][j8] = malloc(sizeof(SDL_Rect));
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	435 SDL_modelist[0][j8]->x = SDL_modelist[0][j8]->y = 0;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	436 SDL_modelist[0][j8]->w = current_mode->width;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	437 SDL_modelist[0][j8]->h = current_mode->height;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	438 XBIOS_videomodes[0][j8]=current_mode;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	439 j8++;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	440 break;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	441 case 16:
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	442 SDL_modelist[1][j16] = malloc(sizeof(SDL_Rect));
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	443 SDL_modelist[1][j16]->x = SDL_modelist[1][j16]->y = 0;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	444 SDL_modelist[1][j16]->w = current_mode->width;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	445 SDL_modelist[1][j16]->h = current_mode->height;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	446 XBIOS_videomodes[1][j16]=current_mode;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	447 j16++;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	448 break;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	449 }
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	450 }
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	451 SDL_modelist[0][j8] = NULL;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	452 SDL_modelist[1][j16] = NULL;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	453
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	454 XBIOS_screens[0]=NULL;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	455 XBIOS_screens[1]=NULL;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	456 XBIOS_shadowscreen=NULL;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	457
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	458 /* Update hardware info */
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	459 this->info.hw_available = 1;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	460 this->info.video_mem = (Uint32) Atari_SysMalloc(-1L, MX_STRAM);
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	461
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	462 /* Init chunky to planar routine */
735 abec2a842d11 Use new C2P routine Patrice Mandin <patmandin@gmail.com> parents: 712 diff changeset	463 SDL_Atari_C2pConvert = SDL_Atari_C2pConvert8;
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	464
991 12b13601a544 Final touches to OSMesa OpenGL support on Atari, using loadable libraries. Hope SDL 1.2.8 is out soon. Patrice Mandin <patmandin@gmail.com> parents: 989 diff changeset	465 #ifdef HAVE_OPENGL
12b13601a544 Final touches to OSMesa OpenGL support on Atari, using loadable libraries. Hope SDL 1.2.8 is out soon. Patrice Mandin <patmandin@gmail.com> parents: 989 diff changeset	466 SDL_AtariGL_InitPointers(this);
1238 1901fea5edac Load default OpenGL library if needed at driver initialization Patrice Mandin <patmandin@gmail.com> parents: 1104 diff changeset	467 SDL_AtariGL_LoadLibrary(this, NULL);
991 12b13601a544 Final touches to OSMesa OpenGL support on Atari, using loadable libraries. Hope SDL 1.2.8 is out soon. Patrice Mandin <patmandin@gmail.com> parents: 989 diff changeset	468 #endif
12b13601a544 Final touches to OSMesa OpenGL support on Atari, using loadable libraries. Hope SDL 1.2.8 is out soon. Patrice Mandin <patmandin@gmail.com> parents: 989 diff changeset	469
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	470 /* We're done! */
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	471 return(0);
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	472 }
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	473
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	474 static SDL_Rect *XBIOS_ListModes(_THIS, SDL_PixelFormat format, Uint32 flags)
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	475 {
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	476 /* 8 bits -> list 0 */
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	477 /* 16 bits -> list 1 */
712 8be92df64b22 Finally bugfixed: the simpler the better Patrice Mandin <patmandin@gmail.com> parents: 711 diff changeset	478 if ((format->BitsPerPixel != 8) && (format->BitsPerPixel !=16)) {
711 8db4098e944b Severe bugfix: format->BitsPerPixel not checked in ListModes function Patrice Mandin <patmandin@gmail.com> parents: 598 diff changeset	479 return NULL;
8db4098e944b Severe bugfix: format->BitsPerPixel not checked in ListModes function Patrice Mandin <patmandin@gmail.com> parents: 598 diff changeset	480 }
8db4098e944b Severe bugfix: format->BitsPerPixel not checked in ListModes function Patrice Mandin <patmandin@gmail.com> parents: 598 diff changeset	481
712 8be92df64b22 Finally bugfixed: the simpler the better Patrice Mandin <patmandin@gmail.com> parents: 711 diff changeset	482 return(SDL_modelist[(format->BitsPerPixel)>>4]);
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	483 }
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	484
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	485 static void XBIOS_FreeBuffers(_THIS)
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	486 {
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	487 int i;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	488
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	489 for (i=0;i<2;i++) {
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	490 if (XBIOS_screensmem[i]!=NULL) {
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	491 Mfree(XBIOS_screensmem[i]);
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	492 XBIOS_screensmem[i]=NULL;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	493 }
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	494 }
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	495
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	496 if (XBIOS_shadowscreen!=NULL) {
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	497 Mfree(XBIOS_shadowscreen);
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	498 XBIOS_shadowscreen=NULL;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	499 }
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	500 }
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	501
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	502 static SDL_Surface XBIOS_SetVideoMode(_THIS, SDL_Surface current,
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	503 int width, int height, int bpp, Uint32 flags)
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	504 {
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	505 int mode, new_depth;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	506 int i;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	507 xbiosmode_t *new_video_mode;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	508 Uint32 new_screen_size;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	509 Uint32 modeflags;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	510
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	511 /* Free current buffers */
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	512 XBIOS_FreeBuffers(this);
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	513
801 ff1058d642dc Video modes must be sorted by Y size, for SDL_GetVideoMode() to operate properly Patrice Mandin <patmandin@gmail.com> parents: 797 diff changeset	514 /* Limit bpp */
ff1058d642dc Video modes must be sorted by Y size, for SDL_GetVideoMode() to operate properly Patrice Mandin <patmandin@gmail.com> parents: 797 diff changeset	515 if (bpp>16) {
ff1058d642dc Video modes must be sorted by Y size, for SDL_GetVideoMode() to operate properly Patrice Mandin <patmandin@gmail.com> parents: 797 diff changeset	516 bpp = 16;
ff1058d642dc Video modes must be sorted by Y size, for SDL_GetVideoMode() to operate properly Patrice Mandin <patmandin@gmail.com> parents: 797 diff changeset	517 }
ff1058d642dc Video modes must be sorted by Y size, for SDL_GetVideoMode() to operate properly Patrice Mandin <patmandin@gmail.com> parents: 797 diff changeset	518 bpp >>= 4;
ff1058d642dc Video modes must be sorted by Y size, for SDL_GetVideoMode() to operate properly Patrice Mandin <patmandin@gmail.com> parents: 797 diff changeset	519
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	520 /* Search if the mode exists (width, height, bpp) */
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	521 for ( mode=0; SDL_modelist[bpp][mode]; ++mode ) {
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	522 if ( (SDL_modelist[bpp][mode]->w == width) &&
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	523 (SDL_modelist[bpp][mode]->h == height) ) {
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	524
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	525 break;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	526 }
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	527 }
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	528 if ( SDL_modelist[bpp][mode] == NULL ) {
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	529 SDL_SetError("Couldn't find requested mode in list");
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	530 return(NULL);
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	531 }
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	532
1103 18e5babe266e Tell SDL to notfree my video surfaces (Damn, no how-to write a SDL driver) Patrice Mandin <patmandin@gmail.com> parents: 1102 diff changeset	533 modeflags = SDL_FULLSCREEN \| SDL_PREALLOC;
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	534
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	535 /* Allocate needed buffers: simple/double buffer and shadow surface */
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	536 new_video_mode = XBIOS_videomodes[bpp][mode];
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	537 new_depth = new_video_mode->depth;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	538 if (new_depth == 4) {
735 abec2a842d11 Use new C2P routine Patrice Mandin <patmandin@gmail.com> parents: 712 diff changeset	539 SDL_Atari_C2pConvert = SDL_Atari_C2pConvert4;
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	540 new_depth=8;
1085 49d154d0c56e 4bits screen also has hardware palette Patrice Mandin <patmandin@gmail.com> parents: 1084 diff changeset	541 modeflags \|= SDL_SWSURFACE\|SDL_HWPALETTE;
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	542 } else if (new_depth == 8) {
735 abec2a842d11 Use new C2P routine Patrice Mandin <patmandin@gmail.com> parents: 712 diff changeset	543 SDL_Atari_C2pConvert = SDL_Atari_C2pConvert8;
508 9ff7e90aaa94 Fixed gamma correction in Atari video drivers (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: 319 diff changeset	544 modeflags \|= SDL_SWSURFACE\|SDL_HWPALETTE;
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	545 } else {
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	546 modeflags \|= SDL_HWSURFACE;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	547 }
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	548
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	549 new_screen_size = width * height * ((new_depth)>>3);
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	550 new_screen_size += 256; /* To align on a 256 byte adress */
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	551
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	552 if (new_depth == 8) {
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	553 XBIOS_shadowscreen = Atari_SysMalloc(new_screen_size, MX_PREFTTRAM);
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	554
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	555 if (XBIOS_shadowscreen == NULL) {
1104 bf145eaf76ef Tell user how many bytes are needed Patrice Mandin <patmandin@gmail.com> parents: 1103 diff changeset	556 SDL_SetError("Can not allocate %d KB for shadow buffer", new_screen_size>>10);
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	557 return (NULL);
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	558 }
287 e4bd0cf95506 From: Patrice Mandin <pmandin@caramail.com> Sam Lantinga <slouken@libsdl.org> parents: 281 diff changeset	559 memset(XBIOS_shadowscreen, 0, new_screen_size);
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	560 }
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	561
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	562 /* Output buffer needs to be twice in size for the software double-line mode */
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	563 XBIOS_doubleline = SDL_FALSE;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	564 if (new_video_mode->doubleline) {
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	565 new_screen_size <<= 1;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	566 XBIOS_doubleline = SDL_TRUE;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	567 }
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	568
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	569 XBIOS_screensmem[0] = Atari_SysMalloc(new_screen_size, MX_STRAM);
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	570
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	571 if (XBIOS_screensmem[0]==NULL) {
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	572 XBIOS_FreeBuffers(this);
1104 bf145eaf76ef Tell user how many bytes are needed Patrice Mandin <patmandin@gmail.com> parents: 1103 diff changeset	573 SDL_SetError("Can not allocate %d KB for frame buffer", new_screen_size>>10);
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	574 return (NULL);
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	575 }
287 e4bd0cf95506 From: Patrice Mandin <pmandin@caramail.com> Sam Lantinga <slouken@libsdl.org> parents: 281 diff changeset	576 memset(XBIOS_screensmem[0], 0, new_screen_size);
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	577
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	578 XBIOS_screens[0]=(void *) (( (long) XBIOS_screensmem[0]+256) & 0xFFFFFF00UL);
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	579
978 3b1ba22f5a28 Add support for OpenGL on Atari using OSMesa, the offscreen rendering driver from Mesa Patrice Mandin <patmandin@gmail.com> parents: 972 diff changeset	580 #ifdef HAVE_OPENGL
3b1ba22f5a28 Add support for OpenGL on Atari using OSMesa, the offscreen rendering driver from Mesa Patrice Mandin <patmandin@gmail.com> parents: 972 diff changeset	581 if (flags & SDL_OPENGL) {
3b1ba22f5a28 Add support for OpenGL on Atari using OSMesa, the offscreen rendering driver from Mesa Patrice Mandin <patmandin@gmail.com> parents: 972 diff changeset	582 if (this->gl_config.double_buffer) {
3b1ba22f5a28 Add support for OpenGL on Atari using OSMesa, the offscreen rendering driver from Mesa Patrice Mandin <patmandin@gmail.com> parents: 972 diff changeset	583 flags \|= SDL_DOUBLEBUF;
3b1ba22f5a28 Add support for OpenGL on Atari using OSMesa, the offscreen rendering driver from Mesa Patrice Mandin <patmandin@gmail.com> parents: 972 diff changeset	584 }
3b1ba22f5a28 Add support for OpenGL on Atari using OSMesa, the offscreen rendering driver from Mesa Patrice Mandin <patmandin@gmail.com> parents: 972 diff changeset	585 }
3b1ba22f5a28 Add support for OpenGL on Atari using OSMesa, the offscreen rendering driver from Mesa Patrice Mandin <patmandin@gmail.com> parents: 972 diff changeset	586 #endif
3b1ba22f5a28 Add support for OpenGL on Atari using OSMesa, the offscreen rendering driver from Mesa Patrice Mandin <patmandin@gmail.com> parents: 972 diff changeset	587
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	588 /* Double buffer ? */
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	589 if (flags & SDL_DOUBLEBUF) {
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	590 XBIOS_screensmem[1] = Atari_SysMalloc(new_screen_size, MX_STRAM);
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	591
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	592 if (XBIOS_screensmem[1]==NULL) {
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	593 XBIOS_FreeBuffers(this);
1104 bf145eaf76ef Tell user how many bytes are needed Patrice Mandin <patmandin@gmail.com> parents: 1103 diff changeset	594 SDL_SetError("Can not allocate %d KB for double buffer", new_screen_size>>10);
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	595 return (NULL);
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	596 }
287 e4bd0cf95506 From: Patrice Mandin <pmandin@caramail.com> Sam Lantinga <slouken@libsdl.org> parents: 281 diff changeset	597 memset(XBIOS_screensmem[1], 0, new_screen_size);
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	598
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	599 XBIOS_screens[1]=(void *) (( (long) XBIOS_screensmem[1]+256) & 0xFFFFFF00UL);
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	600 modeflags \|= SDL_DOUBLEBUF;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	601 }
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	602
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	603 /* Allocate the new pixel format for the screen */
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	604 if ( ! SDL_ReallocFormat(current, new_depth, 0, 0, 0, 0) ) {
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	605 XBIOS_FreeBuffers(this);
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	606 SDL_SetError("Couldn't allocate new pixel format for requested mode");
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	607 return(NULL);
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	608 }
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	609
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	610 current->w = XBIOS_width = width;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	611 current->h = XBIOS_height = height;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	612 current->pitch = (width * new_depth)>>3;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	613
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	614 /* this is for C2P conversion */
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	615 XBIOS_pitch = (new_video_mode->width * new_video_mode->depth)>>3;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	616
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	617 if (new_depth == 8)
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	618 current->pixels = XBIOS_shadowscreen;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	619 else
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	620 current->pixels = XBIOS_screens[0];
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	621
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	622 XBIOS_fbnum = 0;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	623
978 3b1ba22f5a28 Add support for OpenGL on Atari using OSMesa, the offscreen rendering driver from Mesa Patrice Mandin <patmandin@gmail.com> parents: 972 diff changeset	624 #ifdef HAVE_OPENGL
3b1ba22f5a28 Add support for OpenGL on Atari using OSMesa, the offscreen rendering driver from Mesa Patrice Mandin <patmandin@gmail.com> parents: 972 diff changeset	625 if (flags & SDL_OPENGL) {
989 475166d13b44 Factorize OSMesa OpenGL code for Atari drivers Patrice Mandin <patmandin@gmail.com> parents: 980 diff changeset	626 if (!SDL_AtariGL_Init(this, current)) {
978 3b1ba22f5a28 Add support for OpenGL on Atari using OSMesa, the offscreen rendering driver from Mesa Patrice Mandin <patmandin@gmail.com> parents: 972 diff changeset	627 XBIOS_FreeBuffers(this);
989 475166d13b44 Factorize OSMesa OpenGL code for Atari drivers Patrice Mandin <patmandin@gmail.com> parents: 980 diff changeset	628 SDL_SetError("Can not create OpenGL context");
475166d13b44 Factorize OSMesa OpenGL code for Atari drivers Patrice Mandin <patmandin@gmail.com> parents: 980 diff changeset	629 return NULL;
978 3b1ba22f5a28 Add support for OpenGL on Atari using OSMesa, the offscreen rendering driver from Mesa Patrice Mandin <patmandin@gmail.com> parents: 972 diff changeset	630 }
3b1ba22f5a28 Add support for OpenGL on Atari using OSMesa, the offscreen rendering driver from Mesa Patrice Mandin <patmandin@gmail.com> parents: 972 diff changeset	631
3b1ba22f5a28 Add support for OpenGL on Atari using OSMesa, the offscreen rendering driver from Mesa Patrice Mandin <patmandin@gmail.com> parents: 972 diff changeset	632 modeflags \|= SDL_OPENGL;
3b1ba22f5a28 Add support for OpenGL on Atari using OSMesa, the offscreen rendering driver from Mesa Patrice Mandin <patmandin@gmail.com> parents: 972 diff changeset	633 }
3b1ba22f5a28 Add support for OpenGL on Atari using OSMesa, the offscreen rendering driver from Mesa Patrice Mandin <patmandin@gmail.com> parents: 972 diff changeset	634 #endif
3b1ba22f5a28 Add support for OpenGL on Atari using OSMesa, the offscreen rendering driver from Mesa Patrice Mandin <patmandin@gmail.com> parents: 972 diff changeset	635
3b1ba22f5a28 Add support for OpenGL on Atari using OSMesa, the offscreen rendering driver from Mesa Patrice Mandin <patmandin@gmail.com> parents: 972 diff changeset	636 current->flags = modeflags;
3b1ba22f5a28 Add support for OpenGL on Atari using OSMesa, the offscreen rendering driver from Mesa Patrice Mandin <patmandin@gmail.com> parents: 972 diff changeset	637
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	638 /* Now set the video mode */
735 abec2a842d11 Use new C2P routine Patrice Mandin <patmandin@gmail.com> parents: 712 diff changeset	639 #ifndef DEBUG_VIDEO_XBIOS
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	640 Setscreen(-1,XBIOS_screens[0],-1);
735 abec2a842d11 Use new C2P routine Patrice Mandin <patmandin@gmail.com> parents: 712 diff changeset	641 #endif
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	642
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	643 switch(XBIOS_cvdo >> 16) {
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	644 case VDO_ST:
735 abec2a842d11 Use new C2P routine Patrice Mandin <patmandin@gmail.com> parents: 712 diff changeset	645 #ifndef DEBUG_VIDEO_XBIOS
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	646 Setscreen(-1,-1,new_video_mode->number);
735 abec2a842d11 Use new C2P routine Patrice Mandin <patmandin@gmail.com> parents: 712 diff changeset	647 #endif
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	648 /* Reset palette */
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	649 for (i=0;i<16;i++) {
1085 49d154d0c56e 4bits screen also has hardware palette Patrice Mandin <patmandin@gmail.com> parents: 1084 diff changeset	650 TT_palette[i]= ((i>>1)<<8) \| (((i*8)/17)<<4) \| (i>>1);
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	651 }
735 abec2a842d11 Use new C2P routine Patrice Mandin <patmandin@gmail.com> parents: 712 diff changeset	652 #ifndef DEBUG_VIDEO_XBIOS
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	653 Setpalette(TT_palette);
735 abec2a842d11 Use new C2P routine Patrice Mandin <patmandin@gmail.com> parents: 712 diff changeset	654 #endif
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	655 break;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	656 case VDO_STE:
735 abec2a842d11 Use new C2P routine Patrice Mandin <patmandin@gmail.com> parents: 712 diff changeset	657 #ifndef DEBUG_VIDEO_XBIOS
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	658 Setscreen(-1,-1,new_video_mode->number);
735 abec2a842d11 Use new C2P routine Patrice Mandin <patmandin@gmail.com> parents: 712 diff changeset	659 #endif
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	660 /* Reset palette */
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	661 for (i=0;i<16;i++)
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	662 {
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	663 int c;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	664
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	665 c=((i&1)<<3)\|((i>>1)&7);
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	666 TT_palette[i]=(c<<8)\|(c<<4)\|c;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	667 }
735 abec2a842d11 Use new C2P routine Patrice Mandin <patmandin@gmail.com> parents: 712 diff changeset	668 #ifndef DEBUG_VIDEO_XBIOS
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	669 Setpalette(TT_palette);
735 abec2a842d11 Use new C2P routine Patrice Mandin <patmandin@gmail.com> parents: 712 diff changeset	670 #endif
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	671 break;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	672 case VDO_TT:
735 abec2a842d11 Use new C2P routine Patrice Mandin <patmandin@gmail.com> parents: 712 diff changeset	673 #ifndef DEBUG_VIDEO_XBIOS
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	674 EsetShift(new_video_mode->number);
735 abec2a842d11 Use new C2P routine Patrice Mandin <patmandin@gmail.com> parents: 712 diff changeset	675 #endif
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	676 break;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	677 case VDO_F30:
735 abec2a842d11 Use new C2P routine Patrice Mandin <patmandin@gmail.com> parents: 712 diff changeset	678 #ifndef DEBUG_VIDEO_XBIOS
1064 fba6b67b4d60 Add Centscreen extended modes support Patrice Mandin <patmandin@gmail.com> parents: 1061 diff changeset	679 if (XBIOS_centscreen) {
fba6b67b4d60 Add Centscreen extended modes support Patrice Mandin <patmandin@gmail.com> parents: 1061 diff changeset	680 SDL_XBIOS_CentscreenSetmode(this, width, height, new_depth);
fba6b67b4d60 Add Centscreen extended modes support Patrice Mandin <patmandin@gmail.com> parents: 1061 diff changeset	681 } else {
fba6b67b4d60 Add Centscreen extended modes support Patrice Mandin <patmandin@gmail.com> parents: 1061 diff changeset	682 Vsetmode(new_video_mode->number);
fba6b67b4d60 Add Centscreen extended modes support Patrice Mandin <patmandin@gmail.com> parents: 1061 diff changeset	683 }
735 abec2a842d11 Use new C2P routine Patrice Mandin <patmandin@gmail.com> parents: 712 diff changeset	684 #endif
1094 5012b97142ac Set hardware palette to black in True Colour mode Patrice Mandin <patmandin@gmail.com> parents: 1085 diff changeset	685 /* Set hardware palette to black in True Colour */
5012b97142ac Set hardware palette to black in True Colour mode Patrice Mandin <patmandin@gmail.com> parents: 1085 diff changeset	686 if (new_depth == 16) {
5012b97142ac Set hardware palette to black in True Colour mode Patrice Mandin <patmandin@gmail.com> parents: 1085 diff changeset	687 memset(F30_palette, 0, sizeof(F30_palette));
5012b97142ac Set hardware palette to black in True Colour mode Patrice Mandin <patmandin@gmail.com> parents: 1085 diff changeset	688 VsetRGB(0,256,F30_palette);
5012b97142ac Set hardware palette to black in True Colour mode Patrice Mandin <patmandin@gmail.com> parents: 1085 diff changeset	689 }
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	690 break;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	691 }
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	692
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	693 Vsync();
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	694
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	695 this->UpdateRects = XBIOS_UpdateRects;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	696
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	697 return (current);
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	698 }
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	699
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	700 /* We don't actually allow hardware surfaces other than the main one */
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	701 static int XBIOS_AllocHWSurface(_THIS, SDL_Surface *surface)
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	702 {
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	703 return(-1);
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	704 }
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	705
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	706 static void XBIOS_FreeHWSurface(_THIS, SDL_Surface *surface)
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	707 {
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	708 return;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	709 }
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	710
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	711 static int XBIOS_LockHWSurface(_THIS, SDL_Surface *surface)
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	712 {
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	713 return(0);
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	714 }
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	715
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	716 static void XBIOS_UnlockHWSurface(_THIS, SDL_Surface *surface)
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	717 {
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	718 return;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	719 }
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	720
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	721 static void XBIOS_UpdateRects(_THIS, int numrects, SDL_Rect *rects)
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	722 {
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	723 SDL_Surface *surface;
314 bff64eba7721 * empty log message * Sam Lantinga <slouken@libsdl.org> parents: 311 diff changeset	724
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	725 surface = this->screen;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	726
314 bff64eba7721 * empty log message * Sam Lantinga <slouken@libsdl.org> parents: 311 diff changeset	727 if ((surface->format->BitsPerPixel) == 8) {
1101 c8a51d169579 Revert back screen centering when using c2p Patrice Mandin <patmandin@gmail.com> parents: 1094 diff changeset	728 void *destscr;
c8a51d169579 Revert back screen centering when using c2p Patrice Mandin <patmandin@gmail.com> parents: 1094 diff changeset	729 int destx;
314 bff64eba7721 * empty log message * Sam Lantinga <slouken@libsdl.org> parents: 311 diff changeset	730 int i;
bff64eba7721 * empty log message * Sam Lantinga <slouken@libsdl.org> parents: 311 diff changeset	731
1101 c8a51d169579 Revert back screen centering when using c2p Patrice Mandin <patmandin@gmail.com> parents: 1094 diff changeset	732 /* Center on destination screen */
c8a51d169579 Revert back screen centering when using c2p Patrice Mandin <patmandin@gmail.com> parents: 1094 diff changeset	733 destscr = XBIOS_screens[XBIOS_fbnum];
c8a51d169579 Revert back screen centering when using c2p Patrice Mandin <patmandin@gmail.com> parents: 1094 diff changeset	734 destscr += XBIOS_pitch * ((XBIOS_height - surface->h) >> 1);
c8a51d169579 Revert back screen centering when using c2p Patrice Mandin <patmandin@gmail.com> parents: 1094 diff changeset	735 destx = (XBIOS_width - surface->w) >> 1;
c8a51d169579 Revert back screen centering when using c2p Patrice Mandin <patmandin@gmail.com> parents: 1094 diff changeset	736 destx &= ~15;
c8a51d169579 Revert back screen centering when using c2p Patrice Mandin <patmandin@gmail.com> parents: 1094 diff changeset	737 destscr += destx;
c8a51d169579 Revert back screen centering when using c2p Patrice Mandin <patmandin@gmail.com> parents: 1094 diff changeset	738
314 bff64eba7721 * empty log message * Sam Lantinga <slouken@libsdl.org> parents: 311 diff changeset	739 for (i=0;i<numrects;i++) {
bff64eba7721 * empty log message * Sam Lantinga <slouken@libsdl.org> parents: 311 diff changeset	740 void source,destination;
bff64eba7721 * empty log message * Sam Lantinga <slouken@libsdl.org> parents: 311 diff changeset	741 int x1,x2;
bff64eba7721 * empty log message * Sam Lantinga <slouken@libsdl.org> parents: 311 diff changeset	742
bff64eba7721 * empty log message * Sam Lantinga <slouken@libsdl.org> parents: 311 diff changeset	743 x1 = rects[i].x & ~15;
319 189a6a3416c7 * empty log message * Sam Lantinga <slouken@libsdl.org> parents: 314 diff changeset	744 x2 = rects[i].x+rects[i].w;
189a6a3416c7 * empty log message * Sam Lantinga <slouken@libsdl.org> parents: 314 diff changeset	745 if (x2 & 15) {
189a6a3416c7 * empty log message * Sam Lantinga <slouken@libsdl.org> parents: 314 diff changeset	746 x2 = (x2 \| 15) +1;
189a6a3416c7 * empty log message * Sam Lantinga <slouken@libsdl.org> parents: 314 diff changeset	747 }
314 bff64eba7721 * empty log message * Sam Lantinga <slouken@libsdl.org> parents: 311 diff changeset	748
bff64eba7721 * empty log message * Sam Lantinga <slouken@libsdl.org> parents: 311 diff changeset	749 source = surface->pixels;
bff64eba7721 * empty log message * Sam Lantinga <slouken@libsdl.org> parents: 311 diff changeset	750 source += surface->pitch * rects[i].y;
bff64eba7721 * empty log message * Sam Lantinga <slouken@libsdl.org> parents: 311 diff changeset	751 source += x1;
bff64eba7721 * empty log message * Sam Lantinga <slouken@libsdl.org> parents: 311 diff changeset	752
1101 c8a51d169579 Revert back screen centering when using c2p Patrice Mandin <patmandin@gmail.com> parents: 1094 diff changeset	753 destination = destscr;
314 bff64eba7721 * empty log message * Sam Lantinga <slouken@libsdl.org> parents: 311 diff changeset	754 destination += XBIOS_pitch * rects[i].y;
bff64eba7721 * empty log message * Sam Lantinga <slouken@libsdl.org> parents: 311 diff changeset	755 destination += x1;
bff64eba7721 * empty log message * Sam Lantinga <slouken@libsdl.org> parents: 311 diff changeset	756
bff64eba7721 * empty log message * Sam Lantinga <slouken@libsdl.org> parents: 311 diff changeset	757 /* Convert chunky to planar screen */
735 abec2a842d11 Use new C2P routine Patrice Mandin <patmandin@gmail.com> parents: 712 diff changeset	758 SDL_Atari_C2pConvert(
1101 c8a51d169579 Revert back screen centering when using c2p Patrice Mandin <patmandin@gmail.com> parents: 1094 diff changeset	759 source,
c8a51d169579 Revert back screen centering when using c2p Patrice Mandin <patmandin@gmail.com> parents: 1094 diff changeset	760 destination,
c8a51d169579 Revert back screen centering when using c2p Patrice Mandin <patmandin@gmail.com> parents: 1094 diff changeset	761 x2-x1,
c8a51d169579 Revert back screen centering when using c2p Patrice Mandin <patmandin@gmail.com> parents: 1094 diff changeset	762 rects[i].h,
314 bff64eba7721 * empty log message * Sam Lantinga <slouken@libsdl.org> parents: 311 diff changeset	763 XBIOS_doubleline,
1101 c8a51d169579 Revert back screen centering when using c2p Patrice Mandin <patmandin@gmail.com> parents: 1094 diff changeset	764 surface->pitch,
c8a51d169579 Revert back screen centering when using c2p Patrice Mandin <patmandin@gmail.com> parents: 1094 diff changeset	765 XBIOS_pitch
314 bff64eba7721 * empty log message * Sam Lantinga <slouken@libsdl.org> parents: 311 diff changeset	766 );
bff64eba7721 * empty log message * Sam Lantinga <slouken@libsdl.org> parents: 311 diff changeset	767 }
bff64eba7721 * empty log message * Sam Lantinga <slouken@libsdl.org> parents: 311 diff changeset	768 }
bff64eba7721 * empty log message * Sam Lantinga <slouken@libsdl.org> parents: 311 diff changeset	769
735 abec2a842d11 Use new C2P routine Patrice Mandin <patmandin@gmail.com> parents: 712 diff changeset	770 #ifndef DEBUG_VIDEO_XBIOS
314 bff64eba7721 * empty log message * Sam Lantinga <slouken@libsdl.org> parents: 311 diff changeset	771 Setscreen(-1,XBIOS_screens[XBIOS_fbnum],-1);
735 abec2a842d11 Use new C2P routine Patrice Mandin <patmandin@gmail.com> parents: 712 diff changeset	772 #endif
314 bff64eba7721 * empty log message * Sam Lantinga <slouken@libsdl.org> parents: 311 diff changeset	773 Vsync();
bff64eba7721 * empty log message * Sam Lantinga <slouken@libsdl.org> parents: 311 diff changeset	774
bff64eba7721 * empty log message * Sam Lantinga <slouken@libsdl.org> parents: 311 diff changeset	775 if ((surface->flags & SDL_DOUBLEBUF) == SDL_DOUBLEBUF) {
bff64eba7721 * empty log message * Sam Lantinga <slouken@libsdl.org> parents: 311 diff changeset	776 XBIOS_fbnum ^= 1;
bff64eba7721 * empty log message * Sam Lantinga <slouken@libsdl.org> parents: 311 diff changeset	777 if ((surface->format->BitsPerPixel) > 8) {
bff64eba7721 * empty log message * Sam Lantinga <slouken@libsdl.org> parents: 311 diff changeset	778 surface->pixels=XBIOS_screens[XBIOS_fbnum];
bff64eba7721 * empty log message * Sam Lantinga <slouken@libsdl.org> parents: 311 diff changeset	779 }
bff64eba7721 * empty log message * Sam Lantinga <slouken@libsdl.org> parents: 311 diff changeset	780 }
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	781 }
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	782
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	783 static int XBIOS_FlipHWSurface(_THIS, SDL_Surface *surface)
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	784 {
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	785 if ((surface->format->BitsPerPixel) == 8) {
1101 c8a51d169579 Revert back screen centering when using c2p Patrice Mandin <patmandin@gmail.com> parents: 1094 diff changeset	786 void *destscr;
c8a51d169579 Revert back screen centering when using c2p Patrice Mandin <patmandin@gmail.com> parents: 1094 diff changeset	787 int destx;
c8a51d169579 Revert back screen centering when using c2p Patrice Mandin <patmandin@gmail.com> parents: 1094 diff changeset	788
c8a51d169579 Revert back screen centering when using c2p Patrice Mandin <patmandin@gmail.com> parents: 1094 diff changeset	789 /* Center on destination screen */
c8a51d169579 Revert back screen centering when using c2p Patrice Mandin <patmandin@gmail.com> parents: 1094 diff changeset	790 destscr = XBIOS_screens[XBIOS_fbnum];
c8a51d169579 Revert back screen centering when using c2p Patrice Mandin <patmandin@gmail.com> parents: 1094 diff changeset	791 destscr += XBIOS_pitch * ((XBIOS_height - surface->h) >> 1);
c8a51d169579 Revert back screen centering when using c2p Patrice Mandin <patmandin@gmail.com> parents: 1094 diff changeset	792 destx = (XBIOS_width - surface->w) >> 1;
c8a51d169579 Revert back screen centering when using c2p Patrice Mandin <patmandin@gmail.com> parents: 1094 diff changeset	793 destx &= ~15;
c8a51d169579 Revert back screen centering when using c2p Patrice Mandin <patmandin@gmail.com> parents: 1094 diff changeset	794 destscr += destx;
c8a51d169579 Revert back screen centering when using c2p Patrice Mandin <patmandin@gmail.com> parents: 1094 diff changeset	795
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	796 /* Convert chunky to planar screen */
735 abec2a842d11 Use new C2P routine Patrice Mandin <patmandin@gmail.com> parents: 712 diff changeset	797 SDL_Atari_C2pConvert(
1101 c8a51d169579 Revert back screen centering when using c2p Patrice Mandin <patmandin@gmail.com> parents: 1094 diff changeset	798 surface->pixels,
c8a51d169579 Revert back screen centering when using c2p Patrice Mandin <patmandin@gmail.com> parents: 1094 diff changeset	799 destscr,
c8a51d169579 Revert back screen centering when using c2p Patrice Mandin <patmandin@gmail.com> parents: 1094 diff changeset	800 surface->w,
c8a51d169579 Revert back screen centering when using c2p Patrice Mandin <patmandin@gmail.com> parents: 1094 diff changeset	801 surface->h,
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	802 XBIOS_doubleline,
1101 c8a51d169579 Revert back screen centering when using c2p Patrice Mandin <patmandin@gmail.com> parents: 1094 diff changeset	803 surface->pitch,
c8a51d169579 Revert back screen centering when using c2p Patrice Mandin <patmandin@gmail.com> parents: 1094 diff changeset	804 XBIOS_pitch
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	805 );
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	806 }
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	807
735 abec2a842d11 Use new C2P routine Patrice Mandin <patmandin@gmail.com> parents: 712 diff changeset	808 #ifndef DEBUG_VIDEO_XBIOS
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	809 Setscreen(-1,XBIOS_screens[XBIOS_fbnum],-1);
735 abec2a842d11 Use new C2P routine Patrice Mandin <patmandin@gmail.com> parents: 712 diff changeset	810 #endif
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	811 Vsync();
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	812
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	813 if ((surface->flags & SDL_DOUBLEBUF) == SDL_DOUBLEBUF) {
311 2847fd83f115 Date: Fri, 15 Mar 2002 18:24:59 GMT+1 Sam Lantinga <slouken@libsdl.org> parents: 297 diff changeset	814 XBIOS_fbnum ^= 1;
2847fd83f115 Date: Fri, 15 Mar 2002 18:24:59 GMT+1 Sam Lantinga <slouken@libsdl.org> parents: 297 diff changeset	815 if ((surface->format->BitsPerPixel) > 8) {
2847fd83f115 Date: Fri, 15 Mar 2002 18:24:59 GMT+1 Sam Lantinga <slouken@libsdl.org> parents: 297 diff changeset	816 surface->pixels=XBIOS_screens[XBIOS_fbnum];
2847fd83f115 Date: Fri, 15 Mar 2002 18:24:59 GMT+1 Sam Lantinga <slouken@libsdl.org> parents: 297 diff changeset	817 }
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	818 }
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	819
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	820 return(0);
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	821 }
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	822
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	823 static int XBIOS_SetColors(_THIS, int firstcolor, int ncolors, SDL_Color *colors)
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	824 {
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	825 int i;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	826 int r,v,b;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	827
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	828 switch( XBIOS_cvdo >> 16) {
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	829 case VDO_ST:
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	830 case VDO_STE:
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	831 for (i=0;i<ncolors;i++)
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	832 {
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	833 r = colors[i].r;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	834 v = colors[i].g;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	835 b = colors[i].b;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	836
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	837 TT_palette[firstcolor+i]=((r30)+(v59)+(b*11))/100;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	838 }
735 abec2a842d11 Use new C2P routine Patrice Mandin <patmandin@gmail.com> parents: 712 diff changeset	839 SDL_Atari_C2pConvert4_pal(TT_palette); /* convert the lighting */
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	840 break;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	841 case VDO_TT:
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	842 for(i = 0; i < ncolors; i++)
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	843 {
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	844 r = colors[i].r;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	845 v = colors[i].g;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	846 b = colors[i].b;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	847
1102 f0919504adfd Revert back change between 1.29 and 1.30 Patrice Mandin <patmandin@gmail.com> parents: 1101 diff changeset	848 TT_palette[i]=((r>>4)<<8)\|((v>>4)<<4)\|(b>>4);
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	849 }
735 abec2a842d11 Use new C2P routine Patrice Mandin <patmandin@gmail.com> parents: 712 diff changeset	850 #ifndef DEBUG_VIDEO_XBIOS
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	851 EsetPalette(firstcolor,ncolors,TT_palette);
735 abec2a842d11 Use new C2P routine Patrice Mandin <patmandin@gmail.com> parents: 712 diff changeset	852 #endif
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	853 break;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	854 case VDO_F30:
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	855 for(i = 0; i < ncolors; i++)
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	856 {
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	857 r = colors[i].r;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	858 v = colors[i].g;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	859 b = colors[i].b;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	860
1102 f0919504adfd Revert back change between 1.29 and 1.30 Patrice Mandin <patmandin@gmail.com> parents: 1101 diff changeset	861 F30_palette[i]=(r<<16)\|(v<<8)\|b;
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	862 }
735 abec2a842d11 Use new C2P routine Patrice Mandin <patmandin@gmail.com> parents: 712 diff changeset	863 #ifndef DEBUG_VIDEO_XBIOS
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	864 VsetRGB(firstcolor,ncolors,F30_palette);
735 abec2a842d11 Use new C2P routine Patrice Mandin <patmandin@gmail.com> parents: 712 diff changeset	865 #endif
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	866 break;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	867 }
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	868
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	869 return(1);
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	870 }
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	871
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	872 /* Note: If we are terminated, this could be called in the middle of
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	873 another SDL video routine -- notably UpdateRects.
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	874 */
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	875 static void XBIOS_VideoQuit(_THIS)
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	876 {
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	877 int i,j;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	878
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	879 Atari_ShutdownEvents();
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	880
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	881 /* Restore video mode and palette */
801 ff1058d642dc Video modes must be sorted by Y size, for SDL_GetVideoMode() to operate properly Patrice Mandin <patmandin@gmail.com> parents: 797 diff changeset	882 #ifndef DEBUG_VIDEO_XBIOS
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	883 switch(XBIOS_cvdo >> 16) {
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	884 case VDO_ST:
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	885 case VDO_STE:
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	886 Setscreen(-1,XBIOS_oldvbase,XBIOS_oldvmode);
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	887 if (XBIOS_oldnumcol) {
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	888 Setpalette(XBIOS_oldpalette);
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	889 }
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	890 break;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	891 case VDO_TT:
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	892 Setscreen(-1,XBIOS_oldvbase,-1);
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	893 EsetShift(XBIOS_oldvmode);
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	894 if (XBIOS_oldnumcol) {
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	895 EsetPalette(0, XBIOS_oldnumcol, XBIOS_oldpalette);
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	896 }
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	897 break;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	898 case VDO_F30:
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	899 Setscreen(-1, XBIOS_oldvbase, -1);
1064 fba6b67b4d60 Add Centscreen extended modes support Patrice Mandin <patmandin@gmail.com> parents: 1061 diff changeset	900 if (XBIOS_centscreen) {
fba6b67b4d60 Add Centscreen extended modes support Patrice Mandin <patmandin@gmail.com> parents: 1061 diff changeset	901 SDL_XBIOS_CentscreenRestore(this, XBIOS_oldvmode);
fba6b67b4d60 Add Centscreen extended modes support Patrice Mandin <patmandin@gmail.com> parents: 1061 diff changeset	902 } else {
fba6b67b4d60 Add Centscreen extended modes support Patrice Mandin <patmandin@gmail.com> parents: 1061 diff changeset	903 Vsetmode(XBIOS_oldvmode);
fba6b67b4d60 Add Centscreen extended modes support Patrice Mandin <patmandin@gmail.com> parents: 1061 diff changeset	904 }
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	905 if (XBIOS_oldnumcol) {
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	906 VsetRGB(0, XBIOS_oldnumcol, XBIOS_oldpalette);
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	907 }
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	908 break;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	909 }
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	910 Vsync();
801 ff1058d642dc Video modes must be sorted by Y size, for SDL_GetVideoMode() to operate properly Patrice Mandin <patmandin@gmail.com> parents: 797 diff changeset	911 #endif
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	912
992 0324ce32b2d9 Keep current OpenGL context when possible Patrice Mandin <patmandin@gmail.com> parents: 991 diff changeset	913
0324ce32b2d9 Keep current OpenGL context when possible Patrice Mandin <patmandin@gmail.com> parents: 991 diff changeset	914 #ifdef HAVE_OPENGL
0324ce32b2d9 Keep current OpenGL context when possible Patrice Mandin <patmandin@gmail.com> parents: 991 diff changeset	915 if (gl_active) {
0324ce32b2d9 Keep current OpenGL context when possible Patrice Mandin <patmandin@gmail.com> parents: 991 diff changeset	916 SDL_AtariGL_Quit(this, SDL_TRUE);
0324ce32b2d9 Keep current OpenGL context when possible Patrice Mandin <patmandin@gmail.com> parents: 991 diff changeset	917 }
0324ce32b2d9 Keep current OpenGL context when possible Patrice Mandin <patmandin@gmail.com> parents: 991 diff changeset	918 #endif
0324ce32b2d9 Keep current OpenGL context when possible Patrice Mandin <patmandin@gmail.com> parents: 991 diff changeset	919
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	920 if (XBIOS_oldpalette) {
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	921 free(XBIOS_oldpalette);
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	922 XBIOS_oldpalette=NULL;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	923 }
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	924 XBIOS_FreeBuffers(this);
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	925
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	926 /* Free mode list */
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	927 for (j=0;j<NUM_MODELISTS;j++) {
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	928 for (i=0;i<SDL_NUMMODES;i++) {
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	929 if (SDL_modelist[j][i]!=NULL) {
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	930 free(SDL_modelist[j][i]);
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	931 SDL_modelist[j][i]=NULL;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	932 }
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	933 }
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	934 }
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	935
1042 0e7218843cfb Dynamically create list of video modes, easier to add new ones Patrice Mandin <patmandin@gmail.com> parents: 1040 diff changeset	936 if (XBIOS_modelist) {
0e7218843cfb Dynamically create list of video modes, easier to add new ones Patrice Mandin <patmandin@gmail.com> parents: 1040 diff changeset	937 free(XBIOS_modelist);
0e7218843cfb Dynamically create list of video modes, easier to add new ones Patrice Mandin <patmandin@gmail.com> parents: 1040 diff changeset	938 XBIOS_nummodes=0;
0e7218843cfb Dynamically create list of video modes, easier to add new ones Patrice Mandin <patmandin@gmail.com> parents: 1040 diff changeset	939 XBIOS_modelist=NULL;
0e7218843cfb Dynamically create list of video modes, easier to add new ones Patrice Mandin <patmandin@gmail.com> parents: 1040 diff changeset	940 }
0e7218843cfb Dynamically create list of video modes, easier to add new ones Patrice Mandin <patmandin@gmail.com> parents: 1040 diff changeset	941
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	942 this->screen->pixels = NULL;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	943 }
978 3b1ba22f5a28 Add support for OpenGL on Atari using OSMesa, the offscreen rendering driver from Mesa Patrice Mandin <patmandin@gmail.com> parents: 972 diff changeset	944
3b1ba22f5a28 Add support for OpenGL on Atari using OSMesa, the offscreen rendering driver from Mesa Patrice Mandin <patmandin@gmail.com> parents: 972 diff changeset	945 #ifdef HAVE_OPENGL
3b1ba22f5a28 Add support for OpenGL on Atari using OSMesa, the offscreen rendering driver from Mesa Patrice Mandin <patmandin@gmail.com> parents: 972 diff changeset	946
3b1ba22f5a28 Add support for OpenGL on Atari using OSMesa, the offscreen rendering driver from Mesa Patrice Mandin <patmandin@gmail.com> parents: 972 diff changeset	947 static void XBIOS_GL_SwapBuffers(_THIS)
3b1ba22f5a28 Add support for OpenGL on Atari using OSMesa, the offscreen rendering driver from Mesa Patrice Mandin <patmandin@gmail.com> parents: 972 diff changeset	948 {
993 2662da16d668 Forgot to flush OpenGL buffer using glFinish Patrice Mandin <patmandin@gmail.com> parents: 992 diff changeset	949 SDL_AtariGL_SwapBuffers(this);
2662da16d668 Forgot to flush OpenGL buffer using glFinish Patrice Mandin <patmandin@gmail.com> parents: 992 diff changeset	950 XBIOS_FlipHWSurface(this, this->screen);
2662da16d668 Forgot to flush OpenGL buffer using glFinish Patrice Mandin <patmandin@gmail.com> parents: 992 diff changeset	951 SDL_AtariGL_MakeCurrent(this);
978 3b1ba22f5a28 Add support for OpenGL on Atari using OSMesa, the offscreen rendering driver from Mesa Patrice Mandin <patmandin@gmail.com> parents: 972 diff changeset	952 }
3b1ba22f5a28 Add support for OpenGL on Atari using OSMesa, the offscreen rendering driver from Mesa Patrice Mandin <patmandin@gmail.com> parents: 972 diff changeset	953
3b1ba22f5a28 Add support for OpenGL on Atari using OSMesa, the offscreen rendering driver from Mesa Patrice Mandin <patmandin@gmail.com> parents: 972 diff changeset	954 #endif

Mercurial > sdl-ios-xcode

annotate src/video/xbios/SDL_xbios.c @ 1238:1901fea5edac