index e29d9c1cd78e9d8d53e99e6656624c6c60500bef..a226deee0cc7175a2a7d7ddafadae3e1229d8992 100644 (file)
interface
uses
+ {$INCLUDE ../nogl/noGLuses.inc}
SysUtils, Classes,
- GL, GLExt, SDL2,
+ SDL2,
sdlcarcass,
fui_common, fui_events;
function isScaled (): Boolean;
var
- mt: packed array [0..15] of Double;
+ mt: packed array [0..15] of GLfloat;
begin
- glGetDoublev(GL_MODELVIEW_MATRIX, @mt[0]);
+ glGetFloatv(GL_MODELVIEW_MATRIX, @mt[0]);
result := (mt[0] <> 1.0) or (mt[1*4+1] <> 1.0);
end;
// set active context; `ctx` can be `nil`
procedure gxSetContextInternal (ctx: TGxContext; ascale: Single; domatrix: Boolean);
var
- mt: packed array [0..15] of Double;
+ mt: packed array [0..15] of GLfloat;
begin
if (savedGLState.saved) then savedGLState.restore();
else
begin
// assume uniform scale
- glGetDoublev(GL_MODELVIEW_MATRIX, @mt[0]);
+ glGetFloatv(GL_MODELVIEW_MATRIX, @mt[0]);
ctx.mScaled := (mt[0] <> 1.0) or (mt[1*4+1] <> 1.0);
ctx.mScale := mt[0];
oglSetup2DState();