* added OpenGL ES support

[LazOpenGLCore.git] / ugluVector.pas

diff --git a/ugluVector.pas b/ugluVector.pas
index 23d4680..bea8190 100644 (file)
--- a/ugluVector.pas
+++ b/ugluVector.pas
@@ -9,7 +9,7 @@ unit ugluVector;
 interface
 
 uses
-  Classes, SysUtils, dglOpenGL;
+  Classes, SysUtils, {$IFNDEF OPENGL_ES}dglOpenGL{$ELSE}dglOpenGLES{$ENDIF};
 
 type
   //Vektortypen
@@ -799,10 +799,10 @@ end;
 //@result: absolute Raumkoordianten des Vectors v;
 function gluGetAbsCoord(const v: TgluVector3f): TgluVector3f;
 var
-  v4: TVector4f;
+  v4: TgluVector4f;
   sum: Single;
   i, j: Integer;
-  m: array[0..3, 0..3] of TGLFloat;
+  m: array[0..3, 0..3] of GLfloat;
 begin
   for i := 0 to 2 do
     v4[i] := v[i];