TCamera

type TCamera = class

protected

  mat: array of TMatrix;

  saved: array of TMatrix;

public

  path: array of TCameraPath;

  constructor Create;

  destructor Destroy; override;

  function AddPath;

  procedure DeletePath();

  procedure GetFromModelView;

  function GetMatrix;

  function GetVector();

  function IndexOfPath();

  procedure Interpolate();

  procedure Load();

  procedure LookAt();

  procedure Multiply();

  function PathCount;

  procedure Pop();

  procedure Push;

  procedure Reset();

  procedure ResetStack;

  procedure Rotate();

  function SaveCount;

  procedure Save();

  procedure Scale();

  procedure SetCamera;

  procedure Translate();

end;

TCamera

TObject