57 procedure MakeCrossHairs;

    57 procedure MakeCrossHairs;

    58 {$IFDEF USE_VIDEO_RECORDING}

    58 {$IFDEF USE_VIDEO_RECORDING}

    59 procedure InitOffscreenOpenGL;

    59 procedure InitOffscreenOpenGL;

    60 {$ENDIF}

    60 {$ENDIF}

    61 

    61 

    63 procedure SwapBuffers; {$IFDEF USE_VIDEO_RECORDING}cdecl{$ELSE}inline{$ENDIF};

    63 procedure SwapBuffers; {$IFDEF USE_VIDEO_RECORDING}cdecl{$ELSE}inline{$ENDIF};

    64 procedure SetSkyColor(r, g, b: real);

    64 procedure SetSkyColor(r, g, b: real);

    65 

    65 

    66 implementation

    66 implementation

    67 uses uMisc, uConsole, uVariables, uUtils, uTextures, uRender, uRenderUtils,

    67 uses uMisc, uConsole, uVariables, uUtils, uTextures, uRender, uRenderUtils,

  1361 

  1361 

  1362 // for sdl1.2 we directly call SDL_WarpMouse()

  1362 // for sdl1.2 we directly call SDL_WarpMouse()

  1363 // for sdl2 we provide a SDL_WarpMouse() which just calls this function

  1363 // for sdl2 we provide a SDL_WarpMouse() which just calls this function

  1364 // this has the advantage of reducing 'uses' and 'ifdef' statements

  1364 // this has the advantage of reducing 'uses' and 'ifdef' statements

  1365 // (SDLwindow is a private member of this module)

  1365 // (SDLwindow is a private member of this module)

  1367 begin

  1367 begin

  1368     SDL_WarpMouseInWindow(SDLwindow, x, y);

  1368     SDL_WarpMouseInWindow(SDLwindow, x, y);

  1369 end;

  1369 end;

  1370 

  1370 

  1371 procedure SwapBuffers; {$IFDEF USE_VIDEO_RECORDING}cdecl{$ELSE}inline{$ENDIF};

  1371 procedure SwapBuffers; {$IFDEF USE_VIDEO_RECORDING}cdecl{$ELSE}inline{$ENDIF};