X-Git-Url: https://git.delphigl.com/?p=LazOpenGLCore.git;a=blobdiff_plain;f=ugluVector.pas;fp=ugluVector.pas;h=bea81900c657359b82dfad5913f964a1a5a4a5d6;hp=23d4680c5868b3df59e92b100c0e7063d83255bb;hb=38723f45320eea73e5fef416fc989bcfb9adf21d;hpb=eb7858e40852c3a1a61cead35c20f432d062184c

diff --git a/ugluVector.pas b/ugluVector.pas
index 23d4680..bea8190 100644
--- 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];