e14743d1 |
1 | /* |
2 | SDL - Simple DirectMedia Layer |
3 | Copyright (C) 1997-2009 Sam Lantinga |
4 | |
5 | This library is free software; you can redistribute it and/or |
6 | modify it under the terms of the GNU Library General Public |
7 | License as published by the Free Software Foundation; either |
8 | version 2 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 | Library General Public License for more details. |
14 | |
15 | You should have received a copy of the GNU Library General Public |
16 | License along with this library; if not, write to the Free |
17 | Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA |
18 | |
19 | Sam Lantinga |
20 | slouken@libsdl.org |
21 | */ |
22 | #include "SDL_config.h" |
23 | |
24 | /* |
25 | File added by Alan Buckley (alan_baa@hotmail.com) for RISC OS compatability |
26 | 27 March 2003 |
27 | |
28 | Implements mouse cursor shape definitions and positioning |
29 | */ |
30 | |
31 | #include "SDL_mouse.h" |
32 | #include "../../events/SDL_events_c.h" |
33 | |
34 | #include "SDL_riscosmouse_c.h" |
35 | |
36 | #include "kernel.h" |
37 | #include "swis.h" |
38 | |
39 | static WMcursor *current_cursor = NULL; |
40 | static WMcursor *defined_cursor = NULL; |
41 | |
42 | extern int mouseInWindow; |
43 | |
44 | /* Area to save cursor palette colours changed by SDL. |
45 | Actual values will be read before we change to the SDL cursor */ |
46 | static Uint8 wimp_cursor_palette[2][5] = { |
47 | {1, 25, 255, 255, 255}, |
48 | {3, 25, 255, 255, 255} |
49 | }; |
50 | |
51 | static int cursor_palette_saved = 0; |
52 | |
53 | void WIMP_SaveCursorPalette(); |
54 | void WIMP_RestoreWimpCursor(); |
55 | void WIMP_SetSDLCursorPalette(); |
56 | |
57 | |
58 | void RISCOS_FreeWMCursor(_THIS, WMcursor *cursor) |
59 | { |
60 | SDL_free(cursor->data); |
61 | SDL_free(cursor); |
62 | } |
63 | |
64 | WMcursor *RISCOS_CreateWMCursor(_THIS, |
65 | Uint8 *data, Uint8 *mask, int w, int h, int hot_x, int hot_y) |
66 | { |
67 | WMcursor *cursor; |
68 | Uint8 *cursor_data; |
69 | Uint8 *ptr; |
70 | int i,j,k; |
71 | int data_byte, mask_byte; |
72 | |
73 | /* Check to make sure the cursor size is okay */ |
74 | if ( (w > 32) || (h > 32) ) { |
75 | SDL_SetError("Only with width and height <= 32 pixels are allowed"); |
76 | return(NULL); |
77 | } |
78 | |
79 | /* Allocate the cursor */ |
80 | cursor = (WMcursor *)SDL_malloc(sizeof(*cursor)); |
81 | if ( cursor == NULL ) { |
82 | SDL_SetError("Out of memory"); |
83 | return(NULL); |
84 | } |
85 | |
86 | /* Note: SDL says width must be a multiple of 8 */ |
87 | cursor_data = SDL_malloc(w/4 * h); |
88 | if (cursor_data == NULL) |
89 | { |
90 | SDL_free(cursor); |
91 | SDL_SetError("Out of memory"); |
92 | return(NULL); |
93 | } |
94 | |
95 | cursor->w = w; |
96 | cursor->h = h; |
97 | cursor->hot_x = hot_x; |
98 | cursor->hot_y = hot_y; |
99 | cursor->data = cursor_data; |
100 | |
101 | |
102 | /* Data / Mask Resulting pixel on screen |
103 | 0 / 1 White |
104 | 1 / 1 Black |
105 | 0 / 0 Transparent |
106 | 1 / 0 Inverted color if possible, black if not. |
107 | */ |
108 | ptr = cursor_data; |
109 | |
110 | for ( i=0; i<h; ++i ) |
111 | { |
112 | for (j = 0; j < w/8; ++j) |
113 | { |
114 | data_byte = *data; |
115 | mask_byte = *mask; |
116 | *ptr++ = 0; /* Sets whole byte transparent */ |
117 | *ptr = 0; |
118 | for (k = 0; k < 8; k++) |
119 | { |
120 | (*ptr) <<= 2; |
121 | if (data_byte & 1) *ptr |= 3; /* Black or inverted */ |
122 | else if(mask_byte & 1) *ptr |= 1; /* White */ |
123 | if ((k&3) == 3) ptr--; |
124 | data_byte >>= 1; |
125 | mask_byte >>= 1; |
126 | } |
127 | |
128 | ptr+=3; |
129 | data++; |
130 | mask++; |
131 | } |
132 | } |
133 | |
134 | return(cursor); |
135 | } |
136 | |
137 | int RISCOS_ShowWMCursor(_THIS, WMcursor *cursor) |
138 | { |
139 | current_cursor = cursor; |
140 | |
141 | if (cursor == NULL) |
142 | { |
143 | _kernel_osbyte(106,0,0); |
144 | defined_cursor = NULL; |
145 | } else |
146 | { |
147 | WMcursor *old_cursor = defined_cursor; |
148 | |
149 | if (cursor != defined_cursor) |
150 | { |
151 | Uint8 cursor_def[10]; |
152 | |
153 | cursor_def[0] = 0; |
154 | cursor_def[1] = 2; /* Use shape number 2 */ |
155 | cursor_def[2] = cursor->w/4; /* Width in bytes */ |
156 | cursor_def[3] = cursor->h; /* Height (h) in pixels */ |
157 | cursor_def[4] = cursor->hot_x; /* ActiveX in pixels from left */ |
158 | cursor_def[5] = cursor->hot_y; /* ActiveY in pixels from top */ |
159 | cursor_def[6] = ((int)(cursor->data) & 0xFF); /* Least significant byte of pointer to data */ |
160 | cursor_def[7] = ((int)(cursor->data) >> 8) & 0xFF; /* ... */ |
161 | cursor_def[8] = ((int)(cursor->data) >> 16) & 0xFF; /* ... */ |
162 | cursor_def[9] = ((int)(cursor->data) >> 24) & 0xFF; /* Most significant byte of pointer to data */ |
163 | |
164 | if (_kernel_osword(21, (int *)cursor_def) != 0) |
165 | { |
166 | SDL_SetError("RISCOS couldn't create the cursor to show"); |
167 | return(0); |
168 | } |
169 | defined_cursor = cursor; |
170 | } |
171 | |
172 | if (old_cursor == NULL) |
173 | { |
174 | /* First time or reshow in window, so save/setup palette */ |
175 | if (!cursor_palette_saved) |
176 | { |
177 | WIMP_SaveCursorPalette(); |
178 | } |
179 | WIMP_SetSDLCursorPalette(); |
180 | } |
181 | |
182 | _kernel_osbyte(106, 2, 0); |
183 | } |
184 | |
185 | return(1); |
186 | } |
187 | |
188 | void FULLSCREEN_WarpWMCursor(_THIS, Uint16 x, Uint16 y) |
189 | { |
190 | Uint8 move_block[5]; |
191 | int eig_block[3]; |
192 | _kernel_swi_regs regs; |
193 | int os_x, os_y; |
194 | |
195 | eig_block[0] = 4; /* X eig factor */ |
196 | eig_block[1] = 5; /* Y eig factor */ |
197 | eig_block[2] = -1; /* End of list of variables to request */ |
198 | |
199 | regs.r[0] = (int)eig_block; |
200 | regs.r[1] = (int)eig_block; |
201 | _kernel_swi(OS_ReadVduVariables, ®s, ®s); |
202 | |
203 | os_x = x << eig_block[0]; |
204 | os_y = y << eig_block[1]; |
205 | |
206 | move_block[0] = 3; /* Move cursor */ |
207 | move_block[1] = os_x & 0xFF; |
208 | move_block[2] = (os_x >> 8) & 0xFF; |
209 | move_block[3] = os_y & 0xFF; |
210 | move_block[4] = (os_y >> 8) & 0xFF; |
211 | |
212 | _kernel_osword(21, (int *)move_block); |
213 | SDL_PrivateMouseMotion(0, 0, x, y); |
214 | } |
215 | |
216 | |
217 | /* Reshow cursor when mouse re-enters the window */ |
218 | void WIMP_ReshowCursor(_THIS) |
219 | { |
220 | defined_cursor = NULL; |
221 | cursor_palette_saved = 0; |
222 | RISCOS_ShowWMCursor(this, current_cursor); |
223 | } |
224 | |
225 | void WIMP_WarpWMCursor(_THIS, Uint16 x, Uint16 y) |
226 | { |
227 | _kernel_swi_regs regs; |
228 | int window_state[9]; |
229 | char block[5]; |
230 | int osX, osY; |
231 | |
232 | window_state[0] = this->hidden->window_handle; |
233 | regs.r[1] = (unsigned int)window_state; |
234 | _kernel_swi(Wimp_GetWindowState, ®s, ®s); |
235 | |
236 | osX = (x << this->hidden->xeig) + window_state[1]; |
237 | osY = window_state[4] - (y << this->hidden->yeig); |
238 | |
239 | block[0] = 3; |
240 | block[1] = osX & 0xFF; |
241 | block[2] = (osX >> 8) & 0xFF; |
242 | block[3] = osY & 0xFF; |
243 | block[4] = (osY >> 8) & 0xFF; |
244 | |
245 | regs.r[0] = 21; |
246 | regs.r[1] = (int)block; |
247 | _kernel_swi(OS_Word, ®s, ®s); |
248 | SDL_PrivateMouseMotion(0, 0, x, y); |
249 | } |
250 | |
251 | int WIMP_ShowWMCursor(_THIS, WMcursor *cursor) |
252 | { |
253 | if (mouseInWindow) return RISCOS_ShowWMCursor(this, cursor); |
254 | else current_cursor = cursor; |
255 | |
256 | return 1; |
257 | } |
258 | |
259 | SDL_GrabMode RISCOS_GrabInput(_THIS, SDL_GrabMode mode) |
260 | { |
261 | /* In fullscreen mode we don't need to do anything */ |
262 | if (mode < SDL_GRAB_FULLSCREEN) |
263 | { |
264 | _kernel_swi_regs regs; |
265 | unsigned char block[9]; |
266 | block[0] = 1; /* Define mouse cursor bounding block */ |
267 | |
268 | if ( mode == SDL_GRAB_OFF ) |
269 | { |
270 | /* Clip to whole screen */ |
271 | |
272 | int r = (this->hidden->screen_width << this->hidden->xeig) - 1; |
273 | int t = (this->hidden->screen_height << this->hidden->yeig) - 1; |
274 | |
275 | block[1] = 0; block[2] = 0; /* Left*/ |
276 | block[3] = 0; block[4] = 0; /* Bottom */ |
277 | block[5] = r & 0xFF; block[6] = (r >> 8) & 0xFF; /* Right */ |
278 | block[7] = t & 0xFF; block[8] = (t >> 8) & 0xFF; /* Top */ |
279 | } else |
280 | { |
281 | /* Clip to window */ |
282 | unsigned char window_state[36]; |
283 | |
284 | *((int *)window_state) = this->hidden->window_handle; |
285 | regs.r[1] = (unsigned int)window_state; |
286 | _kernel_swi(Wimp_GetWindowState, ®s, ®s); |
287 | |
288 | block[1] = window_state[4]; |
289 | block[2] = window_state[5]; |
290 | block[3] = window_state[8]; |
291 | block[4] = window_state[9]; |
292 | block[5] = window_state[12]; |
293 | block[6] = window_state[13]; |
294 | block[7] = window_state[16]; |
295 | block[8] = window_state[17]; |
296 | |
297 | } |
298 | |
299 | regs.r[0] = 21; /* OS word code */ |
300 | regs.r[1] = (int)block; |
301 | _kernel_swi(OS_Word, ®s, ®s); |
302 | } |
303 | |
304 | return mode; |
305 | } |
306 | |
307 | /* Save mouse cursor palette to be restore when we are no longer |
308 | defining a cursor */ |
309 | |
310 | void WIMP_SaveCursorPalette() |
311 | { |
312 | _kernel_swi_regs regs; |
313 | int colour; |
314 | |
315 | for (colour = 0; colour < 2; colour++) |
316 | { |
317 | regs.r[0] = (int)wimp_cursor_palette[colour][0]; |
318 | regs.r[1] = 25; |
319 | /* Read settings with OS_ReadPalette */ |
320 | if (_kernel_swi(0x2f, ®s, ®s) == NULL) |
321 | { |
322 | wimp_cursor_palette[colour][2] = (unsigned char)((regs.r[2] >> 8) & 0xFF); |
323 | wimp_cursor_palette[colour][3] = (unsigned char)((regs.r[2] >> 16) & 0xFF); |
324 | wimp_cursor_palette[colour][4] = (unsigned char)((regs.r[2] >> 24) & 0xFF); |
325 | } |
326 | } |
327 | |
328 | cursor_palette_saved = 1; |
329 | } |
330 | |
331 | /* Restore the WIMP's cursor when we leave the SDL window */ |
332 | void WIMP_RestoreWimpCursor() |
333 | { |
334 | int colour; |
335 | |
336 | /* Reset to pointer shape 1 */ |
337 | _kernel_osbyte(106, 1, 0); |
338 | |
339 | /* Reset pointer colours */ |
340 | if (cursor_palette_saved) |
341 | { |
342 | for (colour = 0; colour < 2; colour++) |
343 | { |
344 | _kernel_osword(12, (int *)wimp_cursor_palette[colour]); |
345 | } |
346 | } |
347 | cursor_palette_saved = 0; |
348 | } |
349 | |
350 | /* Set palette used for SDL mouse cursors */ |
351 | void WIMP_SetSDLCursorPalette() |
352 | { |
353 | /* First time set up the mouse colours */ |
354 | Uint8 block[5]; |
355 | |
356 | /* Set up colour 1 as white */ |
357 | block[0] = 1; /* Colour to change 1 - 3 */ |
358 | block[1] = 25; /* Set pointer colour */ |
359 | block[2] = 255; /* red component*/ |
360 | block[3] = 255; /* green component */ |
361 | block[4] = 255; /* blue component*/ |
362 | _kernel_osword(12, (int *)block); |
363 | |
364 | /* Set colour 3 to back */ |
365 | block[0] = 3; /* Colour to change 1 - 3 */ |
366 | block[1] = 25; /* Set pointer colour*/ |
367 | block[2] = 0; /* red component*/ |
368 | block[3] = 0; /* green component */ |
369 | block[4] = 0; /* blue component*/ |
370 | _kernel_osword(12, (int *)block); |
371 | } |