| 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 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 | |
| 38 | /* Defines */ |
| 39 | |
| 40 | /*#define DEBUG_VIDEO_GEM 1*/ |
| 41 | |
| 42 | #define MAXCURWIDTH 16 |
| 43 | #define MAXCURHEIGHT 16 |
| 44 | |
| 45 | void GEM_FreeWMCursor(_THIS, WMcursor *cursor) |
| 46 | { |
| 47 | #ifdef DEBUG_VIDEO_GEM |
| 48 | printf("sdl:video:gem: free cursor\n"); |
| 49 | #endif |
| 50 | |
| 51 | if (cursor == NULL) |
| 52 | return; |
| 53 | |
| 54 | graf_mouse(ARROW, NULL); |
| 55 | |
| 56 | if (cursor->mform_p != NULL) |
| 57 | SDL_free(cursor->mform_p); |
| 58 | |
| 59 | SDL_free(cursor); |
| 60 | } |
| 61 | |
| 62 | WMcursor *GEM_CreateWMCursor(_THIS, |
| 63 | Uint8 *data, Uint8 *mask, int w, int h, int hot_x, int hot_y) |
| 64 | { |
| 65 | WMcursor *cursor; |
| 66 | MFORM *new_mform; |
| 67 | int i; |
| 68 | |
| 69 | #ifdef DEBUG_VIDEO_GEM |
| 70 | Uint16 *data1, *mask1; |
| 71 | |
| 72 | printf("sdl:video:gem: create cursor\n"); |
| 73 | #endif |
| 74 | |
| 75 | /* Check the size */ |
| 76 | if ( (w > MAXCURWIDTH) || (h > MAXCURHEIGHT) ) { |
| 77 | SDL_SetError("Only cursors of dimension (%dx%d) are allowed", |
| 78 | MAXCURWIDTH, MAXCURHEIGHT); |
| 79 | return(NULL); |
| 80 | } |
| 81 | |
| 82 | /* Allocate the cursor memory */ |
| 83 | cursor = (WMcursor *)SDL_malloc(sizeof(WMcursor)); |
| 84 | if ( cursor == NULL ) { |
| 85 | SDL_OutOfMemory(); |
| 86 | return(NULL); |
| 87 | } |
| 88 | |
| 89 | /* Allocate mform */ |
| 90 | new_mform = (MFORM *)SDL_malloc(sizeof(MFORM)); |
| 91 | if (new_mform == NULL) { |
| 92 | SDL_free(cursor); |
| 93 | SDL_OutOfMemory(); |
| 94 | return(NULL); |
| 95 | } |
| 96 | |
| 97 | cursor->mform_p = new_mform; |
| 98 | |
| 99 | new_mform->mf_xhot = hot_x; |
| 100 | new_mform->mf_yhot = hot_y; |
| 101 | new_mform->mf_nplanes = 1; |
| 102 | new_mform->mf_fg = 0; |
| 103 | new_mform->mf_bg = 1; |
| 104 | |
| 105 | for (i=0;i<MAXCURHEIGHT;i++) { |
| 106 | new_mform->mf_mask[i]=0; |
| 107 | new_mform->mf_data[i]=0; |
| 108 | #ifdef DEBUG_VIDEO_GEM |
| 109 | data1 = (Uint16 *) &data[i<<1]; |
| 110 | mask1 = (Uint16 *) &mask[i<<1]; |
| 111 | printf("sdl:video:gem: source: line %d: data=0x%04x, mask=0x%04x\n", |
| 112 | i, data1[i], mask1[i]); |
| 113 | #endif |
| 114 | } |
| 115 | |
| 116 | if (w<=8) { |
| 117 | for (i=0;i<h;i++) { |
| 118 | new_mform->mf_mask[i]= mask[i]<<8; |
| 119 | new_mform->mf_data[i]= data[i]<<8; |
| 120 | } |
| 121 | } else { |
| 122 | for (i=0;i<h;i++) { |
| 123 | new_mform->mf_mask[i]= (mask[i<<1]<<8) | mask[(i<<1)+1]; |
| 124 | new_mform->mf_data[i]= (data[i<<1]<<8) | data[(i<<1)+1]; |
| 125 | } |
| 126 | } |
| 127 | |
| 128 | #ifdef DEBUG_VIDEO_GEM |
| 129 | for (i=0; i<h ;i++) { |
| 130 | printf("sdl:video:gem: cursor: line %d: data=0x%04x, mask=0x%04x\n", |
| 131 | i, new_mform->mf_data[i], new_mform->mf_mask[i]); |
| 132 | } |
| 133 | |
| 134 | printf("sdl:video:gem: CreateWMCursor(): done\n"); |
| 135 | #endif |
| 136 | |
| 137 | return cursor; |
| 138 | } |
| 139 | |
| 140 | int GEM_ShowWMCursor(_THIS, WMcursor *cursor) |
| 141 | { |
| 142 | GEM_cursor = cursor; |
| 143 | |
| 144 | GEM_CheckMouseMode(this); |
| 145 | |
| 146 | #ifdef DEBUG_VIDEO_GEM |
| 147 | printf("sdl:video:gem: ShowWMCursor(0x%08x)\n", (long) cursor); |
| 148 | #endif |
| 149 | |
| 150 | return 1; |
| 151 | } |
| 152 | |
| 153 | #if 0 |
| 154 | void GEM_WarpWMCursor(_THIS, Uint16 x, Uint16 y) |
| 155 | { |
| 156 | /* This seems to work only on AES 3.4 (Falcon) */ |
| 157 | |
| 158 | EVNTREC warpevent; |
| 159 | |
| 160 | warpevent.ap_event = APPEVNT_MOUSE; |
| 161 | warpevent.ap_value = (x << 16) | y; |
| 162 | |
| 163 | appl_tplay(&warpevent, 1, 1000); |
| 164 | } |
| 165 | #endif |
| 166 | |
| 167 | void GEM_CheckMouseMode(_THIS) |
| 168 | { |
| 169 | const Uint8 full_focus = (SDL_APPACTIVE|SDL_APPINPUTFOCUS|SDL_APPMOUSEFOCUS); |
| 170 | int set_system_cursor = 1, show_system_cursor = 1; |
| 171 | |
| 172 | #ifdef DEBUG_VIDEO_GEM |
| 173 | printf("sdl:video:gem: check mouse mode\n"); |
| 174 | #endif |
| 175 | |
| 176 | /* If the mouse is hidden and input is grabbed, we use relative mode */ |
| 177 | GEM_mouse_relative = (!(SDL_cursorstate & CURSOR_VISIBLE)) |
| 178 | && (this->input_grab != SDL_GRAB_OFF) |
| 179 | && (SDL_GetAppState() & SDL_APPACTIVE); |
| 180 | SDL_AtariXbios_LockMousePosition(GEM_mouse_relative); |
| 181 | |
| 182 | if (SDL_cursorstate & CURSOR_VISIBLE) { |
| 183 | /* Application defined cursor only over the application window */ |
| 184 | if ((SDL_GetAppState() & full_focus) == full_focus) { |
| 185 | if (GEM_cursor) { |
| 186 | graf_mouse(USER_DEF, GEM_cursor->mform_p); |
| 187 | set_system_cursor = 0; |
| 188 | } else { |
| 189 | show_system_cursor = 0; |
| 190 | } |
| 191 | } |
| 192 | } else { |
| 193 | /* Mouse cursor hidden only over the application window */ |
| 194 | if ((SDL_GetAppState() & full_focus) == full_focus) { |
| 195 | set_system_cursor = 0; |
| 196 | show_system_cursor = 0; |
| 197 | } |
| 198 | } |
| 199 | |
| 200 | graf_mouse(show_system_cursor ? M_ON : M_OFF, NULL); |
| 201 | if (set_system_cursor) { |
| 202 | graf_mouse(ARROW, NULL); |
| 203 | } |
| 204 | } |