GLScene/Examples/Demos/interface/CameraController/fCameraControllerD.pas

unit fCameraControllerD;

interface

uses
  Winapi.OpenGL,
  System.SysUtils,
  System.Variants,
  System.Classes,
  System.Types,
  System.Math,
  Vcl.Graphics,
  Vcl.Controls,
  Vcl.Forms,
  Vcl.Dialogs,
  Vcl.ExtCtrls,
  Vcl.StdCtrls,
  Vcl.ComCtrls,

  GLS.Scene,
  GLS.Objects,
  GLS.SceneViewer,
  GLS.VectorFileObjects,
  GLS.CameraController,
  GLS.File3DS,
  GLS.GeomObjects,
  GLS.Texture,
  GLS.Cadencer,
  GLS.Material,
  GLS.Coordinates,

  GLS.VectorTypes,
  GLS.BaseClasses,
  GLS.VectorGeometry,
  GLS.Navigator,
  GLS.SmoothNavigator,
  GLS.Graph;

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    eDestX: TEdit;
    eDestY: TEdit;
    eDestZ: TEdit;
    Label5: TLabel;
    GLScene1: TGLScene;
    dcSphere: TGLDummyCube;
    GLSphere1: TGLSphere;
    GLCylinder1: TGLCylinder;
    GLSphere2: TGLSphere;
    GLCamera: TGLCamera;
    GLLightSource1: TGLLightSource;
    GLMaterialLibrary1: TGLMaterialLibrary;
    GLCadencer1: TGLCadencer;
    GLSceneViewer1: TGLSceneViewer;
    GLSphere3: TGLSphere;
    Panel3: TPanel;
    Label6: TLabel;
    Label9: TLabel;
    eDistance: TEdit;
    Panel4: TPanel;
    Label7: TLabel;
    Label8: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    eSafeDistance: TEdit;
    eTimeToSafePlacement: TEdit;
    eTimeToOrbit: TEdit;
    Label12: TLabel;
    eTimeToZoomBackIn: TEdit;
    Panel5: TPanel;
    Label13: TLabel;
    eTime: TEdit;
    Label14: TLabel;
    btnMoveToPos: TButton;
    btnZoomToDistance: TButton;
    btnOrbitToPos: TButton;
    btnSafeOrbitAndZoomToPos: TButton;
    pImg: TPanel;
    Image1: TImage;
    Label4: TLabel;
    Panel6: TPanel;
    Label15: TLabel;
    btnOrbitToPosAdv: TButton;
    Timer1: TTimer;
    GLCameraController1: TGLCameraController;
    Panel8: TPanel;
    Label20: TLabel;
    Panel7: TPanel;
    Label16: TLabel;
    Label17: TLabel;
    Label18: TLabel;
    Label19: TLabel;
    camDirX: TEdit;
    camDirY: TEdit;
    camDirZ: TEdit;
    Panel9: TPanel;
    Label21: TLabel;
    Label22: TLabel;
    Label23: TLabel;
    Label24: TLabel;
    camUpX: TEdit;
    camUpY: TEdit;
    camUpZ: TEdit;
    btSmoothOrbit: TButton;
    GLSmoothNavigator: TGLSmoothNavigator;
    dcDebugGUI: TGLDummyCube;
    ArrowLine: TGLArrowLine;
    XYZGrid: TGLXYZGrid;
    GLPlane1: TGLPlane;
    UpAxis: TCheckBox;
    btSmoothOrbitToPosAdv: TButton;
    btSmoothOrbitAndZoom: TButton;
    dcMovingParent: TGLDummyCube;
    cbMoveParent: TCheckBox;
    procedure GLSceneViewer1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState;
      X, Y: Integer);
    procedure GLSceneViewer1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
    procedure FormMouseWheel(Sender: TObject; Shift: TShiftState; WheelDelta: Integer;
      MousePos: TPoint; var Handled: Boolean);
    procedure btnMoveToPosClick(Sender: TObject);
    procedure btnZoomToDistanceClick(Sender: TObject);
    procedure btnOrbitToPosClick(Sender: TObject);
    procedure btnSafeOrbitAndZoomToPosClick(Sender: TObject);
    procedure GLSceneViewer1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState;
      X, Y: Integer);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure GLCadencer1Progress(Sender: TObject; const deltaTime, newTime: Double);
    procedure btnOrbitToPosAdvClick(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure btSmoothOrbitToPosAdvClick(Sender: TObject);
    procedure btSmoothOrbitClick(Sender: TObject);
    procedure btSmoothOrbitAndZoomClick(Sender: TObject);
  private
    FGLCameraController: TGLCameraController;
    DextX, DextY, DextZ, Time, ZoomDistance: Double;
    mx, my: Integer;
    FCameraSmoothAnimator_AbsPos: TGLNavigatorSmoothChangeVector;
    FCameraSmoothAnimator_RelPos: TGLNavigatorSmoothChangeVector;
    procedure GetInput(Sender: TButton);
    function OnGetCameraPosition(const ASender: TGLNavigatorSmoothChangeVector): TGLVector;
    procedure OnSetCameraPosition(const ASender: TGLNavigatorSmoothChangeVector;
      const AValue: TGLVector);
  public
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.GetInput(Sender: TButton);
begin
  FCameraSmoothAnimator_AbsPos.Enabled := False;
  FCameraSmoothAnimator_RelPos.Enabled := False;

  if (Sender = btnMoveToPos) or (Sender = btnOrbitToPos) or (Sender = btnOrbitToPosAdv) or
    (Sender = btnSafeOrbitAndZoomToPos) or (Sender = btSmoothOrbit) or
    (Sender = btSmoothOrbitAndZoom) or (Sender = btSmoothOrbitToPosAdv) then
  begin
    DextX := strtofloat(eDestX.text);
    DextY := strtofloat(eDestY.text);
    DextZ := strtofloat(eDestZ.text);
  end;
  if (Sender = btnMoveToPos) or (Sender.Name = 'btnZoomToDistance') or
    (Sender.Name = 'btnOrbitToPosAdv') or (Sender.Name = 'btnOrbitToPos') then
  begin
    Time := strtofloat(eTime.text);
  end;
  if (Sender.Name = 'btnZoomToDistance') then
  begin
    ZoomDistance := strtofloat(eDistance.text)
  end;
  if (Sender.Name = 'btnSafeOrbitAndZoomToPos') then
  begin
    FGLCameraController.soSafeDistance := strtofloat(eSafeDistance.text);
    FGLCameraController.soTimeToSafePlacement := strtofloat(eTimeToSafePlacement.text);
    FGLCameraController.soTimeToOrbit := strtofloat(eTimeToOrbit.text);
    FGLCameraController.soTimeToZoomBackIn := strtofloat(eTimeToZoomBackIn.text);
  end;
end;

function TForm1.OnGetCameraPosition(const ASender: TGLNavigatorSmoothChangeVector): TGLVector;
begin
  if ASender = FCameraSmoothAnimator_AbsPos then
    Result := GLCamera.AbsolutePosition
  else
    Result := GLCamera.Position.DirectVector;
end;

procedure TForm1.OnSetCameraPosition(const ASender: TGLNavigatorSmoothChangeVector;
  const AValue: TGLVector);
begin
  if ASender = FCameraSmoothAnimator_AbsPos then
    GLCamera.AbsolutePosition := AValue
  else
    GLCamera.Position.AsVector := AValue;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  FGLCameraController := GLCameraController1;

  FCameraSmoothAnimator_AbsPos := TGLNavigatorSmoothChangeVector.Create
    (GLSmoothNavigator.CustomAnimatedItems);
  FCameraSmoothAnimator_AbsPos.Enabled := False;
  FCameraSmoothAnimator_AbsPos.Inertia := 0.6;
  FCameraSmoothAnimator_AbsPos.Speed := 1;
  FCameraSmoothAnimator_AbsPos.SpeedLimit := 5000;
  FCameraSmoothAnimator_AbsPos.Cutoff := 0.0001;
  FCameraSmoothAnimator_AbsPos.OnGetCurrentValue := OnGetCameraPosition;
  FCameraSmoothAnimator_AbsPos.OnSetCurrentValue := OnSetCameraPosition;

  FCameraSmoothAnimator_RelPos := TGLNavigatorSmoothChangeVector.Create
    (GLSmoothNavigator.CustomAnimatedItems);
  FCameraSmoothAnimator_RelPos.Assign(FCameraSmoothAnimator_AbsPos);

  GLSmoothNavigator.MovingObject := GLCamera;
  GLSmoothNavigator.MoveAroundParams.TargetObject := GLCamera.TargetObject;
end;

// MoveToPos Usage
procedure TForm1.btnMoveToPosClick(Sender: TObject);
begin
  GetInput(TButton(Sender));
  FGLCameraController.MoveToPos(DextX, DextY, DextZ, Time);
end;

// ZoomToDistance Usage
procedure TForm1.btnZoomToDistanceClick(Sender: TObject);
begin
  GetInput(TButton(Sender));
  FGLCameraController.ZoomToDistance(ZoomDistance, Time);
end;

// OrbitToPos Usage
procedure TForm1.btnOrbitToPosClick(Sender: TObject);
var
  lTargetPosition: TGLVector;
begin
  GetInput(TButton(Sender));
  lTargetPosition := dcSphere.LocalToAbsolute(PointMake(DextX, DextY, DextZ));

  FGLCameraController.OrbitToPos(lTargetPosition.X, lTargetPosition.Y, lTargetPosition.Z, Time);
end;

procedure TForm1.btnOrbitToPosAdvClick(Sender: TObject);
var
  lTargetPosition: TGLVector;
begin
  GetInput(TButton(Sender));
  lTargetPosition := dcSphere.LocalToAbsolute(PointMake(DextX, DextY, DextZ));
  FGLCameraController.OrbitToPosAdvanced(lTargetPosition.X, lTargetPosition.Y, lTargetPosition.Z,
    Time, UpAxis.Checked);
end;

// SafeOrbitAndZoomToPos Usage
procedure TForm1.btnSafeOrbitAndZoomToPosClick(Sender: TObject);
begin
  GetInput(TButton(Sender));
  FGLCameraController.SafeOrbitAndZoomToPos(DextX, DextY, DextZ);
end;

// GUI Implementation - Pay attention to FGLCameraController.AllowUserAction!

procedure TForm1.FormMouseWheel(Sender: TObject; Shift: TShiftState; WheelDelta: Integer;
  MousePos: TPoint; var Handled: Boolean);
begin
  FCameraSmoothAnimator_AbsPos.Enabled := False;
  FCameraSmoothAnimator_RelPos.Enabled := False;
  GLCamera.AdjustDistanceToTarget(Power(1.1, WheelDelta / 120));
end;

procedure TForm1.GLCadencer1Progress(Sender: TObject; const deltaTime, newTime: Double);
begin
  if cbMoveParent.Checked then
  begin
    dcMovingParent.Position.X := Sin(newTime * 1.5) * 8;
  end;

  // For btSmoothOrbitAndZoomClick Order of these commands is important.
  GLSmoothNavigator.AdjustDistanceToTarget(0, deltaTime);

  FGLCameraController.Step(deltaTime, newTime);

  // This component requires FixedDeltaTime higher than FMaxExpectedDeltatime.
  GLSmoothNavigator.AnimateCustomItems(deltaTime);
end;

procedure TForm1.GLSceneViewer1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState;
  X, Y: Integer);
begin
  FCameraSmoothAnimator_AbsPos.Enabled := False;
  FCameraSmoothAnimator_RelPos.Enabled := False;
  FGLCameraController.StopMovement;

  if Shift = [ssLeft] then
  begin
    mx := X;
    my := Y;
  end;
end;

procedure TForm1.GLSceneViewer1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin

  if Shift = [ssLeft] then
  begin
    GLCamera.MoveAroundTarget(my - Y, mx - X);
    mx := X;
    my := Y;
    Caption := 'Camera Controller - camera position = ' + FormatFloat('0.##', GLCamera.Position.X) +
      '/' + FormatFloat('0.##', GLCamera.Position.Y) + '/' +
      FormatFloat('0.##', GLCamera.Position.Z);
  end;
end;

procedure TForm1.GLSceneViewer1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState;
  X, Y: Integer);
begin
  Caption := 'Camera Controller';
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  camDirX.text := Format('%.4f', [GLCamera.Direction.X]);
  camDirY.text := Format('%.4f', [GLCamera.Direction.Y]);
  camDirZ.text := Format('%.4f', [GLCamera.Direction.Z]);

  camUpX.text := Format('%.4f', [GLCamera.Up.X]);
  camUpY.text := Format('%.4f', [GLCamera.Up.Y]);
  camUpZ.text := Format('%.4f', [GLCamera.Up.Z]);
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  GLCadencer1.Enabled := False;
end;

procedure TForm1.btSmoothOrbitClick(Sender: TObject);
var
  lAngle: Single; // In radians.
  lTime: Single;
  lNeedToRecalculateZoom: Boolean;
  lTargetPosition: TGLVector;
begin
  GetInput(TButton(Sender));

  lTargetPosition := dcSphere.LocalToAbsolute(PointMake(DextX, DextY, DextZ));

  lAngle := AngleBetweenVectors(GLCamera.AbsolutePosition, lTargetPosition,
    GLSphere1.AbsolutePosition);

  // The final look and feel of smooth animation is affected by
  // FCameraSmoothAnimator_AbsPos's propperties and this value.
  lTime := lAngle * 2;
  FCameraSmoothAnimator_RelPos.ResetTargetValue();
  FCameraSmoothAnimator_RelPos.Enabled := True;

  if Sender = btSmoothOrbit then
    lNeedToRecalculateZoom := False
  else if Sender = btSmoothOrbitAndZoom then
    lNeedToRecalculateZoom := True
  else
  begin
    lNeedToRecalculateZoom := False;
    Assert(False);
  end;

  FGLCameraController.OrbitToPosSmooth(lTargetPosition, lTime, FCameraSmoothAnimator_RelPos,
    lNeedToRecalculateZoom, @YHmgVector);
end;

procedure TForm1.btSmoothOrbitAndZoomClick(Sender: TObject);
begin
  btSmoothOrbitClick(btSmoothOrbitAndZoom);
  GLSmoothNavigator.AdjustDistanceParams.AddImpulse(Sign(Random - 0.5) * 10);
end;

procedure TForm1.btSmoothOrbitToPosAdvClick(Sender: TObject);
var
  lAngle: Single; // In radians.
  lTime: Single;
  lTargetPosition: TGLVector;
begin
  GetInput(TButton(Sender));

  lTargetPosition := dcSphere.LocalToAbsolute(PointMake(DextX, DextY, DextZ));

  lAngle := AngleBetweenVectors(GLCamera.AbsolutePosition, lTargetPosition,
    GLSphere1.AbsolutePosition);

  lTime := lAngle; // Speed can be controled by applying a multiplier here.

  FCameraSmoothAnimator_AbsPos.TargetValue.DirectVector := GLCamera.AbsolutePosition;
  FCameraSmoothAnimator_AbsPos.Enabled := True;
  FGLCameraController.OrbitToPosAdvancedSmooth(lTargetPosition.X, lTargetPosition.Y,
    lTargetPosition.Z, lTime, FCameraSmoothAnimator_AbsPos);
end;

initialization

FormatSettings.DecimalSeparator := '.';

end.