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

annotate src/video/gem/SDL_gemvideo.c @ 736:028e03e273c8

Use new C2P routine + corrections for iconification window

author	Patrice Mandin <patmandin@gmail.com>
date	Wed, 12 Nov 2003 18:49:29 +0000
parents	0136d21b7764
children	7e4347dd2f9c

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
297 f6ffac90895c Updated copyright information for 2002 Sam Lantinga <slouken@libsdl.org> parents: 281 diff changeset	3 Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002 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 /*
736 028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	29 GEM video driver
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	30
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	31 Patrice Mandin
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	32 and work from
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	33 Olivier Landemarre, Johan Klockars, Xavier Joubert, Claude Attard
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	34 */
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	35
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	36 #include <stdio.h>
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	37 #include <stdlib.h>
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	38 #include <string.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 */
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	41 #include <gem.h>
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	42 #include <gemx.h>
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	43 #include <mint/osbind.h>
557 0ce5a68278fd Updated Atari port for new system headers (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: 508 diff changeset	44 #include <mint/cookie.h>
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	45
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	46 #include "SDL.h"
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	47 #include "SDL_error.h"
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	48 #include "SDL_video.h"
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	49 #include "SDL_mouse.h"
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	50 #include "SDL_sysvideo.h"
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	51 #include "SDL_pixels_c.h"
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	52 #include "SDL_events_c.h"
319 189a6a3416c7 * empty log message * Sam Lantinga <slouken@libsdl.org> parents: 305 diff changeset	53 #include "SDL_cursor_c.h"
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	54
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	55 #include "SDL_ataric2p_s.h"
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	56 #include "SDL_atarieddi_s.h"
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	57 #include "SDL_atarimxalloc_c.h"
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	58 #include "SDL_gemvideo.h"
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	59 #include "SDL_gemevents_c.h"
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	60 #include "SDL_gemmouse_c.h"
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	61 #include "SDL_gemwm_c.h"
305 9c6613983e85 Atari port cleanups from Patrice Sam Lantinga <slouken@libsdl.org> parents: 297 diff changeset	62 #include "SDL_xbiosevents_c.h"
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	63
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	64 /* Defines */
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	65
736 028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	66 /#define DEBUG_VIDEO_GEM 1/
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	67
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	68 #define GEM_VID_DRIVER_NAME "gem"
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	69
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	70 /* Variables */
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	71
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	72 static unsigned char vdi_index[256] = {
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	73 0, 2, 3, 6, 4, 7, 5, 8,
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	74 9, 10, 11, 14, 12, 15, 13, 255
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	75 };
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	76
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	77 static const unsigned char empty_name[]="";
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	78
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	79 /* Initialization/Query functions */
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	80 static int GEM_VideoInit(_THIS, SDL_PixelFormat *vformat);
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	81 static SDL_Rect *GEM_ListModes(_THIS, SDL_PixelFormat format, Uint32 flags);
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	82 static SDL_Surface GEM_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	83 static int GEM_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	84 static void GEM_VideoQuit(_THIS);
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	85
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	86 /* Hardware surface functions */
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	87 static int GEM_AllocHWSurface(_THIS, SDL_Surface *surface);
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	88 static int GEM_LockHWSurface(_THIS, SDL_Surface *surface);
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	89 static int GEM_FlipHWSurface(_THIS, SDL_Surface *surface);
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	90 static void GEM_UnlockHWSurface(_THIS, SDL_Surface *surface);
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	91 static void GEM_FreeHWSurface(_THIS, SDL_Surface *surface);
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	92 static void GEM_UpdateRects(_THIS, int numrects, SDL_Rect *rects);
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	93 #if 0
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	94 static int GEM_ToggleFullScreen(_THIS, int on);
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	95 #endif
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	96
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	97 /* Internal functions */
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	98 static void GEM_FreeBuffers(_THIS);
319 189a6a3416c7 * empty log message * Sam Lantinga <slouken@libsdl.org> parents: 305 diff changeset	99 static void GEM_ClearScreen(_THIS);
736 028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	100 static void GEM_ClearRect(_THIS, short *rect);
319 189a6a3416c7 * empty log message * Sam Lantinga <slouken@libsdl.org> parents: 305 diff changeset	101 static void GEM_LockScreen(_THIS);
189a6a3416c7 * empty log message * Sam Lantinga <slouken@libsdl.org> parents: 305 diff changeset	102 static void GEM_UnlockScreen(_THIS);
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	103 static void refresh_window(_THIS, int winhandle, short *rect);
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	104
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	105 /* GEM driver bootstrap functions */
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	106
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	107 static int GEM_Available(void)
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	108 {
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	109 /* Test if AES available */
557 0ce5a68278fd Updated Atari port for new system headers (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: 508 diff changeset	110 if (appl_init() == -1)
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	111 return 0;
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 appl_exit();
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	114 return 1;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	115 }
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 static void GEM_DeleteDevice(SDL_VideoDevice *device)
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	118 {
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	119 free(device->hidden);
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	120 free(device);
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	121 }
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	122
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	123 static SDL_VideoDevice *GEM_CreateDevice(int devindex)
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	124 {
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	125 SDL_VideoDevice *device;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	126
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	127 /* Initialize all variables that we clean on shutdown */
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	128 device = (SDL_VideoDevice *)malloc(sizeof(SDL_VideoDevice));
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	129 if ( device ) {
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	130 memset(device, 0, (sizeof *device));
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	131 device->hidden = (struct SDL_PrivateVideoData *)
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	132 malloc((sizeof *device->hidden));
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	133 }
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	134 if ( (device == NULL) \|\| (device->hidden == NULL) ) {
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	135 SDL_OutOfMemory();
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	136 if ( device ) {
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	137 free(device);
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	138 }
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 memset(device->hidden, 0, (sizeof *device->hidden));
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	142
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	143 /* Set the function pointers */
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	144 device->VideoInit = GEM_VideoInit;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	145 device->ListModes = GEM_ListModes;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	146 device->SetVideoMode = GEM_SetVideoMode;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	147 device->SetColors = GEM_SetColors;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	148 device->UpdateRects = NULL /GEM_UpdateRects/;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	149 device->VideoQuit = GEM_VideoQuit;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	150 device->AllocHWSurface = GEM_AllocHWSurface;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	151 device->LockHWSurface = GEM_LockHWSurface;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	152 device->UnlockHWSurface = GEM_UnlockHWSurface;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	153 device->FlipHWSurface = GEM_FlipHWSurface;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	154 device->FreeHWSurface = GEM_FreeHWSurface;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	155 device->ToggleFullScreen = NULL /GEM_ToggleFullScreen/;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	156
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	157 /* Window manager */
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	158 device->SetCaption = GEM_SetCaption;
736 028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	159 device->SetIcon = GEM_SetIcon;
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	160 device->IconifyWindow = GEM_IconifyWindow;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	161 device->GrabInput = GEM_GrabInput;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	162
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	163 /* Events */
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	164 device->InitOSKeymap = GEM_InitOSKeymap;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	165 device->PumpEvents = GEM_PumpEvents;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	166
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	167 /* Mouse */
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	168 device->FreeWMCursor = GEM_FreeWMCursor;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	169 device->CreateWMCursor = GEM_CreateWMCursor;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	170 device->ShowWMCursor = GEM_ShowWMCursor;
319 189a6a3416c7 * empty log message * Sam Lantinga <slouken@libsdl.org> parents: 305 diff changeset	171 device->WarpWMCursor = NULL /GEM_WarpWMCursor/;
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	172 device->CheckMouseMode = GEM_CheckMouseMode;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	173
319 189a6a3416c7 * empty log message * Sam Lantinga <slouken@libsdl.org> parents: 305 diff changeset	174 /* Joystick + Mouse relative motion */
189a6a3416c7 * empty log message * Sam Lantinga <slouken@libsdl.org> parents: 305 diff changeset	175 SDL_AtariXbios_InstallVectors(ATARI_XBIOS_MOUSEEVENTS\|ATARI_XBIOS_JOYSTICKEVENTS);
305 9c6613983e85 Atari port cleanups from Patrice Sam Lantinga <slouken@libsdl.org> parents: 297 diff changeset	176
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	177 device->free = GEM_DeleteDevice;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	178
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	179 return device;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	180 }
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	181
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	182 VideoBootStrap GEM_bootstrap = {
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	183 GEM_VID_DRIVER_NAME, "Atari GEM video driver",
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	184 GEM_Available, GEM_CreateDevice
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	185 };
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	186
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	187 static void VDI_ReadExtInfo(_THIS, short *work_out)
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	188 {
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	189 unsigned long EdDI_version;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	190 unsigned long cookie_EdDI;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	191 Uint32 num_colours;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	192 Uint16 clut_type, num_bits;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	193
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	194 /* Read EdDI informations */
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	195 if (Getcookie(C_EdDI, &cookie_EdDI) == C_NOTFOUND) {
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	196 return;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	197 }
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	198
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	199 EdDI_version = Atari_get_EdDI_version( (void *)cookie_EdDI);
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	200
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	201 vq_scrninfo(VDI_handle, work_out);
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	202
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	203 VDI_format = work_out[0];
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	204 clut_type = work_out[1];
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	205 num_bits = work_out[2];
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	206 num_colours = ((Uint32 ) &work_out[3]);
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	207
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	208 /* With EdDI>=1.1, we can have screen pitch, address and format
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	209 * so we can directly write to screen without using vro_cpyfm
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	210 */
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	211 if (EdDI_version >= EDDI_11) {
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	212 VDI_pitch = work_out[5];
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	213 VDI_screen = (void ) ((unsigned long *) &work_out[6]);
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	214
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	215 switch(num_colours) {
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	216 case 32768UL:
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	217 if (work_out[14] & (1<<7)) {
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	218 /* Little endian */
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	219 if (work_out[14] & (1<<1)) {
736 028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	220 VDI_FBMASK(1<<13, 31<<3, (3<<14)\|7, 31<<8);
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	221 } else {
736 028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	222 VDI_FBMASK(1<<7, 31<<2, (7<<13)\|3, 31<<8);
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	223 }
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	224 } else {
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	225 /* Big endian */
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	226 if (work_out[14] & (1<<1)) {
736 028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	227 VDI_FBMASK(1<<5, 31<<11, 31<<6, 31);
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	228 } else {
736 028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	229 VDI_FBMASK(1<<15, 31<<10, 31<<5, 31);
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	230 }
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	231 }
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	232 break;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	233 case 65536UL:
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	234 if (work_out[14] & (1<<7)) {
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	235 /* Little endian */
736 028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	236 VDI_FBMASK(0, 31<<3, (7<<13)\|7, 31<<8);
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	237 } else {
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	238 /* Big endian */
736 028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	239 VDI_FBMASK(0, 31<<11, 63<<5, 31);
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	240 }
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	241 break;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	242 case 16777216UL:
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	243 if (work_out[14] & (1<<7)) {
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	244 /* Little endian */
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	245 switch(num_bits) {
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	246 case 24:
736 028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	247 VDI_FBMASK(0, 255, 255<<8, 255<<16);
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	248 break;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	249 case 32:
736 028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	250 VDI_FBMASK(255, 255<<8, 255<<16, 255<<24);
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	251 break;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	252 }
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	253 } else {
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	254 /* Big endian */
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	255 switch(num_bits) {
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	256 case 24:
736 028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	257 VDI_FBMASK(0, 255<<16, 255<<8, 255);
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	258 break;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	259 case 32:
736 028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	260 VDI_FBMASK(255<<24, 255<<16, 255<<8, 255);
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	261 break;
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 }
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	264 break;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	265 }
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
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	268 switch(clut_type) {
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	269 case VDI_CLUT_HARDWARE:
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	270 {
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	271 int i;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	272 Uint16 *tmp_p;
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 tmp_p = (Uint16 *)&work_out[16];
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	275
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	276 for (i=0;i<256;i++) {
319 189a6a3416c7 * empty log message * Sam Lantinga <slouken@libsdl.org> parents: 305 diff changeset	277 vdi_index[*tmp_p++] = i;
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	278 }
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	279 }
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	280 break;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	281 case VDI_CLUT_SOFTWARE:
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	282 if (EdDI_version < EDDI_11) {
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	283 int component; /* red, green, blue, alpha, overlay */
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	284 int num_bit;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	285 unsigned short *tmp_p;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	286
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	287 /* We can build masks with info here */
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	288 tmp_p = (unsigned short *) &work_out[16];
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	289 for (component=0;component<5;component++) {
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	290 for (num_bit=0;num_bit<16;num_bit++) {
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	291 unsigned short valeur;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	292
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	293 valeur = *tmp_p++;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	294
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	295 if (valeur == 0xffff) {
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	296 continue;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	297 }
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	298
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	299 switch(component) {
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	300 case 0:
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	301 VDI_redmask \|= 1<< valeur;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	302 break;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	303 case 1:
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	304 VDI_greenmask \|= 1<< valeur;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	305 break;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	306 case 2:
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	307 VDI_bluemask \|= 1<< valeur;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	308 break;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	309 case 3:
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	310 VDI_alphamask \|= 1<< valeur;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	311 break;
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 }
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	314 }
319 189a6a3416c7 * empty log message * Sam Lantinga <slouken@libsdl.org> parents: 305 diff changeset	315 }
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	316
319 189a6a3416c7 * empty log message * Sam Lantinga <slouken@libsdl.org> parents: 305 diff changeset	317 /* Remove lower green bits for Intel endian screen */
189a6a3416c7 * empty log message * Sam Lantinga <slouken@libsdl.org> parents: 305 diff changeset	318 if ((VDI_greenmask == ((7<<13)\|3)) \|\| (VDI_greenmask == ((7<<13)\|7))) {
189a6a3416c7 * empty log message * Sam Lantinga <slouken@libsdl.org> parents: 305 diff changeset	319 VDI_greenmask &= ~(7<<13);
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	320 }
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	321 break;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	322 case VDI_CLUT_NONE:
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	323 break;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	324 }
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	325 }
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 int GEM_VideoInit(_THIS, SDL_PixelFormat *vformat)
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	328 {
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	329 int i;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	330 short work_in[12], work_out[272], dummy;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	331
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	332 /* Open AES (Application Environment Services) */
557 0ce5a68278fd Updated Atari port for new system headers (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: 508 diff changeset	333 if (appl_init() == -1) {
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	334 fprintf(stderr,"Can not open AES\n");
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	335 return 1;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	336 }
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	337
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	338 /* Read version and features */
736 028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	339 GEM_version = aes_global[0];
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	340 if (GEM_version >= 0x0410) {
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	341 short ap_gout[4], errorcode;
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	342
736 028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	343 #ifdef DEBUG_VIDEO_GEM
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	344 printf("sdl:video:gem: AES %02x.%02x\n", (GEM_version>>8) & 0xff, GEM_version & 0xff);
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	345 #endif
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	346
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	347 GEM_wfeatures=0;
736 028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	348 errorcode=appl_getinfo(AES_WINDOW, &ap_gout[0], &ap_gout[1], &ap_gout[2], &ap_gout[3]);
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	349 #ifdef DEBUG_VIDEO_GEM
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	350 printf("sdl:video:gem: appl_getinfo() returned 0x%04x\n", errorcode);
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	351 #endif
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	352
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	353 if (errorcode==0) {
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	354 GEM_wfeatures=ap_gout[0];
736 028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	355
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	356 #ifdef DEBUG_VIDEO_GEM
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	357 printf("sdl:video:gem: AES wind_*() modes: 0x%04x\n", GEM_wfeatures);
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	358 printf("sdl:video:gem: AES window behaviours: 0x%04x\n", ap_gout[3]);
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	359 } else {
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	360 printf("sdl:video:gem: apgout[]={0x%04x,0x%04x,0x%04x,0x%04x}\n",
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	361 ap_gout[0], ap_gout[1], ap_gout[1], ap_gout[3]
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	362 );
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	363 #endif
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	364 }
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	365 }
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	366
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	367 /* Ask VDI physical workstation handle opened by AES */
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	368 VDI_handle = graf_handle(&dummy, &dummy, &dummy, &dummy);
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	369 if (VDI_handle<1) {
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	370 fprintf(stderr,"Wrong VDI handle %d returned by AES\n",VDI_handle);
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	371 return 1;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	372 }
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	373
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	374 /* Open virtual VDI workstation */
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	375 work_in[0]=Getrez()+2;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	376 for(i = 1; i < 10; i++)
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	377 work_in[i] = 1;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	378 work_in[10] = 2;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	379
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	380 v_opnvwk(work_in, &VDI_handle, work_out);
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	381 if (VDI_handle == 0) {
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	382 fprintf(stderr,"Can not open VDI virtual workstation\n");
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	383 return 1;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	384 }
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	385
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	386 /* Read fullscreen size */
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	387 VDI_w = work_out[0] + 1;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	388 VDI_h = work_out[1] + 1;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	389
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	390 /* Read desktop size and position */
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	391 if (!wind_get(DESKTOP_HANDLE, WF_WORKXYWH, &GEM_desk_x, &GEM_desk_y, &GEM_desk_w, &GEM_desk_h)) {
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	392 fprintf(stderr,"Can not read desktop properties\n");
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	393 return 1;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	394 }
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 /* Read bit depth */
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	397 vq_extnd(VDI_handle, 1, work_out);
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	398 VDI_bpp = work_out[4];
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	399 VDI_oldnumcolors=0;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	400
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	401 switch(VDI_bpp) {
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	402 case 8:
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	403 VDI_pixelsize=1;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	404 break;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	405 case 15:
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	406 case 16:
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	407 VDI_pixelsize=2;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	408 break;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	409 case 24:
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	410 VDI_pixelsize=3;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	411 break;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	412 case 32:
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	413 VDI_pixelsize=4;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	414 break;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	415 default:
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	416 fprintf(stderr,"%d bits colour depth not supported\n",VDI_bpp);
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	417 return 1;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	418 }
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	419
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	420 /* Setup hardware -> VDI palette mapping */
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	421 for(i = 16; i < 255; i++) {
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	422 vdi_index[i] = i;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	423 }
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	424 vdi_index[255] = 1;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	425
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	426 /* Save current palette */
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	427 if (VDI_bpp>8) {
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	428 VDI_oldnumcolors=1<<8;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	429 } else {
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	430 VDI_oldnumcolors=1<<VDI_bpp;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	431 }
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	432
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	433 for(i = 0; i < VDI_oldnumcolors; i++) {
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	434 short rgb[3];
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	435
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	436 vq_color(VDI_handle, i, 0, rgb);
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	437
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	438 VDI_oldpalette[i][0] = rgb[0];
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	439 VDI_oldpalette[i][1] = rgb[1];
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	440 VDI_oldpalette[i][2] = rgb[2];
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	441 }
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	442
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	443 /* Setup screen info */
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	444 GEM_title_name = empty_name;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	445 GEM_icon_name = empty_name;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	446
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	447 GEM_handle = -1;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	448 GEM_locked = SDL_FALSE;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	449 GEM_win_fulled = SDL_FALSE;
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 VDI_screen = NULL;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	452 VDI_ReadExtInfo(this, work_out);
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	453 if (VDI_screen == NULL) {
319 189a6a3416c7 * empty log message * Sam Lantinga <slouken@libsdl.org> parents: 305 diff changeset	454 VDI_pitch = VDI_w * VDI_pixelsize;
736 028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	455 VDI_format = VDI_FORMAT_PACK;
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	456 if (VDI_bpp <= 8) {
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	457 VDI_format = VDI_FORMAT_INTER;
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	458 }
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	459 VDI_redmask = VDI_greenmask = VDI_bluemask = VDI_alphamask = 0;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	460 }
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 /* Setup destination mfdb */
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	463 VDI_dst_mfdb.fd_addr = NULL;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	464
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	465 /* Update hardware info */
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	466 this->info.hw_available = 0;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	467 this->info.video_mem = 0;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	468
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	469 /* Determine the screen depth */
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	470 /* we change this during the SDL_SetVideoMode implementation... */
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	471 vformat->BitsPerPixel = VDI_bpp;
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 /* Set mouse cursor to arrow */
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	474 graf_mouse(ARROW, NULL);
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 /* Init chunky to planar routine */
736 028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	477 SDL_Atari_C2pConvert = SDL_Atari_C2pConvert8;
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	478
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	479 /* Setup VDI fill functions */
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	480 vsf_color(VDI_handle,0);
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	481 vsf_interior(VDI_handle,1);
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	482 vsf_perimeter(VDI_handle,0);
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	483
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	484 #ifdef DEBUG_VIDEO_GEM
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	485 printf("sdl:video:gem: VideoInit(): done\n");
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	486 #endif
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	487
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	488 /* We're done! */
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	489 return(0);
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	490 }
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	491
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	492 SDL_Rect *GEM_ListModes(_THIS, SDL_PixelFormat format, Uint32 flags)
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 if (format->BitsPerPixel == VDI_bpp) {
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	495 return((SDL_Rect **)-1);
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	496 } else {
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	497 return ((SDL_Rect **)NULL);
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	498 }
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 static void GEM_FreeBuffers(_THIS)
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	502 {
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	503 /* Release buffer */
736 028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	504 if ( GEM_buffer2 ) {
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	505 free( GEM_buffer2 );
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	506 GEM_buffer2=NULL;
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	507 }
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	508
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	509 if ( GEM_buffer1 ) {
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	510 free( GEM_buffer1 );
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	511 GEM_buffer1=NULL;
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	512 }
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	513
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	514 /* Destroy window */
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	515 if (GEM_handle>=0) {
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	516 wind_close(GEM_handle);
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	517 wind_delete(GEM_handle);
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	518 GEM_handle=-1;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	519 }
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	520 }
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	521
736 028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	522 static void GEM_ClearRect(_THIS, short *rect)
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	523 {
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	524 short oldrgb[3], rgb[3]={0,0,0};
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	525
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	526 vq_color(VDI_handle, vdi_index[0], 0, oldrgb);
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	527 vs_color(VDI_handle, vdi_index[0], rgb);
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	528
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	529 vsf_color(VDI_handle,0);
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	530 vsf_interior(VDI_handle,1);
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	531 vsf_perimeter(VDI_handle,0);
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	532 v_bar(VDI_handle, rect);
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	533
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	534 vs_color(VDI_handle, vdi_index[0], oldrgb);
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	535 }
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	536
319 189a6a3416c7 * empty log message * Sam Lantinga <slouken@libsdl.org> parents: 305 diff changeset	537 static void GEM_ClearScreen(_THIS)
189a6a3416c7 * empty log message * Sam Lantinga <slouken@libsdl.org> parents: 305 diff changeset	538 {
189a6a3416c7 * empty log message * Sam Lantinga <slouken@libsdl.org> parents: 305 diff changeset	539 short pxy[4];
189a6a3416c7 * empty log message * Sam Lantinga <slouken@libsdl.org> parents: 305 diff changeset	540
189a6a3416c7 * empty log message * Sam Lantinga <slouken@libsdl.org> parents: 305 diff changeset	541 v_hide_c(VDI_handle);
189a6a3416c7 * empty log message * Sam Lantinga <slouken@libsdl.org> parents: 305 diff changeset	542
189a6a3416c7 * empty log message * Sam Lantinga <slouken@libsdl.org> parents: 305 diff changeset	543 pxy[0] = pxy[1] = 0;
189a6a3416c7 * empty log message * Sam Lantinga <slouken@libsdl.org> parents: 305 diff changeset	544 pxy[2] = VDI_w - 1;
189a6a3416c7 * empty log message * Sam Lantinga <slouken@libsdl.org> parents: 305 diff changeset	545 pxy[3] = VDI_h - 1;
736 028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	546 GEM_ClearRect(this, pxy);
319 189a6a3416c7 * empty log message * Sam Lantinga <slouken@libsdl.org> parents: 305 diff changeset	547
189a6a3416c7 * empty log message * Sam Lantinga <slouken@libsdl.org> parents: 305 diff changeset	548 v_show_c(VDI_handle, 1);
189a6a3416c7 * empty log message * Sam Lantinga <slouken@libsdl.org> parents: 305 diff changeset	549 }
189a6a3416c7 * empty log message * Sam Lantinga <slouken@libsdl.org> parents: 305 diff changeset	550
189a6a3416c7 * empty log message * Sam Lantinga <slouken@libsdl.org> parents: 305 diff changeset	551 static void GEM_LockScreen(_THIS)
189a6a3416c7 * empty log message * Sam Lantinga <slouken@libsdl.org> parents: 305 diff changeset	552 {
189a6a3416c7 * empty log message * Sam Lantinga <slouken@libsdl.org> parents: 305 diff changeset	553 if (!GEM_locked) {
189a6a3416c7 * empty log message * Sam Lantinga <slouken@libsdl.org> parents: 305 diff changeset	554 /* Reserve memory space, used to be sure of compatibility */
189a6a3416c7 * empty log message * Sam Lantinga <slouken@libsdl.org> parents: 305 diff changeset	555 form_dial( FMD_START, 0,0,0,0, 0,0,VDI_w,VDI_h);
189a6a3416c7 * empty log message * Sam Lantinga <slouken@libsdl.org> parents: 305 diff changeset	556 /* Lock AES */
189a6a3416c7 * empty log message * Sam Lantinga <slouken@libsdl.org> parents: 305 diff changeset	557 wind_update(BEG_UPDATE);
189a6a3416c7 * empty log message * Sam Lantinga <slouken@libsdl.org> parents: 305 diff changeset	558 wind_update(BEG_MCTRL);
189a6a3416c7 * empty log message * Sam Lantinga <slouken@libsdl.org> parents: 305 diff changeset	559
189a6a3416c7 * empty log message * Sam Lantinga <slouken@libsdl.org> parents: 305 diff changeset	560 GEM_locked=SDL_TRUE;
189a6a3416c7 * empty log message * Sam Lantinga <slouken@libsdl.org> parents: 305 diff changeset	561 }
189a6a3416c7 * empty log message * Sam Lantinga <slouken@libsdl.org> parents: 305 diff changeset	562 }
189a6a3416c7 * empty log message * Sam Lantinga <slouken@libsdl.org> parents: 305 diff changeset	563
189a6a3416c7 * empty log message * Sam Lantinga <slouken@libsdl.org> parents: 305 diff changeset	564 static void GEM_UnlockScreen(_THIS)
189a6a3416c7 * empty log message * Sam Lantinga <slouken@libsdl.org> parents: 305 diff changeset	565 {
189a6a3416c7 * empty log message * Sam Lantinga <slouken@libsdl.org> parents: 305 diff changeset	566 if (GEM_locked) {
189a6a3416c7 * empty log message * Sam Lantinga <slouken@libsdl.org> parents: 305 diff changeset	567 /* Restore screen memory, and send REDRAW to all apps */
189a6a3416c7 * empty log message * Sam Lantinga <slouken@libsdl.org> parents: 305 diff changeset	568 form_dial( FMD_FINISH, 0,0,0,0, 0,0,VDI_w,VDI_h);
189a6a3416c7 * empty log message * Sam Lantinga <slouken@libsdl.org> parents: 305 diff changeset	569 /* Unlock AES */
189a6a3416c7 * empty log message * Sam Lantinga <slouken@libsdl.org> parents: 305 diff changeset	570 wind_update(END_MCTRL);
189a6a3416c7 * empty log message * Sam Lantinga <slouken@libsdl.org> parents: 305 diff changeset	571 wind_update(END_UPDATE);
189a6a3416c7 * empty log message * Sam Lantinga <slouken@libsdl.org> parents: 305 diff changeset	572
189a6a3416c7 * empty log message * Sam Lantinga <slouken@libsdl.org> parents: 305 diff changeset	573 GEM_locked=SDL_FALSE;
189a6a3416c7 * empty log message * Sam Lantinga <slouken@libsdl.org> parents: 305 diff changeset	574 }
189a6a3416c7 * empty log message * Sam Lantinga <slouken@libsdl.org> parents: 305 diff changeset	575 }
189a6a3416c7 * empty log message * Sam Lantinga <slouken@libsdl.org> parents: 305 diff changeset	576
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	577 SDL_Surface GEM_SetVideoMode(_THIS, SDL_Surface current,
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	578 int width, int height, int bpp, Uint32 flags)
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	579 {
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	580 int maxwidth, maxheight;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	581 Uint32 modeflags, screensize;
736 028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	582 SDL_bool use_shadow1, use_shadow2;
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	583
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	584 GEM_FreeBuffers(this);
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	585
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	586 /--- Verify if asked mode can be used ---/
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	587 if (flags & SDL_FULLSCREEN) {
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	588 maxwidth=VDI_w;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	589 maxheight=VDI_h;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	590 } else {
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	591 /* Windowed mode */
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	592 maxwidth=GEM_desk_w;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	593 maxheight=GEM_desk_h;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	594 }
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	595
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	596 if ((maxwidth < width) \|\| (maxheight < height) \|\| (VDI_bpp != bpp)) {
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	597 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	598 return(NULL);
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	599 }
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	600
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	601 /--- Allocate the new pixel format for the screen ---/
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	602 if ( ! SDL_ReallocFormat(current, VDI_bpp, VDI_redmask, VDI_greenmask, VDI_bluemask, VDI_alphamask) ) {
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	603 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	604 return(NULL);
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	605 }
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	606
736 028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	607 screensize = width * height * VDI_pixelsize;
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	608
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	609 /--- Allocate shadow buffers if needed, and conversion operations ---/
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	610 GEM_bufops=0;
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	611 use_shadow1=use_shadow2=SDL_FALSE;
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	612 if (VDI_screen && (flags & SDL_FULLSCREEN)) {
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	613 if (VDI_format==VDI_FORMAT_INTER) {
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	614 use_shadow1=SDL_TRUE;
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	615 GEM_bufops = B2S_C2P_1TOS;
281 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 } else {
736 028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	618 use_shadow1=SDL_TRUE;
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	619 if (VDI_format==VDI_FORMAT_PACK) {
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	620 GEM_bufops = B2S_VROCPYFM_1TOS;
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	621 } else {
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	622 use_shadow2=SDL_TRUE;
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	623 GEM_bufops = B2S_C2P_1TO2\|B2S_VROCPYFM_2TOS;
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	624 }
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	625 }
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	626
736 028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	627 if (use_shadow1) {
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	628 GEM_buffer1 = Atari_SysMalloc(screensize, MX_PREFTTRAM);
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	629 if (GEM_buffer1==NULL) {
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	630 fprintf(stderr,"Unable to allocate shadow buffer\n");
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	631 return NULL;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	632 }
736 028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	633 memset(GEM_buffer1, 0, screensize);
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	634 #ifdef DEBUG_VIDEO_GEM
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	635 printf("sdl:video:gem: setvideomode(): allocated buffer 1\n");
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	636 #endif
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	637 }
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	638
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	639 if (use_shadow2) {
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	640 GEM_buffer2 = Atari_SysMalloc(screensize, MX_PREFTTRAM);
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	641 if (GEM_buffer2==NULL) {
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	642 fprintf(stderr,"Unable to allocate shadow buffer\n");
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	643 return NULL;
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	644 }
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	645 memset(GEM_buffer2, 0, screensize);
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	646 #ifdef DEBUG_VIDEO_GEM
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	647 printf("sdl:video:gem: setvideomode(): allocated buffer 2\n");
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	648 #endif
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	649 }
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	650
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	651 /--- Initialize screen ---/
508 9ff7e90aaa94 Fixed gamma correction in Atari video drivers (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: 319 diff changeset	652 modeflags = 0;
9ff7e90aaa94 Fixed gamma correction in Atari video drivers (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: 319 diff changeset	653 if (VDI_bpp == 8) {
9ff7e90aaa94 Fixed gamma correction in Atari video drivers (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: 319 diff changeset	654 modeflags \|= SDL_HWPALETTE;
9ff7e90aaa94 Fixed gamma correction in Atari video drivers (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: 319 diff changeset	655 }
9ff7e90aaa94 Fixed gamma correction in Atari video drivers (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: 319 diff changeset	656
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	657 if (flags & SDL_FULLSCREEN) {
319 189a6a3416c7 * empty log message * Sam Lantinga <slouken@libsdl.org> parents: 305 diff changeset	658 GEM_LockScreen(this);
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	659
319 189a6a3416c7 * empty log message * Sam Lantinga <slouken@libsdl.org> parents: 305 diff changeset	660 GEM_ClearScreen(this);
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	661
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	662 modeflags \|= SDL_FULLSCREEN;
736 028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	663 if (VDI_screen && (VDI_format==VDI_FORMAT_PACK) && !use_shadow1) {
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	664 modeflags \|= SDL_HWSURFACE;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	665 } else {
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	666 modeflags \|= SDL_SWSURFACE;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	667 }
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	668 } else {
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	669 int posx,posy;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	670 short x2,y2,w2,h2;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	671
319 189a6a3416c7 * empty log message * Sam Lantinga <slouken@libsdl.org> parents: 305 diff changeset	672 GEM_UnlockScreen(this);
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	673
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	674 /* Center our window */
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	675 posx = GEM_desk_x;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	676 posy = GEM_desk_y;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	677 if (width<GEM_desk_w)
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	678 posx += (GEM_desk_w - width) >> 1;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	679 if (height<GEM_desk_h)
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	680 posy += (GEM_desk_h - height) >> 1;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	681
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	682 /* Calculate our window size and position */
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	683 if (!(flags & SDL_NOFRAME)) {
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	684 GEM_win_type=NAME\|MOVER\|CLOSER\|SMALLER;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	685 if (flags & SDL_RESIZABLE) {
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	686 GEM_win_type \|= FULLER\|SIZER;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	687 modeflags \|= SDL_RESIZABLE;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	688 }
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	689 } else {
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	690 GEM_win_type=0;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	691 modeflags \|= SDL_NOFRAME;
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
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	694 if (!wind_calc(0, GEM_win_type, posx, posy, width, height, &x2, &y2, &w2, &h2)) {
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	695 GEM_FreeBuffers(this);
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	696 fprintf(stderr,"Can not calculate window attributes\n");
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	697 return NULL;
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 /* Create window */
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	701 GEM_handle=wind_create(GEM_win_type, x2, y2, w2, h2);
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	702 if (GEM_handle<0) {
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	703 GEM_FreeBuffers(this);
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	704 fprintf(stderr,"Can not create window\n");
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	705 return NULL;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	706 }
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	707
736 028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	708 #ifdef DEBUG_VIDEO_GEM
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	709 printf("sdl:video:gem: handle=%d\n", GEM_handle);
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	710 #endif
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	711
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	712 /* Setup window name */
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	713 wind_set(GEM_handle,WF_NAME,(short)(((unsigned long)GEM_title_name)>>16),(short)(((unsigned long)GEM_title_name) & 0xffff),0,0);
736 028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	714 GEM_refresh_name = SDL_FALSE;
281 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 /* Open the window */
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	717 wind_open(GEM_handle,x2,y2,w2,h2);
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	718
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	719 modeflags \|= SDL_SWSURFACE;
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
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	722 /* Set up the new mode framebuffer */
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	723 current->flags = modeflags;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	724 current->w = width;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	725 current->h = height;
736 028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	726 if (use_shadow1) {
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	727 current->pixels = GEM_buffer1;
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	728 current->pitch = width * (VDI_bpp >> 3);
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	729 } else {
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	730 current->pixels = VDI_screen;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	731 current->pixels += VDI_pitch * ((VDI_h - height) >> 1);
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	732 current->pixels += VDI_pixelsize * ((VDI_w - width) >> 1);
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	733 current->pitch = VDI_pitch;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	734 }
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	735
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	736 this->UpdateRects = GEM_UpdateRects;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	737
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	738 /* We're done */
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	739 return(current);
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	740 }
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	741
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	742 static int GEM_AllocHWSurface(_THIS, SDL_Surface *surface)
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	743 {
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	744 return -1;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	745 }
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	746 static void GEM_FreeHWSurface(_THIS, SDL_Surface *surface)
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	747 {
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	748 return;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	749 }
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	750
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	751 static int GEM_LockHWSurface(_THIS, SDL_Surface *surface)
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	752 {
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	753 return(0);
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	754 }
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	755
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	756 static void GEM_UnlockHWSurface(_THIS, SDL_Surface *surface)
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	757 {
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	758 return;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	759 }
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	760
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	761 static void GEM_UpdateRectsFullscreen(_THIS, int numrects, SDL_Rect *rects)
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	762 {
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	763 SDL_Surface *surface;
319 189a6a3416c7 * empty log message * Sam Lantinga <slouken@libsdl.org> parents: 305 diff changeset	764 int i;
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	765
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	766 surface = this->screen;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	767
736 028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	768 if (GEM_bufops & (B2S_C2P_1TO2\|B2S_C2P_1TOS)) {
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	769 void *destscr;
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	770 int destpitch;
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	771
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	772 if (GEM_bufops & B2S_C2P_1TOS) {
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	773 int destx;
736 028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	774
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	775 destscr = VDI_screen;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	776 destscr += VDI_pitch * ((VDI_h - surface->h) >> 1);
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	777 destx = (VDI_w - surface->w) >> 1;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	778 destx &= ~15;
319 189a6a3416c7 * empty log message * Sam Lantinga <slouken@libsdl.org> parents: 305 diff changeset	779 destscr += destx;
736 028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	780 destpitch = VDI_pitch;
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	781 } else {
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	782 destscr = GEM_buffer2;
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	783 destpitch = surface->pitch;
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	784 }
319 189a6a3416c7 * empty log message * Sam Lantinga <slouken@libsdl.org> parents: 305 diff changeset	785
736 028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	786 for (i=0;i<numrects;i++) {
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	787 void source,destination;
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	788 int x1,x2;
319 189a6a3416c7 * empty log message * Sam Lantinga <slouken@libsdl.org> parents: 305 diff changeset	789
736 028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	790 x1 = rects[i].x & ~15;
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	791 x2 = rects[i].x+rects[i].w;
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	792 if (x2 & 15) {
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	793 x2 = (x2 \| 15) +1;
319 189a6a3416c7 * empty log message * Sam Lantinga <slouken@libsdl.org> parents: 305 diff changeset	794 }
189a6a3416c7 * empty log message * Sam Lantinga <slouken@libsdl.org> parents: 305 diff changeset	795
736 028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	796 source = surface->pixels;
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	797 source += surface->pitch * rects[i].y;
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	798 source += x1;
319 189a6a3416c7 * empty log message * Sam Lantinga <slouken@libsdl.org> parents: 305 diff changeset	799
736 028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	800 destination = destscr;
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	801 destination += destpitch * rects[i].y;
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	802 destination += x1;
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	803
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	804 SDL_Atari_C2pConvert(
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	805 source, destination,
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	806 x2-x1, rects[i].h,
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	807 SDL_FALSE,
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	808 surface->pitch, destpitch
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	809 );
319 189a6a3416c7 * empty log message * Sam Lantinga <slouken@libsdl.org> parents: 305 diff changeset	810 }
189a6a3416c7 * empty log message * Sam Lantinga <slouken@libsdl.org> parents: 305 diff changeset	811 }
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	812
736 028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	813 if (GEM_bufops & (B2S_VROCPYFM_1TOS\|B2S_VROCPYFM_2TOS)) {
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	814 MFDB mfdb_src;
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	815 short blitcoords[8];
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	816
736 028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	817 mfdb_src.fd_addr=surface->pixels;
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	818 mfdb_src.fd_w=surface->w;
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	819 mfdb_src.fd_h=surface->h;
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	820 mfdb_src.fd_wdwidth=(surface->w) >> 4;
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	821 mfdb_src.fd_nplanes=surface->format->BitsPerPixel;
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	822 mfdb_src.fd_stand=
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	823 mfdb_src.fd_r1=
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	824 mfdb_src.fd_r2=
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	825 mfdb_src.fd_r3= 0;
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	826 if (GEM_bufops & B2S_VROCPYFM_2TOS) {
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	827 mfdb_src.fd_addr=GEM_buffer2;
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	828 }
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	829
736 028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	830 for ( i=0; i<numrects; ++i ) {
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	831 blitcoords[0] = rects[i].x;
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	832 blitcoords[1] = rects[i].y;
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	833 blitcoords[2] = blitcoords[0] + rects[i].w - 1;
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	834 blitcoords[3] = blitcoords[1] + rects[i].h - 1;
319 189a6a3416c7 * empty log message * Sam Lantinga <slouken@libsdl.org> parents: 305 diff changeset	835
736 028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	836 blitcoords[4] = rects[i].x + ((VDI_w - surface->w) >> 1);
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	837 blitcoords[5] = rects[i].y + ((VDI_h - surface->h) >> 1);
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	838 blitcoords[6] = blitcoords[4] + rects[i].w - 1;
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	839 blitcoords[7] = blitcoords[5] + rects[i].h - 1;
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	840
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	841 vro_cpyfm(VDI_handle, S_ONLY, blitcoords, &mfdb_src, &VDI_dst_mfdb);
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	842 }
281 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 }
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	845
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	846 static void GEM_UpdateRectsWindowed(_THIS, int numrects, SDL_Rect *rects)
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	847 {
736 028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	848 short pxy[4], wind_pxy[4];
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	849 int i;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	850
736 028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	851 if (wind_get(GEM_handle, WF_WORKXYWH, &wind_pxy[0], &wind_pxy[1], &wind_pxy[2], &wind_pxy[3])==0) {
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	852 return;
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	853 }
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	854
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	855 for ( i=0; i<numrects; ++i ) {
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	856 pxy[0] = wind_pxy[0] + rects[i].x;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	857 pxy[1] = wind_pxy[1] + rects[i].y;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	858 pxy[2] = rects[i].w;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	859 pxy[3] = rects[i].h;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	860
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	861 GEM_wind_redraw(this, GEM_handle, pxy);
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	862 }
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	863 }
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	864
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	865 static void GEM_UpdateRects(_THIS, int numrects, SDL_Rect *rects)
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	866 {
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	867 SDL_Surface *surface;
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 surface = this->screen;
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 if (surface->flags & SDL_FULLSCREEN) {
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	872 GEM_UpdateRectsFullscreen(this, numrects, rects);
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	873 } else {
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	874 GEM_UpdateRectsWindowed(this, numrects, rects);
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	875 }
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
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	878 static int GEM_FlipHWSurfaceFullscreen(_THIS, SDL_Surface *surface)
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	879 {
736 028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	880 if (GEM_bufops & (B2S_C2P_1TO2\|B2S_C2P_1TOS)) {
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	881 void *destscr;
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	882 int destpitch;
319 189a6a3416c7 * empty log message * Sam Lantinga <slouken@libsdl.org> parents: 305 diff changeset	883
736 028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	884 if (GEM_bufops & B2S_C2P_1TOS) {
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	885 int destx;
736 028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	886
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	887 destscr = VDI_screen;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	888 destscr += VDI_pitch * ((VDI_h - surface->h) >> 1);
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	889 destx = (VDI_w - surface->w) >> 1;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	890 destx &= ~15;
319 189a6a3416c7 * empty log message * Sam Lantinga <slouken@libsdl.org> parents: 305 diff changeset	891 destscr += destx;
736 028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	892 destpitch = VDI_pitch;
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	893 } else {
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	894 destscr = GEM_buffer2;
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	895 destpitch = surface->pitch;
281 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
736 028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	898 SDL_Atari_C2pConvert(
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	899 surface->pixels, destscr,
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	900 surface->w, surface->h,
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	901 SDL_FALSE,
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	902 surface->pitch, destpitch
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	903 );
319 189a6a3416c7 * empty log message * Sam Lantinga <slouken@libsdl.org> parents: 305 diff changeset	904 }
736 028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	905
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	906 if (GEM_bufops & (B2S_VROCPYFM_1TOS\|B2S_VROCPYFM_2TOS)) {
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	907 MFDB mfdb_src;
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	908 short blitcoords[8];
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	909
736 028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	910 mfdb_src.fd_w=surface->w;
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	911 mfdb_src.fd_h=surface->h;
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	912 mfdb_src.fd_wdwidth=(surface->w) >> 4;
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	913 mfdb_src.fd_nplanes=surface->format->BitsPerPixel;
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	914 mfdb_src.fd_stand=
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	915 mfdb_src.fd_r1=
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	916 mfdb_src.fd_r2=
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	917 mfdb_src.fd_r3= 0;
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	918 if (GEM_bufops & B2S_VROCPYFM_1TOS) {
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	919 mfdb_src.fd_addr=surface->pixels;
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	920 } else {
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	921 mfdb_src.fd_addr=GEM_buffer2;
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	922 }
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	923
736 028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	924 blitcoords[0] = 0;
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	925 blitcoords[1] = 0;
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	926 blitcoords[2] = surface->w - 1;
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	927 blitcoords[3] = surface->h - 1;
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	928
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	929 blitcoords[4] = (VDI_w - surface->w) >> 1;
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	930 blitcoords[5] = (VDI_h - surface->h) >> 1;
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	931 blitcoords[6] = blitcoords[4] + surface->w - 1;
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	932 blitcoords[7] = blitcoords[5] + surface->h - 1;
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	933
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	934 vro_cpyfm(VDI_handle, S_ONLY, blitcoords, &mfdb_src, &VDI_dst_mfdb);
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	935 }
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	936
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	937 return(0);
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	938 }
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	939
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	940 static int GEM_FlipHWSurfaceWindowed(_THIS, SDL_Surface *surface)
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	941 {
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	942 short pxy[8];
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	943
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	944 /* Update the whole window */
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	945 wind_get(GEM_handle, WF_WORKXYWH, &pxy[0], &pxy[1], &pxy[2], &pxy[3]);
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	946
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	947 GEM_wind_redraw(this, GEM_handle, pxy);
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	948
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	949 return(0);
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	950 }
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	951
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	952 static int GEM_FlipHWSurface(_THIS, SDL_Surface *surface)
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	953 {
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	954 if (surface->flags & SDL_FULLSCREEN) {
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	955 return GEM_FlipHWSurfaceFullscreen(this, surface);
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	956 } else {
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	957 return GEM_FlipHWSurfaceWindowed(this, surface);
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	958 }
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	959 }
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	960
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	961 static int GEM_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	962 {
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	963 int i;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	964 SDL_Surface *surface;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	965
736 028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	966 #ifdef DEBUG_VIDEO_GEM
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	967 printf("sdl:video:gem: setcolors()\n");
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	968 #endif
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	969
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	970 /* Do not change palette in True Colour */
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	971 surface = this->screen;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	972 if (surface->format->BitsPerPixel > 8) {
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	973 return 1;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	974 }
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	975
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	976 for(i = 0; i < ncolors; i++)
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	977 {
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	978 int r, g, b;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	979 short rgb[3];
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	980
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	981 r = colors[i].r;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	982 g = colors[i].g;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	983 b = colors[i].b;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	984
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	985 rgb[0] = (1000 * r) / 255;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	986 rgb[1] = (1000 * g) / 255;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	987 rgb[2] = (1000 * b) / 255;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	988
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	989 vs_color(VDI_handle, vdi_index[firstcolor+i], rgb);
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	990 }
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	991
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	992 return(1);
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	993 }
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	994
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	995 #if 0
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	996 static int GEM_ToggleFullScreen(_THIS, int on)
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	997 {
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	998 if (on) {
319 189a6a3416c7 * empty log message * Sam Lantinga <slouken@libsdl.org> parents: 305 diff changeset	999 GEM_LockScreen(this);
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	1000 } else {
319 189a6a3416c7 * empty log message * Sam Lantinga <slouken@libsdl.org> parents: 305 diff changeset	1001 GEM_UnlockScreen(this);
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	1002 }
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	1003
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	1004 return(1);
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	1005 }
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	1006 #endif
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	1007
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	1008 /* 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	1009 another SDL video routine -- notably UpdateRects.
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	1010 */
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	1011 void GEM_VideoQuit(_THIS)
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	1012 {
305 9c6613983e85 Atari port cleanups from Patrice Sam Lantinga <slouken@libsdl.org> parents: 297 diff changeset	1013 SDL_AtariXbios_RestoreVectors();
9c6613983e85 Atari port cleanups from Patrice Sam Lantinga <slouken@libsdl.org> parents: 297 diff changeset	1014
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	1015 GEM_FreeBuffers(this);
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	1016
319 189a6a3416c7 * empty log message * Sam Lantinga <slouken@libsdl.org> parents: 305 diff changeset	1017 GEM_UnlockScreen(this);
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	1018
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	1019 appl_exit();
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	1020
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	1021 /* Restore palette */
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	1022 if (VDI_oldnumcolors) {
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	1023 int i;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	1024
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	1025 for(i = 0; i < VDI_oldnumcolors; i++) {
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	1026 short rgb[3];
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	1027
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	1028 rgb[0] = VDI_oldpalette[i][0];
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	1029 rgb[1] = VDI_oldpalette[i][1];
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	1030 rgb[2] = VDI_oldpalette[i][2];
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	1031
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	1032 vs_color(VDI_handle, i, rgb);
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	1033 }
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	1034 }
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	1035
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	1036 /* Close VDI workstation */
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	1037 if (VDI_handle) {
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	1038 v_clsvwk(VDI_handle);
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	1039 }
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	1040
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	1041 /* Free mode list */
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	1042 if (SDL_modelist[0]) {
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	1043 free(SDL_modelist[0]);
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	1044 SDL_modelist[0]=NULL;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	1045 }
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	1046
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	1047 this->screen->pixels = NULL;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	1048 }
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	1049
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	1050 void GEM_wind_redraw(_THIS, int winhandle, short *inside)
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	1051 {
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	1052 short todo[4];
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	1053
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	1054 /* Tell AES we are going to update */
319 189a6a3416c7 * empty log message * Sam Lantinga <slouken@libsdl.org> parents: 305 diff changeset	1055 wind_update(BEG_UPDATE);
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	1056
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	1057 v_hide_c(VDI_handle);
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	1058
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	1059 /* Browse the rectangle list to redraw */
736 028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	1060 if (wind_get(winhandle, WF_FIRSTXYWH, &todo[0], &todo[1], &todo[2], &todo[3])!=0) {
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	1061
736 028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	1062 while (todo[2] && todo[3]) {
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	1063
736 028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	1064 if (rc_intersect((GRECT )inside,(GRECT )todo)) {
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	1065 todo[2] += todo[0]-1;
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	1066 todo[3] += todo[1]-1;
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	1067 refresh_window(this, winhandle, todo);
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	1068 }
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	1069
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	1070 if (wind_get(winhandle, WF_NEXTXYWH, &todo[0], &todo[1], &todo[2], &todo[3])==0) {
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	1071 break;
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	1072 }
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	1073 }
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	1074
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	1075 }
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	1076
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	1077 /* Update finished */
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	1078 wind_update(END_UPDATE);
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	1079
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	1080 v_show_c(VDI_handle,1);
736 028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	1081
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	1082 #if DEBUG_VIDEO_GEM
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	1083 fflush(stdout);
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	1084 #endif
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	1085 }
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	1086
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	1087 static void refresh_window(_THIS, int winhandle, short *rect)
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	1088 {
736 028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	1089 MFDB mfdb_src;
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	1090 short pxy[8],wind_pxy[8];
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	1091 SDL_Surface *surface;
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	1092 int iconified;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	1093
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	1094 /* Is window iconified ? */
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	1095 iconified = 0;
736 028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	1096 /* if (GEM_wfeatures & (1<<WF_ICONIFY))*/ {
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	1097 if (wind_get(winhandle, WF_ICONIFY, &wind_pxy[0], &wind_pxy[1], &wind_pxy[2], &wind_pxy[3])!=0) {
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	1098 iconified = wind_pxy[0];
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	1099 }
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	1100 }
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	1101
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	1102 if (wind_get(winhandle, WF_WORKXYWH, &wind_pxy[0], &wind_pxy[1], &wind_pxy[2], &wind_pxy[3])==0) {
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	1103 return;
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	1104 }
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	1105
736 028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	1106 if (iconified && GEM_icon) {
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	1107 short icon_rect[4], dst_rect[4];
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	1108
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	1109 surface = GEM_icon;
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	1110
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	1111 GEM_ClearRect(this, rect);
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	1112
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	1113 /* Calculate centered icon(x,y,w,h) relative to window */
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	1114 icon_rect[0] = (wind_pxy[2]-surface->w)>>1;
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	1115 icon_rect[1] = (wind_pxy[3]-surface->h)>>1;
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	1116 icon_rect[2] = surface->w;
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	1117 icon_rect[3] = surface->h;
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	1118
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	1119 /* Calculate redraw rectangle(x,y,w,h) relative to window */
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	1120 dst_rect[0] = rect[0]-wind_pxy[0];
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	1121 dst_rect[1] = rect[1]-wind_pxy[1];
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	1122 dst_rect[2] = rect[2]-rect[0]+1;
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	1123 dst_rect[3] = rect[3]-rect[1]+1;
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	1124
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	1125 /* Does the icon rectangle must be redrawn ? */
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	1126 if (!rc_intersect((GRECT )icon_rect, (GRECT )dst_rect)) {
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	1127 return;
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	1128 }
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	1129
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	1130 #ifdef DEBUG_VIDEO_GEM
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	1131 printf("sdl:video:gem: clip(0,0,%d,%d) to (%d,%d,%d,%d)\n",
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	1132 surface->w-1,surface->h-1, dst_rect[0],dst_rect[1],dst_rect[2],dst_rect[3]);
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	1133 printf("sdl:video:gem: icon(%d,%d,%d,%d)\n",
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	1134 icon_rect[0], icon_rect[1], icon_rect[2], icon_rect[3]);
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	1135 printf("sdl:video:gem: refresh_window(): draw icon\n");
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	1136 #endif
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	1137
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	1138 /* Calculate icon(x1,y1,x2,y2) relative to screen */
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	1139 icon_rect[0] += wind_pxy[0];
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	1140 icon_rect[1] += wind_pxy[1];
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	1141 icon_rect[2] += icon_rect[0]-1;
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	1142 icon_rect[3] += icon_rect[1]-1;
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	1143
736 028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	1144 /* Calculate intersection rectangle to redraw */
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	1145 pxy[0]=0;
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	1146 pxy[1]=0;
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	1147 pxy[2]=surface->w - 1;
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	1148 pxy[3]=surface->h - 1;
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	1149 pxy[4]=rect[0];
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	1150 pxy[5]=rect[1];
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	1151 pxy[6]=rect[2];
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	1152 pxy[7]=rect[3];
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	1153
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	1154 if (icon_rect[0]>rect[0]) {
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	1155 pxy[4]=icon_rect[0];
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	1156 } else if (icon_rect[0]<rect[0]) {
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	1157 pxy[0]=rect[0]-icon_rect[0];
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	1158 }
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	1159
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	1160 if (icon_rect[1]>rect[1]) {
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	1161 pxy[5]=icon_rect[1];
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	1162 } else if (icon_rect[1]<rect[1]) {
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	1163 pxy[1]=rect[1]-icon_rect[1];
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	1164 }
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	1165
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	1166 if (icon_rect[2]>rect[2]) {
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	1167 pxy[2]=rect[2]-icon_rect[0];
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	1168 pxy[6]=rect[2];
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	1169 } else if (icon_rect[2]<rect[2]) {
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	1170 pxy[2]=icon_rect[2]-rect[0];
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	1171 pxy[6]=icon_rect[2];
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	1172 }
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	1173
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	1174 if (icon_rect[3]>rect[3]) {
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	1175 pxy[3]=rect[3]-icon_rect[1];
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	1176 pxy[7]=rect[3];
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	1177 } else if (icon_rect[3]<rect[3]) {
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	1178 pxy[3]=icon_rect[3]-rect[1];
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	1179 pxy[7]=icon_rect[3];
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	1180 }
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	1181
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	1182 } else {
736 028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	1183 surface = this->screen;
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	1184
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	1185 #ifdef DEBUG_VIDEO_GEM
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	1186 printf("sdl:video:gem: refresh_window(): draw frame buffer\n");
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	1187 #endif
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	1188
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	1189 /* Redraw all window content */
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	1190 pxy[0] = rect[0]-wind_pxy[0];
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	1191 pxy[1] = rect[1]-wind_pxy[1];
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	1192 pxy[2] = rect[2]-wind_pxy[0];
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	1193 pxy[3] = rect[3]-wind_pxy[1];
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	1194
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	1195 pxy[4] = rect[0];
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	1196 pxy[5] = rect[1];
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	1197 pxy[6] = rect[2];
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	1198 pxy[7] = rect[3];
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	1199 }
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	1200
736 028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	1201 if (GEM_bufops & B2S_C2P_1TO2) {
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	1202 void src, dest;
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	1203 int x1,x2;
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	1204
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	1205 x1 = (rect[0]-wind_pxy[0]) & ~15;
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	1206 x2 = rect[2]-wind_pxy[0];
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	1207 if (x2 & 15) {
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	1208 x2 = (x2 \| 15) +1;
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	1209 }
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	1210
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	1211 src = surface->pixels;
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	1212 src += surface->pitch * (rect[1]-wind_pxy[1]);
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	1213 src += x1;
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	1214
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	1215 dest = GEM_buffer2;
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	1216 dest += surface->pitch * (rect[1]-wind_pxy[1]);
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	1217 dest += x1;
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	1218
736 028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	1219 SDL_Atari_C2pConvert(
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	1220 src, dest,
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	1221 x2-x1, rect[3]-rect[1]+1,
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	1222 SDL_FALSE,
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	1223 surface->pitch, surface->pitch
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	1224 );
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	1225 }
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	1226
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	1227 mfdb_src.fd_addr=surface->pixels;
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	1228 mfdb_src.fd_w=surface->w;
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	1229 mfdb_src.fd_h=surface->h;
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	1230 mfdb_src.fd_nplanes=surface->format->BitsPerPixel;
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	1231 mfdb_src.fd_wdwidth=mfdb_src.fd_w>>4;
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	1232 mfdb_src.fd_stand=
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	1233 mfdb_src.fd_r1=
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	1234 mfdb_src.fd_r2=
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	1235 mfdb_src.fd_r3= 0;
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	1236
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	1237 if (GEM_bufops & B2S_VROCPYFM_2TOS) {
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	1238 mfdb_src.fd_addr=GEM_buffer2;
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	1239 }
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	1240
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	1241 #ifdef DEBUG_VIDEO_GEM
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	1242 printf("sdl:video:gem: redraw (%d,%d,%d,%d) to (%d,%d,%d,%d)\n",
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	1243 pxy[0],pxy[1],pxy[2],pxy[3],
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	1244 pxy[4],pxy[5],pxy[6],pxy[7]
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	1245 );
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	1246 #endif
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	1247
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	1248 vro_cpyfm( VDI_handle, S_ONLY, pxy, &mfdb_src, &VDI_dst_mfdb);
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	1249 }

Mercurial > sdl-ios-xcode

annotate src/video/gem/SDL_gemvideo.c @ 736:028e03e273c8