1207 // for sdl2 we provide a SDL_WarpMouse() which just calls this function |
1207 // for sdl2 we provide a SDL_WarpMouse() which just calls this function |
1208 // this has the advantage of reducing 'uses' and 'ifdef' statements |
1208 // this has the advantage of reducing 'uses' and 'ifdef' statements |
1209 // (SDLwindow is a private member of this module) |
1209 // (SDLwindow is a private member of this module) |
1210 procedure WarpMouse(x, y: Word); inline; |
1210 procedure WarpMouse(x, y: Word); inline; |
1211 begin |
1211 begin |
1212 SDL_WarpMouseInWindow(SDLwindow, x, y); |
1212 //SDL_WarpMouseInWindow(SDLwindow, x, y); |
1213 end; |
1213 end; |
1214 |
1214 |
1215 procedure SwapBuffers; {$IFDEF USE_VIDEO_RECORDING}cdecl{$ELSE}inline{$ENDIF}; |
1215 procedure SwapBuffers; {$IFDEF USE_VIDEO_RECORDING}cdecl{$ELSE}inline{$ENDIF}; |
1216 begin |
1216 begin |
1217 if GameType = gmtRecord then |
1217 if GameType = gmtRecord then |
1218 exit; |
1218 exit; |
1219 SDL_GL_SwapWindow(SDLwindow); |
1219 //SDL_GL_SwapWindow(SDLwindow); |
1220 end; |
1220 end; |
1221 |
1221 |
1222 procedure SetSkyColor(r, g, b: real); |
1222 procedure SetSkyColor(r, g, b: real); |
1223 begin |
1223 begin |
1224 RenderSetClearColor(r, g, b, 0.99) |
1224 RenderSetClearColor(r, g, b, 0.99) |