X-Git-Url: https://git.delphigl.com/?p=LazOpenGLCore.git;a=blobdiff_plain;f=uglcCamera.pas;fp=uglcCamera.pas;h=a61fffe22d2d54b6e71731a57550dbcd897e73f2;hp=197f67661d23ec5a46d06d8221eaad7e22dc4cbe;hb=38723f45320eea73e5fef416fc989bcfb9adf21d;hpb=eb7858e40852c3a1a61cead35c20f432d062184c

diff --git a/uglcCamera.pas b/uglcCamera.pas
index 197f676..a61fffe 100644
--- 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;