Merge remote-tracking branch 'glBitmap.delphigl.com/unstable'

[LazOpenGLCore.git] / uglcCamera.pas

diff --git a/uglcCamera.pas b/uglcCamera.pas
index 93a3bf7..197f676 100644 (file)
--- a/uglcCamera.pas
+++ b/uglcCamera.pas
@@ -2,7 +2,24 @@ unit uglcCamera;
 
 { Package:      OpenGLCore
   Prefix:       glc - OpenGL Core
-  Beschreibung: diese Unit enthält eine Klassen-Kapselung für OpenGL Frustum und Kamera }
+  Beschreibung: diese Unit enthält eine Klassen-Kapselung für OpenGL Frustum und Kamera
+  Beispiel:
+    var
+      camera: TglcCamera;
+
+    camera := TglcCamera.Create;
+    try
+      camera.Perspective(45, 0.01, 100, 800/600);   // define perspective view
+      camera.Move(gluVector(2, 3, -5));             // move 2 right, 3 up and 5 back
+      camera.Tilt(-25);                             // turn 25 degrees down
+      camera.Turn(-10);                             // turn 10 degrees left
+      camera.Activate;                              // activate camera
+
+      // do normal rendering
+
+    finally
+      FreeAndNil(camera);
+    end;  }
 
 {$mode objfpc}{$H+}