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
GEM_FreeWMCursor(_THIS,WMcursor * cursor)46 void 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
GEM_CreateWMCursor(_THIS,Uint8 * data,Uint8 * mask,int w,int h,int hot_x,int hot_y)63 WMcursor *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
GEM_ShowWMCursor(_THIS,WMcursor * cursor)141 int 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
155 void 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
GEM_CheckMouseMode(_THIS)168 void 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