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

diff --git a/uglcCamera.pas b/uglcCamera.pas
index a61fffe..43110d0 100644
--- a/uglcCamera.pas
+++ b/uglcCamera.pas
@@ -33,25 +33,30 @@ type
 ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
   TglcFrustum = class(TObject)
   private
+    fProjMatrix: TgluMatrix4f;
+    function GetProjMatrixPtr: Pointer;
     function GetWidth: Single;
     function GetHeight: Single;
     function GetFOVAngle: Single;
     function GetAspectRatio: Single;
+    procedure UpdateProjMatrix;
   protected
     fIsOrthogonal: Boolean;
     fTop, fBottom, fLeft, fRight, fNear, fFar: Single;
   public
-    property Top         : Single  read fTop;
-    property Bottom      : Single  read fBottom;
-    property Left        : Single  read fLeft;
-    property Right       : Single  read fRight;
-    property Near        : Single  read fNear;
-    property Far         : Single  read fFar;
-    property Width       : Single  read GetWidth;
-    property Height      : Single  read GetHeight;
-    property FOVAngle    : Single  read GetFOVAngle;
-    property AspectRatio : Single  read GetAspectRatio;
-    property IsOrthogonal: Boolean read fIsOrthogonal;
+    property Top:           Single        read fTop;
+    property Bottom:        Single        read fBottom;
+    property Left:          Single        read fLeft;
+    property Right:         Single        read fRight;
+    property Near:          Single        read fNear;
+    property Far:           Single        read fFar;
+    property Width:         Single        read GetWidth;
+    property Height:        Single        read GetHeight;
+    property FOVAngle:      Single        read GetFOVAngle;
+    property AspectRatio:   Single        read GetAspectRatio;
+    property IsOrthogonal:  Boolean       read fIsOrthogonal;
+    property ProjMatrix:    TgluMatrix4f  read fProjMatrix;
+    property ProjMatrixPtr: Pointer       read GetProjMatrixPtr;
 
     procedure Frustum(const aLeft, aRight, aBottom, aTop, aNear, aFar: Single);
     procedure Perspective(const aFOVAngle, aAspectRatio, aNear, aFar: Single);
@@ -68,8 +73,10 @@ type
   TglcCamera = class(TglcFrustum)
   private
     fPosition: TgluMatrix4f;
+    function GetPositionPtr: Pointer;
   public
-    property Position: TgluMatrix4f read fPosition write fPosition;
+    property Position:    TgluMatrix4f read fPosition write fPosition;
+    property PositionPtr: Pointer      read GetPositionPtr;
 
     procedure Move(const aVec: TgluVector3f);
     procedure Tilt(const aAngle: Single);
@@ -86,15 +93,70 @@ implementation
 uses
   Math, {$IFNDEF OPENGL_ES}dglOpenGL{$ELSE}dglOpenGLES{$ENDIF};
 
+
 ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
 //TglcFrustum///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
 ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
+procedure TglcFrustum.UpdateProjMatrix;
+begin
+  if fIsOrthogonal then begin
+    fProjMatrix[maAxisX] := gluVector4f(
+      2 / (fRight - fLeft),
+      0,
+      0,
+      0);
+    fProjMatrix[maAxisY] := gluVector4f(
+      0,
+      2 / (fTop - fBottom),
+      0,
+      0);
+    fProjMatrix[maAxisZ] := gluVector4f(
+      0,
+      0,
+      -2 / (fFar - fNear),
+      0);
+    fProjMatrix[maPos] := gluVector4f(
+      -(fRight + fLeft)   / (fRight - fLeft),
+      -(fTop   + fBottom) / (fTop   - fBottom),
+      -(fFar   + fNear)   / (fFar   - fNear),
+      1);
+  end else begin
+    fProjMatrix[maAxisX] := gluVector4f(
+      2 * fNear / (fRight - fLeft),
+      0,
+      0,
+      0);
+    fProjMatrix[maAxisY] := gluVector4f(
+      0,
+      2 * fNear / (fTop   - fBottom),
+      0,
+      0);
+    fProjMatrix[maAxisZ] := gluVector4f(
+      (fRight + fLeft) / (fRight - fLeft),
+      (fTop + fBottom) / (fTop - fBottom),
+      -(fFar + fNear) / (fFar - fNear),
+      -1);
+    fProjMatrix[maPos] := gluVector4f(
+      0,
+      0,
+      -2 * fFar * fNear / (fFar - fNear),
+      0);
+  end;
+end;
+
+////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
 function TglcFrustum.GetWidth: Single;
 begin
   result := (fRight - fLeft);
 end;
 
 ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
+function TglcFrustum.GetProjMatrixPtr: Pointer;
+begin
+  result := @fProjMatrix[0, 0];
+end;
+
+////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
 function TglcFrustum.GetHeight: Single;
 begin
   result := (fTop - fBottom);
@@ -122,6 +184,7 @@ begin
   fRight        := aTop;
   fNear         := aNear;
   fFar          := aFar;
+  UpdateProjMatrix;
 end;
 
 ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
@@ -134,6 +197,7 @@ begin
   fBottom       := -fTop;
   fRight        := aAspectRatio * fTop;
   fLeft         := -fRight;
+  UpdateProjMatrix;
 end;
 
 ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
@@ -146,6 +210,7 @@ begin
   fBottom       := aBottom;
   fNear         := aNear;
   fFar          := aFar;
+  UpdateProjMatrix;
 end;
 
 ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
@@ -209,6 +274,12 @@ end;
 ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
 //TglcCamera////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
 ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
+function TglcCamera.GetPositionPtr: Pointer;
+begin
+  result := @fPosition[0, 0];
+end;
+
+////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
 procedure TglcCamera.Move(const aVec: TgluVector3f);
 begin
   fPosition := gluMatrixMult(gluMatrixTranslate(aVec), fPosition);