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

annotate src/video/gem/SDL_gemvideo.c @ 2185:2032348afed1

This code adds support for DirectColor visuals to SDL 1.3. The support uses part of the Xmu library. To ensure that the library is available and to keep people form having to install yet another library I have added the essential parts of Xmu in src/video/extensions/XmuStdCmap and an include file in src/video/extensions. The support makes use of standard X11 mechanisms to create color maps and make sure that an application uses the same color map for each window/visual combination. This should make it possible for gamma support to be implemented based on a single color map per application. Hurm... it looks like "make indent" modified a few extra files. Those are getting committed too.

author	Bob Pendleton <bob@pendleton.com>
date	Thu, 12 Jul 2007 20:00:50 +0000
parents	2c835d58faad
children	f54670a477bb

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
1312 c9b51268668f Updated copyright information and removed rcs id lines (problematic in branch merges) Sam Lantinga <slouken@libsdl.org> parents: 1239 diff changeset	3 Copyright (C) 1997-2006 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
1312 c9b51268668f Updated copyright information and removed rcs id lines (problematic in branch merges) Sam Lantinga <slouken@libsdl.org> parents: 1239 diff changeset	6 modify it under the terms of the GNU Lesser General Public
281 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
1312 c9b51268668f Updated copyright information and removed rcs id lines (problematic in branch merges) Sam Lantinga <slouken@libsdl.org> parents: 1239 diff changeset	8 version 2.1 of the License, or (at your option) any later version.
281 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
1312 c9b51268668f Updated copyright information and removed rcs id lines (problematic in branch merges) Sam Lantinga <slouken@libsdl.org> parents: 1239 diff changeset	13 Lesser General Public License for more details.
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	14
1312 c9b51268668f Updated copyright information and removed rcs id lines (problematic in branch merges) Sam Lantinga <slouken@libsdl.org> parents: 1239 diff changeset	15 You should have received a copy of the GNU Lesser General Public
c9b51268668f Updated copyright information and removed rcs id lines (problematic in branch merges) Sam Lantinga <slouken@libsdl.org> parents: 1239 diff changeset	16 License along with this library; if not, write to the Free Software
c9b51268668f Updated copyright information and removed rcs id lines (problematic in branch merges) Sam Lantinga <slouken@libsdl.org> parents: 1239 diff changeset	17 Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
281 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 */
1402 d910939febfa Use consistent identifiers for the various platforms we support. Sam Lantinga <slouken@libsdl.org> parents: 1361 diff changeset	22 #include "SDL_config.h"
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	23
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	24 /*
736 028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	25 GEM video driver
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	26
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	27 Patrice Mandin
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	28 and work from
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	29 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	30 */
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	31
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	32 /* Mint includes */
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	33 #include <gem.h>
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	34 #include <gemx.h>
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	35 #include <mint/osbind.h>
557 0ce5a68278fd Updated Atari port for new system headers (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: 508 diff changeset	36 #include <mint/cookie.h>
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	37
1358 c71e05b4dc2e More header massaging... works great on Windows. ;-) Sam Lantinga <slouken@libsdl.org> parents: 1338 diff changeset	38 #include "SDL_endian.h"
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	39 #include "SDL_video.h"
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	40 #include "SDL_mouse.h"
1361 19418e4422cb New configure-based build system. Still work in progress, but much improved Sam Lantinga <slouken@libsdl.org> parents: 1358 diff changeset	41 #include "../SDL_sysvideo.h"
19418e4422cb New configure-based build system. Still work in progress, but much improved Sam Lantinga <slouken@libsdl.org> parents: 1358 diff changeset	42 #include "../SDL_pixels_c.h"
19418e4422cb New configure-based build system. Still work in progress, but much improved Sam Lantinga <slouken@libsdl.org> parents: 1358 diff changeset	43 #include "../../events/SDL_events_c.h"
19418e4422cb New configure-based build system. Still work in progress, but much improved Sam Lantinga <slouken@libsdl.org> parents: 1358 diff changeset	44 #include "../SDL_cursor_c.h"
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	45
1412 a8181c4040b8 Fixed include files Patrice Mandin <patmandin@gmail.com> parents: 1402 diff changeset	46 #include "../ataricommon/SDL_ataric2p_s.h"
a8181c4040b8 Fixed include files Patrice Mandin <patmandin@gmail.com> parents: 1402 diff changeset	47 #include "../ataricommon/SDL_atarieddi_s.h"
a8181c4040b8 Fixed include files Patrice Mandin <patmandin@gmail.com> parents: 1402 diff changeset	48 #include "../ataricommon/SDL_atarimxalloc_c.h"
a8181c4040b8 Fixed include files Patrice Mandin <patmandin@gmail.com> parents: 1402 diff changeset	49 #include "../ataricommon/SDL_atarigl_c.h"
989 475166d13b44 Factorize OSMesa OpenGL code for Atari drivers Patrice Mandin <patmandin@gmail.com> parents: 988 diff changeset	50
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	51 #include "SDL_gemvideo.h"
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	52 #include "SDL_gemevents_c.h"
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	53 #include "SDL_gemmouse_c.h"
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	54 #include "SDL_gemwm_c.h"
1412 a8181c4040b8 Fixed include files Patrice Mandin <patmandin@gmail.com> parents: 1402 diff changeset	55 #include "../ataricommon/SDL_xbiosevents_c.h"
1420 2405517b5eab Added preliminary support for MiNT /dev/mouse driver (disabled atm) Patrice Mandin <patmandin@gmail.com> parents: 1412 diff changeset	56 #include "../ataricommon/SDL_ataridevmouse_c.h"
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	57
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	58 /* Defines */
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	59
984 44fd54a0ae5f Add OSMesa OpenGL support to the Atari GEM video driver Patrice Mandin <patmandin@gmail.com> parents: 964 diff changeset	60 /#define DEBUG_VIDEO_GEM 1/
736 028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	61
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	62 #define GEM_VID_DRIVER_NAME "gem"
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	63
737 7e4347dd2f9c Small fix for iconification Patrice Mandin <patmandin@gmail.com> parents: 736 diff changeset	64 #undef MIN
7e4347dd2f9c Small fix for iconification Patrice Mandin <patmandin@gmail.com> parents: 736 diff changeset	65 #define MIN(a,b) (((a)<(b)) ? (a) : (b))
7e4347dd2f9c Small fix for iconification Patrice Mandin <patmandin@gmail.com> parents: 736 diff changeset	66 #undef MAX
7e4347dd2f9c Small fix for iconification Patrice Mandin <patmandin@gmail.com> parents: 736 diff changeset	67 #define MAX(a,b) (((a)>(b)) ? (a) : (b))
7e4347dd2f9c Small fix for iconification Patrice Mandin <patmandin@gmail.com> parents: 736 diff changeset	68
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	69 /* Variables */
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	70
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	71 static unsigned char vdi_index[256] = {
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	72 0, 2, 3, 6, 4, 7, 5, 8,
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	73 9, 10, 11, 14, 12, 15, 13, 255
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	74 };
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	75
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	76 static const unsigned char empty_name[] = "";
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	77
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	78 /* Initialization/Query functions */
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	79 static int GEM_VideoInit(_THIS, SDL_PixelFormat * vformat);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	80 static SDL_Rect *GEM_ListModes(_THIS, SDL_PixelFormat format,
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	81 Uint32 flags);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	82 static SDL_Surface GEM_SetVideoMode(_THIS, SDL_Surface current, int width,
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	83 int height, int bpp, Uint32 flags);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	84 static int GEM_SetColors(_THIS, int firstcolor, int ncolors,
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	85 SDL_Color * colors);
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	86 static void GEM_VideoQuit(_THIS);
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	87
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	88 /* Hardware surface functions */
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	89 static int GEM_AllocHWSurface(_THIS, SDL_Surface * surface);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	90 static int GEM_LockHWSurface(_THIS, SDL_Surface * surface);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	91 static int GEM_FlipHWSurface(_THIS, SDL_Surface * surface);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	92 static void GEM_UnlockHWSurface(_THIS, SDL_Surface * surface);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	93 static void GEM_FreeHWSurface(_THIS, SDL_Surface * surface);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	94 static void GEM_UpdateRects(_THIS, int numrects, SDL_Rect * rects);
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	95 #if 0
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	96 static int GEM_ToggleFullScreen(_THIS, int on);
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	97 #endif
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	98
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	99 /* Internal functions */
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	100 static void GEM_FreeBuffers(_THIS);
319 189a6a3416c7 * empty log message * Sam Lantinga <slouken@libsdl.org> parents: 305 diff changeset	101 static void GEM_ClearScreen(_THIS);
736 028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	102 static void GEM_ClearRect(_THIS, short *rect);
1074 936da0056ed3 Save/restore system palette when application topped/untopped Patrice Mandin <patmandin@gmail.com> parents: 1072 diff changeset	103 static void GEM_SetNewPalette(_THIS, Uint16 newpal[256][3]);
319 189a6a3416c7 * empty log message * Sam Lantinga <slouken@libsdl.org> parents: 305 diff changeset	104 static void GEM_LockScreen(_THIS);
189a6a3416c7 * empty log message * Sam Lantinga <slouken@libsdl.org> parents: 305 diff changeset	105 static void GEM_UnlockScreen(_THIS);
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	106 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	107
1361 19418e4422cb New configure-based build system. Still work in progress, but much improved Sam Lantinga <slouken@libsdl.org> parents: 1358 diff changeset	108 #if SDL_VIDEO_OPENGL
984 44fd54a0ae5f Add OSMesa OpenGL support to the Atari GEM video driver Patrice Mandin <patmandin@gmail.com> parents: 964 diff changeset	109 /* OpenGL functions */
44fd54a0ae5f Add OSMesa OpenGL support to the Atari GEM video driver Patrice Mandin <patmandin@gmail.com> parents: 964 diff changeset	110 static void GEM_GL_SwapBuffers(_THIS);
44fd54a0ae5f Add OSMesa OpenGL support to the Atari GEM video driver Patrice Mandin <patmandin@gmail.com> parents: 964 diff changeset	111 #endif
44fd54a0ae5f Add OSMesa OpenGL support to the Atari GEM video driver Patrice Mandin <patmandin@gmail.com> parents: 964 diff changeset	112
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	113 /* GEM driver bootstrap functions */
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	114
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	115 static int
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	116 GEM_Available(void)
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	117 {
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	118 /* Test if AES available */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	119 if (appl_init() == -1)
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	120 return 0;
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	121
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	122 appl_exit();
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	123 return 1;
281 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
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	126 static void
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	127 GEM_DeleteDevice(SDL_VideoDevice * device)
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	128 {
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	129 SDL_free(device->hidden);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	130 SDL_free(device);
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	131 }
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	132
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	133 static SDL_VideoDevice *
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	134 GEM_CreateDevice(int devindex)
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	135 {
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	136 SDL_VideoDevice *device;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	137 int vectors_mask;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	138 unsigned long dummy;
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	139
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	140 /* Initialize all variables that we clean on shutdown */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	141 device = (SDL_VideoDevice *) SDL_malloc(sizeof(SDL_VideoDevice));
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	142 if (device) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	143 SDL_memset(device, 0, (sizeof *device));
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	144 device->hidden = (struct SDL_PrivateVideoData *)
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	145 SDL_malloc((sizeof *device->hidden));
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	146 device->gl_data = (struct SDL_PrivateGLData *)
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	147 SDL_malloc((sizeof *device->gl_data));
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	148 }
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	149 if ((device == NULL) \|\| (device->hidden == NULL)) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	150 SDL_OutOfMemory();
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	151 if (device) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	152 SDL_free(device);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	153 }
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	154 return (0);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	155 }
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	156 SDL_memset(device->hidden, 0, (sizeof *device->hidden));
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	157 SDL_memset(device->gl_data, 0, sizeof(*device->gl_data));
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	158
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	159 /* Set the function pointers */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	160 device->VideoInit = GEM_VideoInit;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	161 device->ListModes = GEM_ListModes;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	162 device->SetVideoMode = GEM_SetVideoMode;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	163 device->SetColors = GEM_SetColors;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	164 device->UpdateRects = NULL /GEM_UpdateRects / ;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	165 device->VideoQuit = GEM_VideoQuit;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	166 device->AllocHWSurface = GEM_AllocHWSurface;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	167 device->LockHWSurface = GEM_LockHWSurface;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	168 device->UnlockHWSurface = GEM_UnlockHWSurface;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	169 device->FlipHWSurface = GEM_FlipHWSurface;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	170 device->FreeHWSurface = GEM_FreeHWSurface;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	171 device->ToggleFullScreen = NULL /GEM_ToggleFullScreen / ;
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	172
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	173 /* Window manager */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	174 device->SetCaption = GEM_SetCaption;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	175 device->SetIcon = GEM_SetIcon;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	176 device->IconifyWindow = GEM_IconifyWindow;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	177 device->GrabInput = GEM_GrabInput;
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	178
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	179 /* Events */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	180 device->InitOSKeymap = GEM_InitOSKeymap;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	181 device->PumpEvents = GEM_PumpEvents;
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	182
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	183 /* Mouse */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	184 device->FreeWMCursor = GEM_FreeWMCursor;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	185 device->CreateWMCursor = GEM_CreateWMCursor;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	186 device->ShowWMCursor = GEM_ShowWMCursor;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	187 device->WarpWMCursor = NULL /GEM_WarpWMCursor / ;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	188 device->CheckMouseMode = GEM_CheckMouseMode;
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	189
1361 19418e4422cb New configure-based build system. Still work in progress, but much improved Sam Lantinga <slouken@libsdl.org> parents: 1358 diff changeset	190 #if SDL_VIDEO_OPENGL
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	191 /* OpenGL functions */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	192 device->GL_LoadLibrary = SDL_AtariGL_LoadLibrary;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	193 device->GL_GetProcAddress = SDL_AtariGL_GetProcAddress;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	194 device->GL_GetAttribute = SDL_AtariGL_GetAttribute;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	195 device->GL_MakeCurrent = SDL_AtariGL_MakeCurrent;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	196 device->GL_SwapBuffers = GEM_GL_SwapBuffers;
984 44fd54a0ae5f Add OSMesa OpenGL support to the Atari GEM video driver Patrice Mandin <patmandin@gmail.com> parents: 964 diff changeset	197 #endif
44fd54a0ae5f Add OSMesa OpenGL support to the Atari GEM video driver Patrice Mandin <patmandin@gmail.com> parents: 964 diff changeset	198
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	199 device->hidden->use_dev_mouse =
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	200 (SDL_AtariDevMouse_Open() != 0) ? SDL_TRUE : SDL_FALSE;
1420 2405517b5eab Added preliminary support for MiNT /dev/mouse driver (disabled atm) Patrice Mandin <patmandin@gmail.com> parents: 1412 diff changeset	201
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	202 vectors_mask = ATARI_XBIOS_JOYSTICKEVENTS; /* XBIOS joystick events */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	203 if (!(device->hidden->use_dev_mouse)) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	204 vectors_mask \|= ATARI_XBIOS_MOUSEEVENTS; /* XBIOS mouse events */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	205 }
2024 cb0fd9cdd2a9 Reenable xbios usage to get relative mouse motion Patrice Mandin <patmandin@gmail.com> parents: 1895 diff changeset	206 /*if (Getcookie(C_MiNT, &dummy) == C_FOUND) {
2043 adf732f1f016 Formatting update Sam Lantinga <slouken@libsdl.org> parents: 2024 diff changeset	207 vectors_mask = 0;
adf732f1f016 Formatting update Sam Lantinga <slouken@libsdl.org> parents: 2024 diff changeset	208 } */
1237 a8068adf156b Disable XBIOS driver for mouse and joystick under MiNT. Will write a driver for /dev/mouse later. Patrice Mandin <patmandin@gmail.com> parents: 1104 diff changeset	209
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	210 SDL_AtariXbios_InstallVectors(vectors_mask);
305 9c6613983e85 Atari port cleanups from Patrice Sam Lantinga <slouken@libsdl.org> parents: 297 diff changeset	211
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	212 device->free = GEM_DeleteDevice;
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	213
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	214 return device;
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	215 }
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	216
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	217 VideoBootStrap GEM_bootstrap = {
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	218 GEM_VID_DRIVER_NAME, "Atari GEM video driver",
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	219 GEM_Available, GEM_CreateDevice
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	220 };
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	221
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	222 static void
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	223 VDI_ReadExtInfo(_THIS, short *work_out)
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	224 {
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	225 unsigned long EdDI_version;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	226 unsigned long cookie_EdDI;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	227 Uint32 num_colours;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	228 Uint16 clut_type, num_bits;
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	229
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	230 /* Read EdDI informations */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	231 if (Getcookie(C_EdDI, &cookie_EdDI) == C_NOTFOUND) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	232 return;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	233 }
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	234
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	235 EdDI_version = Atari_get_EdDI_version((void *) cookie_EdDI);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	236
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	237 vq_scrninfo(VDI_handle, work_out);
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	238
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	239 VDI_format = work_out[0];
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	240 clut_type = work_out[1];
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	241 num_bits = work_out[2];
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	242 num_colours = ((Uint32 ) & work_out[3]);
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	243
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	244 /* With EdDI>=1.1, we can have screen pitch, address and format
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	245 * so we can directly write to screen without using vro_cpyfm
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	246 */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	247 if (EdDI_version >= EDDI_11) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	248 VDI_pitch = work_out[5];
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	249 VDI_screen = (void ) ((unsigned long *) &work_out[6]);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	250 }
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	251
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	252 switch (clut_type) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	253 case VDI_CLUT_HARDWARE:
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	254 {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	255 int i;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	256 Uint16 *tmp_p;
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	257
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	258 tmp_p = (Uint16 *) & work_out[16];
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	259
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	260 for (i = 0; i < 256; i++) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	261 vdi_index[*tmp_p++] = i;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	262 }
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	263 }
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	264 break;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	265 case VDI_CLUT_SOFTWARE:
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	266 {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	267 int component; /* red, green, blue, alpha, overlay */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	268 int num_bit;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	269 unsigned short *tmp_p;
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	270
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	271 /* We can build masks with info here */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	272 tmp_p = (unsigned short *) &work_out[16];
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	273 for (component = 0; component < 5; component++) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	274 for (num_bit = 0; num_bit < 16; num_bit++) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	275 unsigned short valeur;
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	276
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	277 valeur = *tmp_p++;
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	278
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	279 if (valeur == 0xffff) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	280 continue;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	281 }
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	282
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	283 switch (component) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	284 case 0:
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	285 VDI_redmask \|= 1 << valeur;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	286 break;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	287 case 1:
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	288 VDI_greenmask \|= 1 << valeur;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	289 break;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	290 case 2:
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	291 VDI_bluemask \|= 1 << valeur;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	292 break;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	293 case 3:
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	294 VDI_alphamask \|= 1 << valeur;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	295 break;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	296 }
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	297 }
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	298 }
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	299 }
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	300
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	301 /* Remove lower green bits for Intel endian screen */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	302 if ((VDI_greenmask == ((7 << 13) \| 3))
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	303 \|\| (VDI_greenmask == ((7 << 13) \| 7))) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	304 VDI_greenmask &= ~(7 << 13);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	305 }
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	306 break;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	307 case VDI_CLUT_NONE:
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	308 break;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	309 }
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	310 }
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	311
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	312 int
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	313 GEM_VideoInit(_THIS, SDL_PixelFormat * vformat)
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	314 {
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	315 int i, menubar_size;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	316 short work_in[12], work_out[272], dummy;
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	317
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	318 /* Open AES (Application Environment Services) */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	319 if (appl_init() == -1) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	320 fprintf(stderr, "Can not open AES\n");
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	321 return 1;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	322 }
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	323
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	324 /* Read version and features */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	325 GEM_version = aes_global[0];
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	326 if (GEM_version >= 0x0410) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	327 short ap_gout[4], errorcode;
736 028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	328
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	329 GEM_wfeatures = 0;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	330 errorcode =
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	331 appl_getinfo(AES_WINDOW, &ap_gout[0], &ap_gout[1], &ap_gout[2],
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	332 &ap_gout[3]);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	333
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	334 if (errorcode == 0) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	335 GEM_wfeatures = ap_gout[0];
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	336 }
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	337 }
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	338
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	339 /* Ask VDI physical workstation handle opened by AES */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	340 VDI_handle = graf_handle(&dummy, &dummy, &dummy, &dummy);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	341 if (VDI_handle < 1) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	342 fprintf(stderr, "Wrong VDI handle %d returned by AES\n", VDI_handle);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	343 return 1;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	344 }
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	345
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	346 /* Open virtual VDI workstation */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	347 work_in[0] = Getrez() + 2;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	348 for (i = 1; i < 10; i++)
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	349 work_in[i] = 1;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	350 work_in[10] = 2;
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	351
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	352 v_opnvwk(work_in, &VDI_handle, work_out);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	353 if (VDI_handle == 0) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	354 fprintf(stderr, "Can not open VDI virtual workstation\n");
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	355 return 1;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	356 }
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	357
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	358 /* Read fullscreen size */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	359 VDI_w = work_out[0] + 1;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	360 VDI_h = work_out[1] + 1;
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	361
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	362 /* Read desktop size and position */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	363 if (!wind_get
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	364 (DESKTOP_HANDLE, WF_WORKXYWH, &GEM_desk_x, &GEM_desk_y, &GEM_desk_w,
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	365 &GEM_desk_h)) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	366 fprintf(stderr, "Can not read desktop properties\n");
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	367 return 1;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	368 }
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	369
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	370 /* Read bit depth */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	371 vq_extnd(VDI_handle, 1, work_out);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	372 VDI_bpp = work_out[4];
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	373 VDI_oldnumcolors = 0;
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	374
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	375 switch (VDI_bpp) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	376 case 8:
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	377 VDI_pixelsize = 1;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	378 break;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	379 case 15:
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	380 case 16:
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	381 VDI_pixelsize = 2;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	382 break;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	383 case 24:
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	384 VDI_pixelsize = 3;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	385 break;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	386 case 32:
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	387 VDI_pixelsize = 4;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	388 break;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	389 default:
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	390 fprintf(stderr, "%d bits colour depth not supported\n", VDI_bpp);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	391 return 1;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	392 }
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	393
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	394 /* Setup hardware -> VDI palette mapping */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	395 for (i = 16; i < 255; i++) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	396 vdi_index[i] = i;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	397 }
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	398 vdi_index[255] = 1;
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	399
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	400 /* Save current palette */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	401 if (VDI_bpp > 8) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	402 VDI_oldnumcolors = 1 << 8;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	403 } else {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	404 VDI_oldnumcolors = 1 << VDI_bpp;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	405 }
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	406
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	407 for (i = 0; i < VDI_oldnumcolors; i++) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	408 short rgb[3];
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	409
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	410 vq_color(VDI_handle, i, 0, rgb);
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	411
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	412 VDI_oldpalette[i][0] = rgb[0];
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	413 VDI_oldpalette[i][1] = rgb[1];
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	414 VDI_oldpalette[i][2] = rgb[2];
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	415 }
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	416 VDI_setpalette = GEM_SetNewPalette;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	417 SDL_memcpy(VDI_curpalette, VDI_oldpalette, sizeof(VDI_curpalette));
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	418
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	419 /* Setup screen info */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	420 GEM_title_name = empty_name;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	421 GEM_icon_name = empty_name;
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	422
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	423 GEM_handle = -1;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	424 GEM_locked = SDL_FALSE;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	425 GEM_win_fulled = SDL_FALSE;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	426 GEM_fullscreen = SDL_FALSE;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	427 GEM_lock_redraw = SDL_TRUE; /* Prevent redraw till buffers are setup */
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	428
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	429 VDI_screen = NULL;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	430 VDI_pitch = VDI_w * VDI_pixelsize;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	431 VDI_format = ((VDI_bpp <= 8) ? VDI_FORMAT_INTER : VDI_FORMAT_PACK);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	432 VDI_redmask = VDI_greenmask = VDI_bluemask = VDI_alphamask = 0;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	433 VDI_ReadExtInfo(this, work_out);
799 85960507bd2e Bugfixes: some info about current framebuffer overwritten by some default values, and screen width must be multiple of 16 pixels to work correctly Patrice Mandin <patmandin@gmail.com> parents: 769 diff changeset	434
85960507bd2e Bugfixes: some info about current framebuffer overwritten by some default values, and screen width must be multiple of 16 pixels to work correctly Patrice Mandin <patmandin@gmail.com> parents: 769 diff changeset	435 #ifdef DEBUG_VIDEO_GEM
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	436 printf("sdl:video:gem: screen: address=0x%08x, pitch=%d\n", VDI_screen,
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	437 VDI_pitch);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	438 printf("sdl:video:gem: format=%d\n", VDI_format);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	439 printf("sdl:video:gem: masks: 0x%08x, 0x%08x, 0x%08x, 0x%08x\n",
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	440 VDI_alphamask, VDI_redmask, VDI_greenmask, VDI_bluemask);
799 85960507bd2e Bugfixes: some info about current framebuffer overwritten by some default values, and screen width must be multiple of 16 pixels to work correctly Patrice Mandin <patmandin@gmail.com> parents: 769 diff changeset	441 #endif
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	442
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	443 /* Setup destination mfdb */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	444 VDI_dst_mfdb.fd_addr = NULL;
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	445
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	446 /* Determine the current screen size */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	447 this->info.current_w = VDI_w;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	448 this->info.current_h = VDI_h;
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	449
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	450 /* Determine the screen depth */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	451 /* we change this during the SDL_SetVideoMode implementation... */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	452 vformat->BitsPerPixel = VDI_bpp;
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	453
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	454 /* Set mouse cursor to arrow */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	455 graf_mouse(ARROW, NULL);
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	456
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	457 /* Init chunky to planar routine */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	458 SDL_Atari_C2pConvert = SDL_Atari_C2pConvert8;
736 028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	459
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	460 /* Setup VDI fill functions */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	461 vsf_color(VDI_handle, 0);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	462 vsf_interior(VDI_handle, 1);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	463 vsf_perimeter(VDI_handle, 0);
736 028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	464
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	465 /* Menu bar save buffer */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	466 menubar_size = GEM_desk_w * GEM_desk_y * VDI_pixelsize;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	467 GEM_menubar = Atari_SysMalloc(menubar_size, MX_PREFTTRAM);
1069 8b1c83edcde2 Restore and save menu bar when entering and exiting fullscreen mode Patrice Mandin <patmandin@gmail.com> parents: 1066 diff changeset	468
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	469 /* Fill video modes list */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	470 SDL_modelist[0] = SDL_malloc(sizeof(SDL_Rect));
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	471 SDL_modelist[0]->x = 0;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	472 SDL_modelist[0]->y = 0;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	473 SDL_modelist[0]->w = VDI_w;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	474 SDL_modelist[0]->h = VDI_h;
902 99f439d6ee4a Forgot to initialize video mode list Patrice Mandin <patmandin@gmail.com> parents: 800 diff changeset	475
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	476 SDL_modelist[1] = NULL;
902 99f439d6ee4a Forgot to initialize video mode list Patrice Mandin <patmandin@gmail.com> parents: 800 diff changeset	477
1361 19418e4422cb New configure-based build system. Still work in progress, but much improved Sam Lantinga <slouken@libsdl.org> parents: 1358 diff changeset	478 #if SDL_VIDEO_OPENGL
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	479 SDL_AtariGL_InitPointers(this);
736 028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	480 #endif
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	481
2106 2714a8976e37 GEM has a window manager, of course Patrice Mandin <patmandin@gmail.com> parents: 2043 diff changeset	482 this->info.wm_available = 1;
2714a8976e37 GEM has a window manager, of course Patrice Mandin <patmandin@gmail.com> parents: 2043 diff changeset	483
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	484 /* We're done! */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	485 return (0);
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	486 }
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	487
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	488 SDL_Rect **
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	489 GEM_ListModes(_THIS, SDL_PixelFormat * format, Uint32 flags)
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	490 {
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	491 if (format->BitsPerPixel != VDI_bpp) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	492 return ((SDL_Rect **) NULL);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	493 }
902 99f439d6ee4a Forgot to initialize video mode list Patrice Mandin <patmandin@gmail.com> parents: 800 diff changeset	494
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	495 if (flags & SDL_FULLSCREEN) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	496 return (SDL_modelist);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	497 }
902 99f439d6ee4a Forgot to initialize video mode list Patrice Mandin <patmandin@gmail.com> parents: 800 diff changeset	498
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	499 return ((SDL_Rect **) - 1);
281 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
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	502 static void
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	503 GEM_FreeBuffers(_THIS)
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	504 {
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	505 /* Release buffer */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	506 if (GEM_buffer2) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	507 Mfree(GEM_buffer2);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	508 GEM_buffer2 = NULL;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	509 }
736 028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	510
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	511 if (GEM_buffer1) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	512 Mfree(GEM_buffer1);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	513 GEM_buffer1 = NULL;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	514 }
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	515 }
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	516
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	517 static void
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	518 GEM_ClearRect(_THIS, short *rect)
736 028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	519 {
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	520 short oldrgb[3], rgb[3] = { 0, 0, 0 };
736 028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	521
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	522 vq_color(VDI_handle, vdi_index[0], 0, oldrgb);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	523 vs_color(VDI_handle, vdi_index[0], rgb);
736 028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	524
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	525 vsf_color(VDI_handle, 0);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	526 vsf_interior(VDI_handle, 1);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	527 vsf_perimeter(VDI_handle, 0);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	528 v_bar(VDI_handle, rect);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	529
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	530 vs_color(VDI_handle, vdi_index[0], oldrgb);
736 028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	531 }
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	532
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	533 static void
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	534 GEM_ClearScreen(_THIS)
319 189a6a3416c7 * empty log message * Sam Lantinga <slouken@libsdl.org> parents: 305 diff changeset	535 {
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	536 short pxy[4];
319 189a6a3416c7 * empty log message * Sam Lantinga <slouken@libsdl.org> parents: 305 diff changeset	537
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	538 v_hide_c(VDI_handle);
319 189a6a3416c7 * empty log message * Sam Lantinga <slouken@libsdl.org> parents: 305 diff changeset	539
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	540 pxy[0] = pxy[1] = 0;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	541 pxy[2] = VDI_w - 1;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	542 pxy[3] = VDI_h - 1;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	543 GEM_ClearRect(this, pxy);
319 189a6a3416c7 * empty log message * Sam Lantinga <slouken@libsdl.org> parents: 305 diff changeset	544
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	545 v_show_c(VDI_handle, 1);
319 189a6a3416c7 * empty log message * Sam Lantinga <slouken@libsdl.org> parents: 305 diff changeset	546 }
189a6a3416c7 * empty log message * Sam Lantinga <slouken@libsdl.org> parents: 305 diff changeset	547
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	548 static void
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	549 GEM_SetNewPalette(_THIS, Uint16 newpal[256][3])
1074 936da0056ed3 Save/restore system palette when application topped/untopped Patrice Mandin <patmandin@gmail.com> parents: 1072 diff changeset	550 {
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	551 int i;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	552 short rgb[3];
1074 936da0056ed3 Save/restore system palette when application topped/untopped Patrice Mandin <patmandin@gmail.com> parents: 1072 diff changeset	553
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	554 if (VDI_oldnumcolors == 0)
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	555 return;
1074 936da0056ed3 Save/restore system palette when application topped/untopped Patrice Mandin <patmandin@gmail.com> parents: 1072 diff changeset	556
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	557 for (i = 0; i < VDI_oldnumcolors; i++) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	558 rgb[0] = newpal[i][0];
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	559 rgb[1] = newpal[i][1];
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	560 rgb[2] = newpal[i][2];
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	561
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	562 vs_color(VDI_handle, i, rgb);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	563 }
1074 936da0056ed3 Save/restore system palette when application topped/untopped Patrice Mandin <patmandin@gmail.com> parents: 1072 diff changeset	564 }
936da0056ed3 Save/restore system palette when application topped/untopped Patrice Mandin <patmandin@gmail.com> parents: 1072 diff changeset	565
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	566 static void
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	567 GEM_LockScreen(_THIS)
319 189a6a3416c7 * empty log message * Sam Lantinga <slouken@libsdl.org> parents: 305 diff changeset	568 {
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	569 if (!GEM_locked) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	570 /* Lock AES */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	571 wind_update(BEG_UPDATE);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	572 wind_update(BEG_MCTRL);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	573 /* Reserve memory space, used to be sure of compatibility */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	574 form_dial(FMD_START, 0, 0, 0, 0, 0, 0, VDI_w, VDI_h);
319 189a6a3416c7 * empty log message * Sam Lantinga <slouken@libsdl.org> parents: 305 diff changeset	575
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	576 /* Save menu bar */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	577 if (GEM_menubar) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	578 MFDB mfdb_src;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	579 short blitcoords[8];
1069 8b1c83edcde2 Restore and save menu bar when entering and exiting fullscreen mode Patrice Mandin <patmandin@gmail.com> parents: 1066 diff changeset	580
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	581 mfdb_src.fd_addr = GEM_menubar;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	582 mfdb_src.fd_w = GEM_desk_w;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	583 mfdb_src.fd_h = GEM_desk_y;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	584 mfdb_src.fd_wdwidth = GEM_desk_w >> 4;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	585 mfdb_src.fd_nplanes = VDI_bpp;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	586 mfdb_src.fd_stand =
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	587 mfdb_src.fd_r1 = mfdb_src.fd_r2 = mfdb_src.fd_r3 = 0;
1069 8b1c83edcde2 Restore and save menu bar when entering and exiting fullscreen mode Patrice Mandin <patmandin@gmail.com> parents: 1066 diff changeset	588
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	589 blitcoords[0] = blitcoords[4] = 0;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	590 blitcoords[1] = blitcoords[5] = 0;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	591 blitcoords[2] = blitcoords[6] = GEM_desk_w - 1;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	592 blitcoords[3] = blitcoords[7] = GEM_desk_y - 1;
1069 8b1c83edcde2 Restore and save menu bar when entering and exiting fullscreen mode Patrice Mandin <patmandin@gmail.com> parents: 1066 diff changeset	593
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	594 vro_cpyfm(VDI_handle, S_ONLY, blitcoords, &VDI_dst_mfdb,
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	595 &mfdb_src);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	596 }
1069 8b1c83edcde2 Restore and save menu bar when entering and exiting fullscreen mode Patrice Mandin <patmandin@gmail.com> parents: 1066 diff changeset	597
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	598 GEM_locked = SDL_TRUE;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	599 }
319 189a6a3416c7 * empty log message * Sam Lantinga <slouken@libsdl.org> parents: 305 diff changeset	600 }
189a6a3416c7 * empty log message * Sam Lantinga <slouken@libsdl.org> parents: 305 diff changeset	601
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	602 static void
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	603 GEM_UnlockScreen(_THIS)
319 189a6a3416c7 * empty log message * Sam Lantinga <slouken@libsdl.org> parents: 305 diff changeset	604 {
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	605 if (GEM_locked) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	606 /* Restore menu bar */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	607 if (GEM_menubar) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	608 MFDB mfdb_src;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	609 short blitcoords[8];
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	610
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	611 mfdb_src.fd_addr = GEM_menubar;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	612 mfdb_src.fd_w = GEM_desk_w;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	613 mfdb_src.fd_h = GEM_desk_y;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	614 mfdb_src.fd_wdwidth = GEM_desk_w >> 4;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	615 mfdb_src.fd_nplanes = VDI_bpp;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	616 mfdb_src.fd_stand =
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	617 mfdb_src.fd_r1 = mfdb_src.fd_r2 = mfdb_src.fd_r3 = 0;
1069 8b1c83edcde2 Restore and save menu bar when entering and exiting fullscreen mode Patrice Mandin <patmandin@gmail.com> parents: 1066 diff changeset	618
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	619 blitcoords[0] = blitcoords[4] = 0;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	620 blitcoords[1] = blitcoords[5] = 0;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	621 blitcoords[2] = blitcoords[6] = GEM_desk_w - 1;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	622 blitcoords[3] = blitcoords[7] = GEM_desk_y - 1;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	623
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	624 vro_cpyfm(VDI_handle, S_ONLY, blitcoords, &mfdb_src,
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	625 &VDI_dst_mfdb);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	626 }
1069 8b1c83edcde2 Restore and save menu bar when entering and exiting fullscreen mode Patrice Mandin <patmandin@gmail.com> parents: 1066 diff changeset	627
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	628 /* Restore screen memory, and send REDRAW to all apps */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	629 form_dial(FMD_FINISH, 0, 0, 0, 0, 0, 0, VDI_w, VDI_h);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	630 /* Unlock AES */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	631 wind_update(END_MCTRL);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	632 wind_update(END_UPDATE);
1069 8b1c83edcde2 Restore and save menu bar when entering and exiting fullscreen mode Patrice Mandin <patmandin@gmail.com> parents: 1066 diff changeset	633
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	634 GEM_locked = SDL_FALSE;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	635 }
319 189a6a3416c7 * empty log message * Sam Lantinga <slouken@libsdl.org> parents: 305 diff changeset	636 }
189a6a3416c7 * empty log message * Sam Lantinga <slouken@libsdl.org> parents: 305 diff changeset	637
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	638 SDL_Surface *
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	639 GEM_SetVideoMode(_THIS, SDL_Surface * current,
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	640 int width, int height, int bpp, Uint32 flags)
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	641 {
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	642 Uint32 modeflags, screensize;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	643 SDL_bool use_shadow1, use_shadow2;
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	644
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	645 /* width must be multiple of 16, for vro_cpyfm() and c2p_convert() */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	646 if ((width & 15) != 0) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	647 width = (width \| 15) + 1;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	648 }
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	649
2108 a930c8e4d8b0 Allow creation of window bigger than visible size Patrice Mandin <patmandin@gmail.com> parents: 2107 diff changeset	650 /--- Verify if asked mode can be used ---/
a930c8e4d8b0 Allow creation of window bigger than visible size Patrice Mandin <patmandin@gmail.com> parents: 2107 diff changeset	651 if (VDI_bpp != bpp) {
a930c8e4d8b0 Allow creation of window bigger than visible size Patrice Mandin <patmandin@gmail.com> parents: 2107 diff changeset	652 SDL_SetError("%d bpp mode not supported", bpp);
2120 2c835d58faad make indent Sam Lantinga <slouken@libsdl.org> parents: 2108 diff changeset	653 return (NULL);
2108 a930c8e4d8b0 Allow creation of window bigger than visible size Patrice Mandin <patmandin@gmail.com> parents: 2107 diff changeset	654 }
a930c8e4d8b0 Allow creation of window bigger than visible size Patrice Mandin <patmandin@gmail.com> parents: 2107 diff changeset	655
a930c8e4d8b0 Allow creation of window bigger than visible size Patrice Mandin <patmandin@gmail.com> parents: 2107 diff changeset	656 if (flags & SDL_FULLSCREEN) {
a930c8e4d8b0 Allow creation of window bigger than visible size Patrice Mandin <patmandin@gmail.com> parents: 2107 diff changeset	657 if ((VDI_w < width) \|\| (VDI_h < height)) {
a930c8e4d8b0 Allow creation of window bigger than visible size Patrice Mandin <patmandin@gmail.com> parents: 2107 diff changeset	658 SDL_SetError("%dx%d mode is too large", width, height);
a930c8e4d8b0 Allow creation of window bigger than visible size Patrice Mandin <patmandin@gmail.com> parents: 2107 diff changeset	659 return (NULL);
a930c8e4d8b0 Allow creation of window bigger than visible size Patrice Mandin <patmandin@gmail.com> parents: 2107 diff changeset	660 }
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	661 }
799 85960507bd2e Bugfixes: some info about current framebuffer overwritten by some default values, and screen width must be multiple of 16 pixels to work correctly Patrice Mandin <patmandin@gmail.com> parents: 769 diff changeset	662
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	663 /--- Allocate the new pixel format for the screen ---/
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	664 if (!SDL_ReallocFormat
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	665 (current, VDI_bpp, VDI_redmask, VDI_greenmask, VDI_bluemask,
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	666 VDI_alphamask)) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	667 SDL_SetError("Couldn't allocate new pixel format for requested mode");
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	668 return (NULL);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	669 }
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	670
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	671 screensize = width * height * VDI_pixelsize;
736 028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	672
799 85960507bd2e Bugfixes: some info about current framebuffer overwritten by some default values, and screen width must be multiple of 16 pixels to work correctly Patrice Mandin <patmandin@gmail.com> parents: 769 diff changeset	673 #ifdef DEBUG_VIDEO_GEM
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	674 printf("sdl:video:gem: setvideomode(): %dx%dx%d = %d\n", width, height,
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	675 bpp, screensize);
799 85960507bd2e Bugfixes: some info about current framebuffer overwritten by some default values, and screen width must be multiple of 16 pixels to work correctly Patrice Mandin <patmandin@gmail.com> parents: 769 diff changeset	676 #endif
85960507bd2e Bugfixes: some info about current framebuffer overwritten by some default values, and screen width must be multiple of 16 pixels to work correctly Patrice Mandin <patmandin@gmail.com> parents: 769 diff changeset	677
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	678 /--- Allocate shadow buffers if needed, and conversion operations ---/
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	679 GEM_FreeBuffers(this);
925 15ff92ae7e1b Do not destroy window on resize, so we can go back to original size from maximized size Patrice Mandin <patmandin@gmail.com> parents: 924 diff changeset	680
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	681 GEM_bufops = 0;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	682 use_shadow1 = use_shadow2 = SDL_FALSE;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	683 if (VDI_screen && (flags & SDL_FULLSCREEN)) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	684 if (VDI_format == VDI_FORMAT_INTER) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	685 use_shadow1 = SDL_TRUE;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	686 GEM_bufops = B2S_C2P_1TOS;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	687 }
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	688 } else {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	689 use_shadow1 = SDL_TRUE;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	690 if (VDI_format == VDI_FORMAT_PACK) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	691 GEM_bufops = B2S_VROCPYFM_1TOS;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	692 } else {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	693 use_shadow2 = SDL_TRUE;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	694 GEM_bufops = B2S_C2P_1TO2 \| B2S_VROCPYFM_2TOS;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	695 }
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	696 }
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	697
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	698 if (use_shadow1) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	699 GEM_buffer1 = Atari_SysMalloc(screensize, MX_PREFTTRAM);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	700 if (GEM_buffer1 == NULL) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	701 SDL_SetError("Can not allocate %d KB for frame buffer",
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	702 screensize >> 10);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	703 return NULL;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	704 }
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	705 SDL_memset(GEM_buffer1, 0, screensize);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	706 #ifdef DEBUG_VIDEO_GEM
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	707 printf("sdl:video:gem: setvideomode(): allocated buffer 1\n");
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	708 #endif
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	709 }
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	710
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	711 if (use_shadow2) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	712 GEM_buffer2 = Atari_SysMalloc(screensize, MX_PREFTTRAM);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	713 if (GEM_buffer2 == NULL) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	714 SDL_SetError("Can not allocate %d KB for shadow buffer",
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	715 screensize >> 10);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	716 return NULL;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	717 }
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	718 SDL_memset(GEM_buffer2, 0, screensize);
736 028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	719 #ifdef DEBUG_VIDEO_GEM
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	720 printf("sdl:video:gem: setvideomode(): allocated buffer 2\n");
736 028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	721 #endif
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	722 }
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	723
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	724 /--- Initialize screen ---/
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	725 modeflags = SDL_PREALLOC;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	726 if (VDI_bpp == 8) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	727 modeflags \|= SDL_HWPALETTE;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	728 }
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	729
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	730 if (flags & SDL_FULLSCREEN) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	731 GEM_LockScreen(this);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	732
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	733 GEM_ClearScreen(this);
736 028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	734
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	735 modeflags \|= SDL_FULLSCREEN;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	736 if (VDI_screen && (VDI_format == VDI_FORMAT_PACK) && !use_shadow1) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	737 modeflags \|= SDL_HWSURFACE;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	738 } else {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	739 modeflags \|= SDL_SWSURFACE;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	740 }
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	741
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	742 GEM_fullscreen = SDL_TRUE;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	743 } else {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	744 int old_win_type;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	745 short x2, y2, w2, h2;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	746
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	747 GEM_UnlockScreen(this);
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	748
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	749 /* Set window gadgets */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	750 old_win_type = GEM_win_type;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	751 if (!(flags & SDL_NOFRAME)) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	752 GEM_win_type = NAME \| MOVER \| CLOSER \| SMALLER;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	753 if (flags & SDL_RESIZABLE) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	754 GEM_win_type \|= FULLER \| SIZER;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	755 modeflags \|= SDL_RESIZABLE;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	756 }
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	757 } else {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	758 GEM_win_type = 0;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	759 modeflags \|= SDL_NOFRAME;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	760 }
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	761 modeflags \|= SDL_SWSURFACE;
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	762
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	763 /* Recreate window ? only for different widget or non-created window */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	764 if ((old_win_type != GEM_win_type) \|\| (GEM_handle < 0)) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	765 /* Calculate window size */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	766 if (!wind_calc
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	767 (WC_BORDER, GEM_win_type, 0, 0, width, height, &x2, &y2,
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	768 &w2, &h2)) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	769 GEM_FreeBuffers(this);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	770 SDL_SetError("Can not calculate window attributes");
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	771 return NULL;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	772 }
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	773
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	774 /* Center window */
2108 a930c8e4d8b0 Allow creation of window bigger than visible size Patrice Mandin <patmandin@gmail.com> parents: 2107 diff changeset	775 x2 = (GEM_desk_w - w2) >> 1;
a930c8e4d8b0 Allow creation of window bigger than visible size Patrice Mandin <patmandin@gmail.com> parents: 2107 diff changeset	776 y2 = (GEM_desk_h - h2) >> 1;
2120 2c835d58faad make indent Sam Lantinga <slouken@libsdl.org> parents: 2108 diff changeset	777 if (x2 < 0) {
2108 a930c8e4d8b0 Allow creation of window bigger than visible size Patrice Mandin <patmandin@gmail.com> parents: 2107 diff changeset	778 x2 = 0;
a930c8e4d8b0 Allow creation of window bigger than visible size Patrice Mandin <patmandin@gmail.com> parents: 2107 diff changeset	779 }
2120 2c835d58faad make indent Sam Lantinga <slouken@libsdl.org> parents: 2108 diff changeset	780 if (y2 < 0) {
2108 a930c8e4d8b0 Allow creation of window bigger than visible size Patrice Mandin <patmandin@gmail.com> parents: 2107 diff changeset	781 y2 = 0;
a930c8e4d8b0 Allow creation of window bigger than visible size Patrice Mandin <patmandin@gmail.com> parents: 2107 diff changeset	782 }
a930c8e4d8b0 Allow creation of window bigger than visible size Patrice Mandin <patmandin@gmail.com> parents: 2107 diff changeset	783 x2 += GEM_desk_x;
a930c8e4d8b0 Allow creation of window bigger than visible size Patrice Mandin <patmandin@gmail.com> parents: 2107 diff changeset	784 y2 += GEM_desk_y;
926 83db694556eb Give mouse position relative to window position, and do not generate mouse button event if outside of the window Patrice Mandin <patmandin@gmail.com> parents: 925 diff changeset	785
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	786 /* Destroy existing window */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	787 if (GEM_handle >= 0) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	788 wind_close(GEM_handle);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	789 wind_delete(GEM_handle);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	790 }
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	791
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	792 /* Create window */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	793 GEM_handle = wind_create(GEM_win_type, x2, y2, w2, h2);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	794 if (GEM_handle < 0) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	795 GEM_FreeBuffers(this);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	796 SDL_SetError("Can not create window");
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	797 return NULL;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	798 }
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	799 #ifdef DEBUG_VIDEO_GEM
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	800 printf("sdl:video:gem: handle=%d\n", GEM_handle);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	801 #endif
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	802
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	803 /* Setup window name */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	804 wind_set(GEM_handle, WF_NAME,
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	805 (short) (((unsigned long) GEM_title_name) >> 16),
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	806 (short) (((unsigned long) GEM_title_name) & 0xffff),
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	807 0, 0);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	808 GEM_refresh_name = SDL_FALSE;
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	809
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	810 /* Open the window */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	811 wind_open(GEM_handle, x2, y2, w2, h2);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	812 } else {
2107 757dfb38f574 Simply resize existing window Patrice Mandin <patmandin@gmail.com> parents: 2106 diff changeset	813 /* Resize window to fit asked video mode */
2120 2c835d58faad make indent Sam Lantinga <slouken@libsdl.org> parents: 2108 diff changeset	814 wind_get(GEM_handle, WF_WORKXYWH, &x2, &y2, &w2, &h2);
2c835d58faad make indent Sam Lantinga <slouken@libsdl.org> parents: 2108 diff changeset	815 if (wind_calc
2c835d58faad make indent Sam Lantinga <slouken@libsdl.org> parents: 2108 diff changeset	816 (WC_BORDER, GEM_win_type, x2, y2, width, height, &x2, &y2,
2c835d58faad make indent Sam Lantinga <slouken@libsdl.org> parents: 2108 diff changeset	817 &w2, &h2)) {
2c835d58faad make indent Sam Lantinga <slouken@libsdl.org> parents: 2108 diff changeset	818 wind_set(GEM_handle, WF_CURRXYWH, x2, y2, w2, h2);
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	819 }
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	820 }
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	821
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	822 GEM_fullscreen = SDL_FALSE;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	823 }
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	824
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	825 /* Set up the new mode framebuffer */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	826 current->w = width;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	827 current->h = height;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	828 if (use_shadow1) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	829 current->pixels = GEM_buffer1;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	830 current->pitch = width * VDI_pixelsize;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	831 } else {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	832 current->pixels = VDI_screen;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	833 current->pitch = VDI_pitch;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	834 }
923 2748679027ff Correctly center window on creation Patrice Mandin <patmandin@gmail.com> parents: 921 diff changeset	835
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	836 #if SDL_VIDEO_OPENGL
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	837 if (flags & SDL_INTERNALOPENGL) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	838 if (!SDL_AtariGL_Init(this, current)) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	839 GEM_FreeBuffers(this);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	840 SDL_SetError("Can not create OpenGL context");
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	841 return NULL;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	842 }
925 15ff92ae7e1b Do not destroy window on resize, so we can go back to original size from maximized size Patrice Mandin <patmandin@gmail.com> parents: 924 diff changeset	843
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	844 modeflags \|= SDL_INTERNALOPENGL;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	845 }
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	846 #endif
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	847
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	848 current->flags = modeflags;
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	849
736 028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	850 #ifdef DEBUG_VIDEO_GEM
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	851 printf("sdl:video:gem: surface: %dx%d\n", current->w, current->h);
736 028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	852 #endif
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	853
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	854 this->UpdateRects = GEM_UpdateRects;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	855 GEM_lock_redraw = SDL_FALSE; /* Enable redraw */
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	856
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	857 /* We're done */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	858 return (current);
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	859 }
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	860
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	861 static int
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	862 GEM_AllocHWSurface(_THIS, SDL_Surface * surface)
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	863 {
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	864 return -1;
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	865 }
800 60a4293ffea9 When commiting code, cleanup before doing it Patrice Mandin <patmandin@gmail.com> parents: 799 diff changeset	866
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	867 static void
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	868 GEM_FreeHWSurface(_THIS, SDL_Surface * surface)
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	869 {
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	870 return;
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	871 }
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	872
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	873 static int
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	874 GEM_LockHWSurface(_THIS, SDL_Surface * surface)
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	875 {
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	876 return (0);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	877 }
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	878
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	879 static void
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	880 GEM_UnlockHWSurface(_THIS, SDL_Surface * surface)
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	881 {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	882 return;
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	883 }
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	884
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	885 static void
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	886 GEM_UpdateRectsFullscreen(_THIS, int numrects, SDL_Rect * rects)
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	887 {
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	888 SDL_Surface *surface;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	889 int i, surf_width;
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	890
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	891 surface = this->screen;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	892 /* Need to be a multiple of 16 pixels */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	893 surf_width = surface->w;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	894 if ((surf_width & 15) != 0) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	895 surf_width = (surf_width \| 15) + 1;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	896 }
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	897
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	898 if (GEM_bufops & (B2S_C2P_1TO2 \| B2S_C2P_1TOS)) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	899 void *destscr;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	900 int destpitch;
736 028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	901
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	902 if (GEM_bufops & B2S_C2P_1TOS) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	903 destscr = VDI_screen;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	904 destpitch = VDI_pitch;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	905 } else {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	906 destscr = GEM_buffer2;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	907 destpitch = surface->pitch;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	908 }
319 189a6a3416c7 * empty log message * Sam Lantinga <slouken@libsdl.org> parents: 305 diff changeset	909
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	910 for (i = 0; i < numrects; i++) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	911 void source, destination;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	912 int x1, x2;
319 189a6a3416c7 * empty log message * Sam Lantinga <slouken@libsdl.org> parents: 305 diff changeset	913
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	914 x1 = rects[i].x & ~15;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	915 x2 = rects[i].x + rects[i].w;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	916 if (x2 & 15) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	917 x2 = (x2 \| 15) + 1;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	918 }
319 189a6a3416c7 * empty log message * Sam Lantinga <slouken@libsdl.org> parents: 305 diff changeset	919
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	920 source = surface->pixels;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	921 source += surface->pitch * rects[i].y;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	922 source += x1;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	923
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	924 destination = destscr;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	925 destination += destpitch * rects[i].y;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	926 destination += x1;
736 028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	927
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	928 SDL_Atari_C2pConvert(source, destination,
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	929 x2 - x1, rects[i].h,
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	930 SDL_FALSE, surface->pitch, destpitch);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	931 }
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	932 }
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	933
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	934 if (GEM_bufops & (B2S_VROCPYFM_1TOS \| B2S_VROCPYFM_2TOS)) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	935 MFDB mfdb_src;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	936 short blitcoords[8];
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	937
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	938 mfdb_src.fd_addr = surface->pixels;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	939 mfdb_src.fd_w = surf_width;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	940 mfdb_src.fd_h = surface->h;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	941 mfdb_src.fd_wdwidth = (surface->pitch / VDI_pixelsize) >> 4;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	942 mfdb_src.fd_nplanes = surface->format->BitsPerPixel;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	943 mfdb_src.fd_stand =
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	944 mfdb_src.fd_r1 = mfdb_src.fd_r2 = mfdb_src.fd_r3 = 0;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	945 if (GEM_bufops & B2S_VROCPYFM_2TOS) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	946 mfdb_src.fd_addr = GEM_buffer2;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	947 }
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	948
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	949 for (i = 0; i < numrects; ++i) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	950 blitcoords[0] = blitcoords[4] = rects[i].x;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	951 blitcoords[1] = blitcoords[5] = rects[i].y;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	952 blitcoords[2] = blitcoords[6] = rects[i].x + rects[i].w - 1;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	953 blitcoords[3] = blitcoords[7] = rects[i].y + rects[i].h - 1;
736 028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	954
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	955 vro_cpyfm(VDI_handle, S_ONLY, blitcoords, &mfdb_src,
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	956 &VDI_dst_mfdb);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	957 }
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	958 }
281 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
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	961 static void
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	962 GEM_UpdateRectsWindowed(_THIS, int numrects, SDL_Rect * rects)
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	963 {
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	964 short pxy[4], wind_pxy[4];
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	965 int i;
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	966
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	967 if (wind_get
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	968 (GEM_handle, WF_WORKXYWH, &wind_pxy[0], &wind_pxy[1], &wind_pxy[2],
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	969 &wind_pxy[3]) == 0) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	970 return;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	971 }
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	972
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	973 for (i = 0; i < numrects; ++i) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	974 pxy[0] = wind_pxy[0] + rects[i].x;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	975 pxy[1] = wind_pxy[1] + rects[i].y;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	976 pxy[2] = rects[i].w;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	977 pxy[3] = rects[i].h;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	978
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	979 GEM_wind_redraw(this, GEM_handle, pxy);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	980 }
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	981 }
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	982
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	983 static void
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	984 GEM_UpdateRects(_THIS, int numrects, SDL_Rect * rects)
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	985 {
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	986 SDL_Surface *surface;
964 d9209754ebee Prevent redraws till internal buffers are correctly setup Patrice Mandin <patmandin@gmail.com> parents: 959 diff changeset	987
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	988 if (GEM_lock_redraw) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	989 return;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	990 }
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	991
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	992 surface = this->screen;
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	993
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	994 if (surface->flags & SDL_FULLSCREEN) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	995 GEM_UpdateRectsFullscreen(this, numrects, rects);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	996 } else {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	997 GEM_UpdateRectsWindowed(this, numrects, rects);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	998 }
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	999 }
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	1000
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1001 static int
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1002 GEM_FlipHWSurfaceFullscreen(_THIS, SDL_Surface * surface)
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	1003 {
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1004 int surf_width;
799 85960507bd2e Bugfixes: some info about current framebuffer overwritten by some default values, and screen width must be multiple of 16 pixels to work correctly Patrice Mandin <patmandin@gmail.com> parents: 769 diff changeset	1005
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1006 /* Need to be a multiple of 16 pixels */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1007 surf_width = surface->w;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1008 if ((surf_width & 15) != 0) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1009 surf_width = (surf_width \| 15) + 1;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1010 }
799 85960507bd2e Bugfixes: some info about current framebuffer overwritten by some default values, and screen width must be multiple of 16 pixels to work correctly Patrice Mandin <patmandin@gmail.com> parents: 769 diff changeset	1011
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1012 if (GEM_bufops & (B2S_C2P_1TO2 \| B2S_C2P_1TOS)) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1013 void *destscr;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1014 int destpitch;
319 189a6a3416c7 * empty log message * Sam Lantinga <slouken@libsdl.org> parents: 305 diff changeset	1015
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1016 if (GEM_bufops & B2S_C2P_1TOS) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1017 destscr = VDI_screen;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1018 destpitch = VDI_pitch;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1019 } else {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1020 destscr = GEM_buffer2;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1021 destpitch = surface->pitch;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1022 }
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	1023
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1024 SDL_Atari_C2pConvert(surface->pixels, destscr,
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1025 surf_width, surface->h,
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1026 SDL_FALSE, surface->pitch, destpitch);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1027 }
736 028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	1028
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1029 if (GEM_bufops & (B2S_VROCPYFM_1TOS \| B2S_VROCPYFM_2TOS)) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1030 MFDB mfdb_src;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1031 short blitcoords[8];
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	1032
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1033 mfdb_src.fd_w = surf_width;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1034 mfdb_src.fd_h = surface->h;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1035 mfdb_src.fd_wdwidth = mfdb_src.fd_w >> 4;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1036 mfdb_src.fd_nplanes = surface->format->BitsPerPixel;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1037 mfdb_src.fd_stand =
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1038 mfdb_src.fd_r1 = mfdb_src.fd_r2 = mfdb_src.fd_r3 = 0;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1039 if (GEM_bufops & B2S_VROCPYFM_1TOS) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1040 mfdb_src.fd_addr = surface->pixels;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1041 } else {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1042 mfdb_src.fd_addr = GEM_buffer2;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1043 }
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	1044
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1045 blitcoords[0] = blitcoords[4] = 0;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1046 blitcoords[1] = blitcoords[5] = 0;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1047 blitcoords[2] = blitcoords[6] = surface->w - 1;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1048 blitcoords[3] = blitcoords[7] = surface->h - 1;
736 028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	1049
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1050 vro_cpyfm(VDI_handle, S_ONLY, blitcoords, &mfdb_src, &VDI_dst_mfdb);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1051 }
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	1052
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1053 return (0);
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	1054 }
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	1055
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1056 static int
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1057 GEM_FlipHWSurfaceWindowed(_THIS, SDL_Surface * surface)
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	1058 {
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1059 short pxy[8];
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	1060
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1061 /* Update the whole window */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1062 wind_get(GEM_handle, WF_WORKXYWH, &pxy[0], &pxy[1], &pxy[2], &pxy[3]);
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	1063
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1064 GEM_wind_redraw(this, GEM_handle, pxy);
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	1065
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1066 return (0);
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	1067 }
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	1068
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1069 static int
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1070 GEM_FlipHWSurface(_THIS, SDL_Surface * surface)
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	1071 {
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1072 if (GEM_lock_redraw) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1073 return (0);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1074 }
964 d9209754ebee Prevent redraws till internal buffers are correctly setup Patrice Mandin <patmandin@gmail.com> parents: 959 diff changeset	1075
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1076 if (surface->flags & SDL_FULLSCREEN) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1077 return GEM_FlipHWSurfaceFullscreen(this, surface);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1078 } else {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1079 return GEM_FlipHWSurfaceWindowed(this, surface);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1080 }
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	1081 }
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	1082
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1083 static int
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1084 GEM_SetColors(_THIS, int firstcolor, int ncolors, SDL_Color * colors)
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	1085 {
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1086 int i;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1087 SDL_Surface *surface;
281 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 #ifdef DEBUG_VIDEO_GEM
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1090 printf("sdl:video:gem: setcolors()\n");
736 028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	1091 #endif
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	1092
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1093 /* Do not change palette in True Colour */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1094 surface = this->screen;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1095 if (surface->format->BitsPerPixel > 8) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1096 return 1;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1097 }
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	1098
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1099 for (i = 0; i < ncolors; i++) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1100 int r, g, b;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1101 short rgb[3];
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	1102
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1103 r = colors[i].r;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1104 g = colors[i].g;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1105 b = colors[i].b;
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	1106
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1107 rgb[0] = VDI_curpalette[i][0] = (1000 * r) / 255;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1108 rgb[1] = VDI_curpalette[i][1] = (1000 * g) / 255;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1109 rgb[2] = VDI_curpalette[i][2] = (1000 * b) / 255;
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	1110
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1111 vs_color(VDI_handle, vdi_index[firstcolor + i], rgb);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1112 }
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	1113
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1114 return (1);
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	1115 }
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	1116
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	1117 #if 0
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1118 static int
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1119 GEM_ToggleFullScreen(_THIS, int on)
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	1120 {
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1121 if (on) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1122 GEM_LockScreen(this);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1123 } else {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1124 GEM_UnlockScreen(this);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1125 }
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	1126
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1127 return (1);
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	1128 }
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	1129 #endif
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	1130
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	1131 /* 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	1132 another SDL video routine -- notably UpdateRects.
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	1133 */
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1134 void
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1135 GEM_VideoQuit(_THIS)
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	1136 {
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1137 SDL_AtariXbios_RestoreVectors();
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1138 if (GEM_usedevmouse) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1139 SDL_AtariDevMouse_Close();
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1140 }
305 9c6613983e85 Atari port cleanups from Patrice Sam Lantinga <slouken@libsdl.org> parents: 297 diff changeset	1141
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1142 GEM_FreeBuffers(this);
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	1143
1361 19418e4422cb New configure-based build system. Still work in progress, but much improved Sam Lantinga <slouken@libsdl.org> parents: 1358 diff changeset	1144 #if SDL_VIDEO_OPENGL
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1145 if (gl_active) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1146 SDL_AtariGL_Quit(this, SDL_TRUE);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1147 }
992 0324ce32b2d9 Keep current OpenGL context when possible Patrice Mandin <patmandin@gmail.com> parents: 991 diff changeset	1148 #endif
0324ce32b2d9 Keep current OpenGL context when possible Patrice Mandin <patmandin@gmail.com> parents: 991 diff changeset	1149
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1150 /* Destroy window */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1151 if (GEM_handle >= 0) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1152 wind_close(GEM_handle);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1153 wind_delete(GEM_handle);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1154 GEM_handle = -1;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1155 }
925 15ff92ae7e1b Do not destroy window on resize, so we can go back to original size from maximized size Patrice Mandin <patmandin@gmail.com> parents: 924 diff changeset	1156
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1157 GEM_UnlockScreen(this);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1158 if (GEM_menubar) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1159 Mfree(GEM_menubar);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1160 GEM_menubar = NULL;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1161 }
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	1162
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1163 appl_exit();
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	1164
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1165 GEM_SetNewPalette(this, VDI_oldpalette);
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	1166
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1167 /* Close VDI workstation */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1168 if (VDI_handle) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1169 v_clsvwk(VDI_handle);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1170 }
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	1171
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1172 /* Free mode list */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1173 if (SDL_modelist[0]) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1174 SDL_free(SDL_modelist[0]);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1175 SDL_modelist[0] = NULL;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1176 }
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	1177
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1178 this->screen->pixels = NULL;
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	1179 }
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	1180
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1181 void
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1182 GEM_wind_redraw(_THIS, int winhandle, short *inside)
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	1183 {
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1184 short todo[4];
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	1185
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1186 /* Tell AES we are going to update */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1187 wind_update(BEG_UPDATE);
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	1188
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1189 v_hide_c(VDI_handle);
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	1190
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1191 /* Browse the rectangle list to redraw */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1192 if (wind_get
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1193 (winhandle, WF_FIRSTXYWH, &todo[0], &todo[1], &todo[2],
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1194 &todo[3]) != 0) {
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	1195
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1196 while (todo[2] && todo[3]) {
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	1197
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1198 if (rc_intersect((GRECT ) inside, (GRECT ) todo)) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1199 todo[2] += todo[0] - 1;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1200 todo[3] += todo[1] - 1;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1201 refresh_window(this, winhandle, todo);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1202 }
736 028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	1203
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1204 if (wind_get
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1205 (winhandle, WF_NEXTXYWH, &todo[0], &todo[1], &todo[2],
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1206 &todo[3]) == 0) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1207 break;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1208 }
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1209 }
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	1210
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1211 }
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	1212
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1213 /* Update finished */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1214 wind_update(END_UPDATE);
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	1215
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1216 v_show_c(VDI_handle, 1);
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	1217 }
c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	1218
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1219 static void
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1220 refresh_window(_THIS, int winhandle, short *rect)
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	1221 {
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1222 MFDB mfdb_src;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1223 short pxy[8], wind_pxy[8];
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1224 SDL_Surface *surface;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1225 int iconified;
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	1226
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1227 /* Is window iconified ? */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1228 iconified = 0;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1229 /* if (GEM_wfeatures & (1<<WF_ICONIFY))*/
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1230 {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1231 if (wind_get
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1232 (winhandle, WF_ICONIFY, &wind_pxy[0], &wind_pxy[1], &wind_pxy[2],
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1233 &wind_pxy[3]) != 0) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1234 iconified = wind_pxy[0];
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1235 }
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1236 }
736 028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	1237
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1238 if (wind_get
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1239 (winhandle, WF_WORKXYWH, &wind_pxy[0], &wind_pxy[1], &wind_pxy[2],
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1240 &wind_pxy[3]) == 0) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1241 return;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1242 }
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	1243
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1244 if (iconified && GEM_icon) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1245 short icon_rect[4], dst_rect[4];
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1246 short iconx, icony;
736 028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	1247
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1248 surface = GEM_icon;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1249
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1250 GEM_ClearRect(this, rect);
737 7e4347dd2f9c Small fix for iconification Patrice Mandin <patmandin@gmail.com> parents: 736 diff changeset	1251
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1252 /* Calculate centered icon(x,y,w,h) relative to window */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1253 iconx = (wind_pxy[2] - surface->w) >> 1;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1254 icony = (wind_pxy[3] - surface->h) >> 1;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1255
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1256 icon_rect[0] = iconx;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1257 icon_rect[1] = icony;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1258 icon_rect[2] = surface->w;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1259 icon_rect[3] = surface->h;
736 028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	1260
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1261 /* Calculate redraw rectangle(x,y,w,h) relative to window */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1262 dst_rect[0] = rect[0] - wind_pxy[0];
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1263 dst_rect[1] = rect[1] - wind_pxy[1];
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1264 dst_rect[2] = rect[2] - rect[0] + 1;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1265 dst_rect[3] = rect[3] - rect[1] + 1;
736 028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	1266
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1267 /* Does the icon rectangle must be redrawn ? */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1268 if (!rc_intersect((GRECT ) icon_rect, (GRECT ) dst_rect)) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1269 return;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1270 }
799 85960507bd2e Bugfixes: some info about current framebuffer overwritten by some default values, and screen width must be multiple of 16 pixels to work correctly Patrice Mandin <patmandin@gmail.com> parents: 769 diff changeset	1271 #if DEBUG_VIDEO_GEM
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1272 printf("sdl:video:gem: clip(0,0,%d,%d) to (%d,%d,%d,%d)\n",
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1273 surface->w - 1, surface->h - 1, dst_rect[0], dst_rect[1],
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1274 dst_rect[2], dst_rect[3]);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1275 printf("sdl:video:gem: icon(%d,%d,%d,%d)\n", icon_rect[0],
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1276 icon_rect[1], icon_rect[2], icon_rect[3]);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1277 printf("sdl:video:gem: refresh_window(): draw icon\n");
736 028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	1278 #endif
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	1279
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1280 /* Calculate icon(x1,y1,x2,y2) relative to screen */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1281 icon_rect[0] += wind_pxy[0];
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1282 icon_rect[1] += wind_pxy[1];
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1283 icon_rect[2] += icon_rect[0] - 1;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1284 icon_rect[3] += icon_rect[1] - 1;
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	1285
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1286 /* Calculate intersection rectangle to redraw */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1287 pxy[4] = pxy[0] = MAX(icon_rect[0], rect[0]);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1288 pxy[5] = pxy[1] = MAX(icon_rect[1], rect[1]);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1289 pxy[6] = pxy[2] = MIN(icon_rect[2], rect[2]);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1290 pxy[7] = pxy[3] = MIN(icon_rect[3], rect[3]);
736 028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	1291
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1292 /* Calculate icon source image pos relative to window */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1293 pxy[0] -= wind_pxy[0] + iconx;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1294 pxy[1] -= wind_pxy[1] + icony;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1295 pxy[2] -= wind_pxy[0] + iconx;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1296 pxy[3] -= wind_pxy[1] + icony;
736 028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	1297
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1298 } else {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1299 surface = this->screen;
736 028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	1300
799 85960507bd2e Bugfixes: some info about current framebuffer overwritten by some default values, and screen width must be multiple of 16 pixels to work correctly Patrice Mandin <patmandin@gmail.com> parents: 769 diff changeset	1301 #if DEBUG_VIDEO_GEM
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1302 printf("sdl:video:gem: refresh_window(): draw frame buffer\n");
736 028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	1303 #endif
028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	1304
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1305 /* Redraw all window content */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1306 pxy[0] = rect[0] - wind_pxy[0];
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1307 pxy[1] = rect[1] - wind_pxy[1];
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1308 pxy[2] = rect[2] - wind_pxy[0];
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1309 pxy[3] = rect[3] - wind_pxy[1];
736 028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	1310
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1311 pxy[4] = rect[0];
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1312 pxy[5] = rect[1];
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1313 pxy[6] = rect[2];
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1314 pxy[7] = rect[3];
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1315 }
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	1316
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1317 if (GEM_bufops & B2S_C2P_1TO2) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1318 void src, dest;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1319 int x1, x2;
736 028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	1320
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1321 x1 = (rect[0] - wind_pxy[0]) & ~15;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1322 x2 = rect[2] - wind_pxy[0];
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1323 if (x2 & 15) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1324 x2 = (x2 \| 15) + 1;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1325 }
736 028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	1326
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1327 src = surface->pixels;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1328 src += surface->pitch * (rect[1] - wind_pxy[1]);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1329 src += x1;
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	1330
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1331 dest = GEM_buffer2;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1332 dest += surface->pitch * (rect[1] - wind_pxy[1]);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1333 dest += x1;
736 028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	1334
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1335 SDL_Atari_C2pConvert(src, dest,
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1336 x2 - x1, rect[3] - rect[1] + 1,
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1337 SDL_FALSE, surface->pitch, surface->pitch);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1338 }
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1339
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1340 mfdb_src.fd_addr = surface->pixels;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1341 {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1342 int width;
799 85960507bd2e Bugfixes: some info about current framebuffer overwritten by some default values, and screen width must be multiple of 16 pixels to work correctly Patrice Mandin <patmandin@gmail.com> parents: 769 diff changeset	1343
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1344 /* Need to be a multiple of 16 pixels */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1345 width = surface->w;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1346 if ((width & 15) != 0) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1347 width = (width \| 15) + 1;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1348 }
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1349 mfdb_src.fd_w = width;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1350 }
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1351 mfdb_src.fd_h = surface->h;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1352 mfdb_src.fd_nplanes = surface->format->BitsPerPixel;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1353 mfdb_src.fd_wdwidth = mfdb_src.fd_w >> 4;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1354 mfdb_src.fd_stand = mfdb_src.fd_r1 = mfdb_src.fd_r2 = mfdb_src.fd_r3 = 0;
736 028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	1355
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1356 if (GEM_bufops & B2S_VROCPYFM_2TOS) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1357 mfdb_src.fd_addr = GEM_buffer2;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1358 }
799 85960507bd2e Bugfixes: some info about current framebuffer overwritten by some default values, and screen width must be multiple of 16 pixels to work correctly Patrice Mandin <patmandin@gmail.com> parents: 769 diff changeset	1359 #if DEBUG_VIDEO_GEM
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1360 printf("sdl:video:gem: redraw %dx%d: (%d,%d,%d,%d) to (%d,%d,%d,%d)\n",
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1361 surface->w, surface->h,
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1362 pxy[0], pxy[1], pxy[2], pxy[3], pxy[4], pxy[5], pxy[6], pxy[7]);
736 028e03e273c8 Use new C2P routine + corrections for iconification window Patrice Mandin <patmandin@gmail.com> parents: 593 diff changeset	1363 #endif
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	1364
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1365 vro_cpyfm(VDI_handle, S_ONLY, pxy, &mfdb_src, &VDI_dst_mfdb);
281 c5010ab8ba35 Added initial support for Atari (thanks Patrice!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	1366 }
984 44fd54a0ae5f Add OSMesa OpenGL support to the Atari GEM video driver Patrice Mandin <patmandin@gmail.com> parents: 964 diff changeset	1367
1361 19418e4422cb New configure-based build system. Still work in progress, but much improved Sam Lantinga <slouken@libsdl.org> parents: 1358 diff changeset	1368 #if SDL_VIDEO_OPENGL
984 44fd54a0ae5f Add OSMesa OpenGL support to the Atari GEM video driver Patrice Mandin <patmandin@gmail.com> parents: 964 diff changeset	1369
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1370 static void
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1371 GEM_GL_SwapBuffers(_THIS)
984 44fd54a0ae5f Add OSMesa OpenGL support to the Atari GEM video driver Patrice Mandin <patmandin@gmail.com> parents: 964 diff changeset	1372 {
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1373 SDL_AtariGL_SwapBuffers(this);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1374 GEM_FlipHWSurface(this, this->screen);
984 44fd54a0ae5f Add OSMesa OpenGL support to the Atari GEM video driver Patrice Mandin <patmandin@gmail.com> parents: 964 diff changeset	1375 }
44fd54a0ae5f Add OSMesa OpenGL support to the Atari GEM video driver Patrice Mandin <patmandin@gmail.com> parents: 964 diff changeset	1376
44fd54a0ae5f Add OSMesa OpenGL support to the Atari GEM video driver Patrice Mandin <patmandin@gmail.com> parents: 964 diff changeset	1377 #endif
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1857 diff changeset	1378 /* vi: set ts=4 sw=4 expandtab: */

Mercurial > sdl-ios-xcode

annotate src/video/gem/SDL_gemvideo.c @ 2185:2032348afed1