* added OpenGL ES support

[LazOpenGLCore.git] / uglcCamera.pas

diff --git a/uglcCamera.pas b/uglcCamera.pas
index 197f676..a61fffe 100644 (file)
--- a/uglcCamera.pas
+++ b/uglcCamera.pas
@@ -57,7 +57,9 @@ type
     procedure Perspective(const aFOVAngle, aAspectRatio, aNear, aFar: Single);
     procedure Ortho(const aLeft, aRight, aBottom, aTop, aNear, aFar: Single);
     procedure Activate;
+{$IFNDEF OPENGL_ES}
     procedure Render;
+{$ENDIF}
 
     constructor Create;
   end;
@@ -82,7 +84,7 @@ type
 implementation
 
 uses
-  Math, dglOpenGL;
+  Math, {$IFNDEF OPENGL_ES}dglOpenGL{$ELSE}dglOpenGLES{$ENDIF};
 
 ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
 //TglcFrustum///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
@@ -152,13 +154,14 @@ begin
   glMatrixMode(GL_PROJECTION);
   glLoadIdentity;
   if fIsOrthogonal then
-    glOrtho(fLeft, fRight, fBottom, fTop, fNear, fFar)
+    {$IFNDEF OPENGL_ES}glOrtho{$ELSE}glOrthof{$ENDIF}(fLeft, fRight, fBottom, fTop, fNear, fFar)
   else
-    glFrustum(fLeft, fRight, fBottom, fTop, fNear, fFar);
+    {$IFNDEF OPENGL_ES}glFrustum{$ELSE}glFrustumf{$ENDIF}(fLeft, fRight, fBottom, fTop, fNear, fFar);
   glMatrixMode(GL_MODELVIEW);
 end;
 
 ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
+{$IFNDEF OPENGL_ES}
 procedure TglcFrustum.Render;
 var
   min, max: TgluVector2f;
@@ -189,6 +192,7 @@ begin
     glVertex3f(0, 0, 0); glVertex3f(max[0], min[0], -fFar);
   glEnd;
 end;
+{$ENDIF}
 
 ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
 constructor TglcFrustum.Create;