TGLCameraController

type TGLCameraController = class(TComponent)

protected

  procedure Notification(); override;

public

  constructor Create(); override;

  destructor Destroy; override;

  function MoveToPos();

  function OrbitToPos();

  function OrbitToPosSmooth();

  function OrbitToPosAdvanced();

  function OrbitToPosAdvancedSmooth();

  function ZoomToDistance();

  procedure SafeOrbitAndZoomToPos();

  procedure StopMovement;

  procedure Step();

  property CameraJobList: TGLCameraJobList; [r]

published

  property Camera: TGLBaseSceneObject; [rw]

  property CameraTarget: TGLBaseSceneObject; [rw]

  property soSafeDistance: Double; [rw]

  property soTimeToSafePlacement: Double; [rw]

  property soTimeToOrbit: Double; [rw]

  property soTimeToZoomBackIn: Double; [rw]

  property OnJobAdded: TGLCameraJobEvent; [rw]

  property OnJobStep: TGLCameraJobEvent; [rw]

  property OnJobFinished: TGLCameraJobEvent; [rw]

end;

TGLCameraController

TObject