CBaseCamera

type CBaseCamera = class

protected

  m_mView: TD3DXMatrix;

  m_mProj: TD3DXMatrix;

  m_GamePad: array [0..DXUT_MAX_CONTROLLERS-1] of TDXUTGamePad;

  m_vGamePadLeftThumb: TD3DXVector3;

  m_vGamePadRightThumb: TD3DXVector3;

  m_GamePadLastActive: array [0..DXUT_MAX_CONTROLLERS-1] of Double;

  m_cKeysDown: Integer;

  m_aKeys: array [CAM_STRAFE_LEFT..Pred(CAM_MAX_KEYS)] of Byte;

  m_vKeyboardDirection: TD3DXVector3;

  m_ptLastMousePosition: TPoint;

  m_bMouseLButtonDown: Boolean;

  m_bMouseMButtonDown: Boolean;

  m_bMouseRButtonDown: Boolean;

  m_nCurrentButtonMask: Integer;

  m_nMouseWheelDelta: Integer;

  m_vMouseDelta: TD3DXVector2;

  m_fFramesToSmoothMouseData: Single;

  m_vDefaultEye: TD3DXVector3;

  m_vDefaultLookAt: TD3DXVector3;

  m_vEye: TD3DXVector3;

  m_vLookAt: TD3DXVector3;

  m_fCameraYawAngle: Single;

  m_fCameraPitchAngle: Single;

  m_rcDrag: TRect;

  m_vVelocity: TD3DXVector3;

  m_bMovementDrag: Boolean;

  m_vVelocityDrag: TD3DXVector3;

  m_fDragTimer: Single;

  m_fTotalDragTimeToZero: Single;

  m_vRotVelocity: TD3DXVector2;

  m_fFOV: Single;

  m_fAspect: Single;

  m_fNearPlane: Single;

  m_fFarPlane: Single;

  m_fRotationScaler: Single;

  m_fMoveScaler: Single;

  m_bInvertPitch: Boolean;

  m_bEnablePositionMovement: Boolean;

  m_bEnableYAxisMovement: Boolean;

  m_bClipToBoundary: Boolean;

  m_vMinBoundary: TD3DXVector3;

  m_vMaxBoundary: TD3DXVector3;

  function MapKey(); virtual;

  function IsKeyDown();

  function WasKeyDown();

  procedure ConstrainToBoundary();

  procedure UpdateVelocity();

  procedure GetInput();

public

  constructor Create;

  function HandleMessages(); virtual;

  procedure FrameMove(); virtual; abstract;

  procedure Reset; virtual;

  procedure SetViewParams(); virtual;

  procedure SetProjParams(); virtual;

  procedure SetDragRect(); virtual;

  procedure SetInvertPitch();

  procedure SetDrag();

  procedure SetEnableYAxisMovement();

  procedure SetEnablePositionMovement();

  procedure SetClipToBoundary();

  procedure SetScalers();

  procedure SetNumberOfFramesToSmoothMouseData();

  function GetViewMatrix;

  function GetProjMatrix;

  function GetEyePt;

  function GetLookAtPt;

  function IsBeingDragged;

  property IsMouseLButtonDown: Boolean; [r]

  property IsMouseMButtonDown: Boolean; [r]

  property IsMouseRButtonDown: Boolean; [r]

  property NearClip: Single; [r]

  property FarClip: Single; [r]

end;

CBaseCamera

TObject