SDL_gemmouse.c revision 9682c8870b8ff5e4ac2e4c70b759f791c6f38c1f 
1/*
2    SDL - Simple DirectMedia Layer
3    Copyright (C) 1997-2012 Sam Lantinga
4
5    This library is free software; you can redistribute it and/or
6    modify it under the terms of the GNU Lesser General Public
7    License as published by the Free Software Foundation; either
8    version 2.1 of the License, or (at your option) any later version.
9
10    This library is distributed in the hope that it will be useful,
11    but WITHOUT ANY WARRANTY; without even the implied warranty of
12    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
13    Lesser General Public License for more details.
14
15    You should have received a copy of the GNU Lesser General Public
16    License along with this library; if not, write to the Free Software
17    Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA
18
19    Sam Lantinga
20    slouken@libsdl.org
21*/
22#include "SDL_config.h"
23
24/*
25 *	GEM Mouse manager
26 *
27 *	Patrice Mandin
28 */
29
30#include <gem.h>
31
32#include "SDL_mouse.h"
33#include "../../events/SDL_events_c.h"
34#include "../SDL_cursor_c.h"
35#include "SDL_gemmouse_c.h"
36#include "SDL_gemvideo.h"
37#include "../ataricommon/SDL_xbiosevents_c.h"
38
39/* Defines */
40
41/*#define DEBUG_VIDEO_GEM 1*/
42
43#define MAXCURWIDTH 16
44#define MAXCURHEIGHT 16
45
46void GEM_FreeWMCursor(_THIS, WMcursor *cursor)
47{
48#ifdef DEBUG_VIDEO_GEM
49	printf("sdl:video:gem: free cursor\n");
50#endif
51
52	if (cursor == NULL)
53		return;
54
55	graf_mouse(ARROW, NULL);
56
57	if (cursor->mform_p != NULL)
58		SDL_free(cursor->mform_p);
59
60	SDL_free(cursor);
61}
62
63WMcursor *GEM_CreateWMCursor(_THIS,
64		Uint8 *data, Uint8 *mask, int w, int h, int hot_x, int hot_y)
65{
66	WMcursor *cursor;
67	MFORM *new_mform;
68	int i;
69
70#ifdef DEBUG_VIDEO_GEM
71	Uint16 *data1, *mask1;
72
73	printf("sdl:video:gem: create cursor\n");
74#endif
75
76	/* Check the size */
77	if ( (w > MAXCURWIDTH) || (h > MAXCURHEIGHT) ) {
78		SDL_SetError("Only cursors of dimension (%dx%d) are allowed",
79							MAXCURWIDTH, MAXCURHEIGHT);
80		return(NULL);
81	}
82
83	/* Allocate the cursor memory */
84	cursor = (WMcursor *)SDL_malloc(sizeof(WMcursor));
85	if ( cursor == NULL ) {
86		SDL_OutOfMemory();
87		return(NULL);
88	}
89
90	/* Allocate mform */
91	new_mform = (MFORM *)SDL_malloc(sizeof(MFORM));
92	if (new_mform == NULL) {
93		SDL_free(cursor);
94		SDL_OutOfMemory();
95		return(NULL);
96	}
97
98	cursor->mform_p = new_mform;
99
100	new_mform->mf_xhot = hot_x;
101	new_mform->mf_yhot = hot_y;
102	new_mform->mf_nplanes = 1;
103	new_mform->mf_fg = 0;
104	new_mform->mf_bg = 1;
105
106	for (i=0;i<MAXCURHEIGHT;i++) {
107		new_mform->mf_mask[i]=0;
108		new_mform->mf_data[i]=0;
109#ifdef DEBUG_VIDEO_GEM
110		data1 = (Uint16 *) &data[i<<1];
111		mask1 = (Uint16 *) &mask[i<<1];
112		printf("sdl:video:gem: source: line %d: data=0x%04x, mask=0x%04x\n",
113			i, data1[i], mask1[i]);
114#endif
115	}
116
117	if (w<=8) {
118		for (i=0;i<h;i++) {
119			new_mform->mf_mask[i]= mask[i]<<8;
120			new_mform->mf_data[i]= data[i]<<8;
121		}
122	} else {
123		for (i=0;i<h;i++) {
124			new_mform->mf_mask[i]= (mask[i<<1]<<8) | mask[(i<<1)+1];
125			new_mform->mf_data[i]= (data[i<<1]<<8) | data[(i<<1)+1];
126		}
127	}
128
129#ifdef DEBUG_VIDEO_GEM
130	for (i=0; i<h ;i++) {
131		printf("sdl:video:gem: cursor: line %d: data=0x%04x, mask=0x%04x\n",
132			i, new_mform->mf_data[i], new_mform->mf_mask[i]);
133	}
134
135	printf("sdl:video:gem: CreateWMCursor(): done\n");
136#endif
137
138	return cursor;
139}
140
141int GEM_ShowWMCursor(_THIS, WMcursor *cursor)
142{
143	GEM_cursor = cursor;
144
145	GEM_CheckMouseMode(this);
146
147#ifdef DEBUG_VIDEO_GEM
148	printf("sdl:video:gem: ShowWMCursor(0x%08x)\n", (long) cursor);
149#endif
150
151	return 1;
152}
153
154#if 0
155void GEM_WarpWMCursor(_THIS, Uint16 x, Uint16 y)
156{
157	/* This seems to work only on AES 3.4 (Falcon) */
158
159	EVNTREC	warpevent;
160
161	warpevent.ap_event = APPEVNT_MOUSE;
162	warpevent.ap_value = (x << 16) | y;
163
164	appl_tplay(&warpevent, 1, 1000);
165}
166#endif
167
168void GEM_CheckMouseMode(_THIS)
169{
170	const Uint8 full_focus = (SDL_APPACTIVE|SDL_APPINPUTFOCUS|SDL_APPMOUSEFOCUS);
171	int set_system_cursor = 1, show_system_cursor = 1;
172
173#ifdef DEBUG_VIDEO_GEM
174	printf("sdl:video:gem: check mouse mode\n");
175#endif
176
177	/* If the mouse is hidden and input is grabbed, we use relative mode */
178	GEM_mouse_relative = (!(SDL_cursorstate & CURSOR_VISIBLE))
179		&& (this->input_grab != SDL_GRAB_OFF)
180		&& (SDL_GetAppState() & SDL_APPACTIVE);
181	SDL_AtariXbios_LockMousePosition(GEM_mouse_relative);
182
183	if (SDL_cursorstate & CURSOR_VISIBLE) {
184		/* Application defined cursor only over the application window */
185		if ((SDL_GetAppState() & full_focus) == full_focus) {
186			if (GEM_cursor) {
187				graf_mouse(USER_DEF, GEM_cursor->mform_p);
188				set_system_cursor = 0;
189			} else {
190				show_system_cursor = 0;
191			}
192		}
193	} else {
194		/* Mouse cursor hidden only over the application window */
195		if ((SDL_GetAppState() & full_focus) == full_focus) {
196			set_system_cursor = 0;
197			show_system_cursor = 0;
198		}
199	}
200
201	graf_mouse(show_system_cursor ? M_ON : M_OFF, NULL);
202	if (set_system_cursor) {
203		graf_mouse(ARROW, NULL);
204	}
205}
206