CD3DArcBall

type CD3DArcBall = class

protected

  m_mRotation: TD3DXMatrixA16;

  m_mTranslation: TD3DXMatrixA16;

  m_mTranslationDelta: TD3DXMatrixA16;

  m_Offset: TPoint;

  m_nWidth: Integer;

  m_nHeight: Integer;

  m_vCenter: TD3DXVector2;

  m_fRadius: Single;

  m_fRadiusTranslation: Single;

  m_qDown: TD3DXQuaternion;

  m_qNow: TD3DXQuaternion;

  m_bDrag: Boolean;

  m_ptLastMouse: TPoint;

  m_vDownPt: TD3DXVector3;

  m_vCurrentPt: TD3DXVector3;

  function ScreenToVector();

public

  constructor Create;

  procedure Reset;

  procedure SetTranslationRadius();

  procedure SetWindow();

  procedure SetOffset();

  procedure OnBegin();

  procedure OnMove();

  procedure OnEnd;

  function HandleMessages();

  function GetRotationMatrix;

  function GetTranslationMatrix;

  function GetTranslationDeltaMatrix;

  function IsBeingDragged;

  function GetQuatNow;

  procedure SetQuatNow();

  class function QuatFromBallPoints();

end;

CD3DArcBall

TObject