/* SDL - Simple DirectMedia Layer Copyright (C) 1997-2012 Sam Lantinga This library is free software; you can redistribute it and/or modify it under the terms of the GNU Library General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Library General Public License for more details. You should have received a copy of the GNU Library General Public License along with this library; if not, write to the Free Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA Sam Lantinga slouken@libsdl.org */ #include "SDL_config.h" /* File added by Alan Buckley (alan_baa@hotmail.com) for RISC OS compatability 27 March 2003 Implements mouse cursor shape definitions and positioning */ #include "SDL_mouse.h" #include "../../events/SDL_events_c.h" #include "SDL_riscosmouse_c.h" #include "kernel.h" #include "swis.h" static WMcursor *current_cursor = NULL; static WMcursor *defined_cursor = NULL; /* Area to save cursor palette colours changed by SDL. Actual values will be read before we change to the SDL cursor */ static Uint8 wimp_cursor_palette[2][5] = { {1, 25, 255, 255, 255}, {3, 25, 255, 255, 255} }; static int cursor_palette_saved = 0; static void WIMP_SaveCursorPalette(); static void WIMP_SetSDLCursorPalette(); void RISCOS_FreeWMCursor(_THIS, WMcursor *cursor) { SDL_free(cursor->data); SDL_free(cursor); } WMcursor *RISCOS_CreateWMCursor(_THIS, Uint8 *data, Uint8 *mask, int w, int h, int hot_x, int hot_y) { WMcursor *cursor; Uint8 *cursor_data; Uint8 *ptr; int i,j,k; int data_byte, mask_byte; /* Check to make sure the cursor size is okay */ if ( (w > 32) || (h > 32) ) { SDL_SetError("Only cursors with width and height <= 32 pixels are allowed"); return(NULL); } /* Allocate the cursor */ cursor = (WMcursor *)SDL_malloc(sizeof(*cursor)); if ( cursor == NULL ) { SDL_OutOfMemory(); return(NULL); } /* Note: SDL says width must be a multiple of 8 */ cursor_data = SDL_malloc(w/4 * h); if (cursor_data == NULL) { SDL_free(cursor); SDL_OutOfMemory(); return(NULL); } cursor->w = w; cursor->h = h; cursor->hot_x = hot_x; cursor->hot_y = hot_y; cursor->data = cursor_data; /* Data / Mask Resulting pixel on screen 0 / 1 White 1 / 1 Black 0 / 0 Transparent 1 / 0 Inverted color if possible, black if not. */ ptr = cursor_data; for ( i=0; i>= 1; mask_byte >>= 1; } ptr+=3; data++; mask++; } } return(cursor); } int RISCOS_ShowWMCursor(_THIS, WMcursor *cursor) { current_cursor = cursor; if (cursor == NULL) { _kernel_osbyte(106,0,0); defined_cursor = NULL; } else { WMcursor *old_cursor = defined_cursor; if (cursor != defined_cursor) { Uint8 cursor_def[10]; cursor_def[0] = 0; cursor_def[1] = 2; /* Use shape number 2 */ cursor_def[2] = cursor->w/4; /* Width in bytes */ cursor_def[3] = cursor->h; /* Height (h) in pixels */ cursor_def[4] = cursor->hot_x; /* ActiveX in pixels from left */ cursor_def[5] = cursor->hot_y; /* ActiveY in pixels from top */ cursor_def[6] = ((int)(cursor->data) & 0xFF); /* Least significant byte of pointer to data */ cursor_def[7] = ((int)(cursor->data) >> 8) & 0xFF; /* ... */ cursor_def[8] = ((int)(cursor->data) >> 16) & 0xFF; /* ... */ cursor_def[9] = ((int)(cursor->data) >> 24) & 0xFF; /* Most significant byte of pointer to data */ if (_kernel_osword(21, (int *)cursor_def) != 0) { SDL_SetError("RISC OS couldn't create the cursor to show"); return(0); } defined_cursor = cursor; } if (old_cursor == NULL) { /* First time or reshow in window, so save/setup palette */ if (!cursor_palette_saved) { WIMP_SaveCursorPalette(); } WIMP_SetSDLCursorPalette(); } _kernel_osbyte(106, 2, 0); } return(1); } void FULLSCREEN_WarpWMCursor(_THIS, Uint16 x, Uint16 y) { Uint8 move_block[5]; int os_x, os_y; int topLeftY; topLeftY = (this->hidden->height << this->hidden->yeig) - 1; /* As per RISCOS_PollMouseHelper */ os_x = x << this->hidden->xeig; os_y = topLeftY - (y << this->hidden->yeig); move_block[0] = 3; /* Move cursor */ move_block[1] = os_x & 0xFF; move_block[2] = (os_x >> 8) & 0xFF; move_block[3] = os_y & 0xFF; move_block[4] = (os_y >> 8) & 0xFF; _kernel_osword(21, (int *)move_block); SDL_PrivateMouseMotion(0, 0, x, y); } /* Reshow cursor when mouse re-enters the window */ void WIMP_ReshowCursor(_THIS) { defined_cursor = NULL; cursor_palette_saved = 0; RISCOS_ShowWMCursor(this, current_cursor); } void WIMP_WarpWMCursor(_THIS, Uint16 x, Uint16 y) { _kernel_swi_regs regs; int window_state[9]; char block[5]; int osX, osY; window_state[0] = this->hidden->window_handle; regs.r[1] = (unsigned int)window_state; _kernel_swi(Wimp_GetWindowState, ®s, ®s); /* 90 DPI mapping from SDL pixels to OS units */ osX = (x << 1) + window_state[1]; osY = window_state[4] - (y << 1); block[0] = 3; block[1] = osX & 0xFF; block[2] = (osX >> 8) & 0xFF; block[3] = osY & 0xFF; block[4] = (osY >> 8) & 0xFF; _kernel_osword(21, (int *)block); SDL_PrivateMouseMotion(0, 0, x, y); } int WIMP_ShowWMCursor(_THIS, WMcursor *cursor) { if (mouseInWindow) return RISCOS_ShowWMCursor(this, cursor); else current_cursor = cursor; return 1; } SDL_GrabMode RISCOS_GrabInput(_THIS, SDL_GrabMode mode) { /* In fullscreen mode we don't need to do anything */ if (mode < SDL_GRAB_FULLSCREEN) { _kernel_swi_regs regs; unsigned char block[9]; block[0] = 1; /* Define mouse cursor bounding block */ if ( mode == SDL_GRAB_OFF ) { /* Clip to whole screen */ int r = (this->hidden->screen_width << this->hidden->xeig) - 1; int t = (this->hidden->screen_height << this->hidden->yeig) - 1; block[1] = 0; block[2] = 0; /* Left*/ block[3] = 0; block[4] = 0; /* Bottom */ block[5] = r & 0xFF; block[6] = (r >> 8) & 0xFF; /* Right */ block[7] = t & 0xFF; block[8] = (t >> 8) & 0xFF; /* Top */ } else { /* Clip to window */ unsigned char window_state[36]; *((int *)window_state) = this->hidden->window_handle; regs.r[1] = (unsigned int)window_state; _kernel_swi(Wimp_GetWindowState, ®s, ®s); block[1] = window_state[4]; block[2] = window_state[5]; block[3] = window_state[8]; block[4] = window_state[9]; block[5] = window_state[12]; block[6] = window_state[13]; block[7] = window_state[16]; block[8] = window_state[17]; } _kernel_osword(21, (int *)block); } return mode; } /* Save mouse cursor palette to be restore when we are no longer defining a cursor */ void WIMP_SaveCursorPalette() { _kernel_swi_regs regs; int colour; for (colour = 0; colour < 2; colour++) { regs.r[0] = (int)wimp_cursor_palette[colour][0]; regs.r[1] = 25; /* Read settings with OS_ReadPalette */ if (_kernel_swi(OS_ReadPalette, ®s, ®s) == NULL) { wimp_cursor_palette[colour][2] = (unsigned char)((regs.r[2] >> 8) & 0xFF); wimp_cursor_palette[colour][3] = (unsigned char)((regs.r[2] >> 16) & 0xFF); wimp_cursor_palette[colour][4] = (unsigned char)((regs.r[2] >> 24) & 0xFF); } } cursor_palette_saved = 1; } /* Restore the WIMP's cursor when we leave the SDL window */ void WIMP_RestoreWimpCursor() { int colour; /* Reset to pointer shape 1 */ _kernel_osbyte(106, 1, 0); /* Reset pointer colours */ if (cursor_palette_saved) { for (colour = 0; colour < 2; colour++) { _kernel_osword(12, (int *)wimp_cursor_palette[colour]); } } cursor_palette_saved = 0; } /* Set palette used for SDL mouse cursors */ void WIMP_SetSDLCursorPalette() { /* First time set up the mouse colours */ Uint8 block[5]; /* Set up colour 1 as white */ block[0] = 1; /* Colour to change 1 - 3 */ block[1] = 25; /* Set pointer colour */ block[2] = 255; /* red component*/ block[3] = 255; /* green component */ block[4] = 255; /* blue component*/ _kernel_osword(12, (int *)block); /* Set colour 3 to back */ block[0] = 3; /* Colour to change 1 - 3 */ block[1] = 25; /* Set pointer colour*/ block[2] = 0; /* red component*/ block[3] = 0; /* green component */ block[4] = 0; /* blue component*/ _kernel_osword(12, (int *)block); }