index e29d9c1cd78e9d8d53e99e6656624c6c60500bef..67ad97cf3ffe6f94424964d2fbc0e2fc14584ec9 100644 (file)
interface
uses
+{$IFDEF USE_NANOGL}
+ nanoGL,
+{$ELSE}
+ GL, GLExt,
+{$ENDIF}
SysUtils, Classes,
- GL, GLExt, SDL2,
+ SDL2,
sdlcarcass,
fui_common, fui_events;
var
mt: packed array [0..15] of Double;
begin
+{$IFNDEF USE_NANOGL}
glGetDoublev(GL_MODELVIEW_MATRIX, @mt[0]);
+{$ENDIF}
result := (mt[0] <> 1.0) or (mt[1*4+1] <> 1.0);
end;
glMatrixMode(GL_MODELVIEW); glPushMatrix();
glMatrixMode(GL_TEXTURE); glPushMatrix();
glMatrixMode(GL_COLOR); glPushMatrix();
+{$IFNDEF USE_NANOGL}
glPushAttrib({GL_ENABLE_BIT|GL_COLOR_BUFFER_BIT|GL_CURRENT_BIT}GL_ALL_ATTRIB_BITS); // let's play safe
+{$ENDIF}
saved := true;
end;
procedure TSavedGLState.restore ();
begin
if (not saved) then raise Exception.Create('cannot restore unsaved OpenGL state');
+{$IFNDEF USE_NANOGL}
glPopAttrib({GL_ENABLE_BIT});
+{$ENDIF}
glMatrixMode(GL_PROJECTION); glPopMatrix();
glMatrixMode(GL_MODELVIEW); glPopMatrix();
glMatrixMode(GL_TEXTURE); glPopMatrix();
else
begin
// assume uniform scale
+{$IFNDEF USE_NANOGL}
glGetDoublev(GL_MODELVIEW_MATRIX, @mt[0]);
+{$ENDIF}
ctx.mScaled := (mt[0] <> 1.0) or (mt[1*4+1] <> 1.0);
ctx.mScale := mt[0];
oglSetup2DState();
procedure TScissorSave.save (enableScissoring: Boolean);
begin
+{$IFDEF USE_NANOGL}
+ wassc := false; // FIXIT
+{$ELSE}
wassc := (glIsEnabled(GL_SCISSOR_TEST) <> 0);
+{$ENDIF}
if wassc then glGetIntegerv(GL_SCISSOR_BOX, @scxywh[0]) else glGetIntegerv(GL_VIEWPORT, @scxywh[0]);
//conwritefln('(%d,%d)-(%d,%d)', [scxywh[0], scxywh[1], scxywh[2], scxywh[3]]);
if enableScissoring and (not wassc) then glEnable(GL_SCISSOR_TEST);