Reference TQuaternion

  TQuaternion = record
  public
    { Convert a quaternion to a rotation matrix }
    class operator Explicit(const A: TQuaternion): TMatrix4x4;
    { Convert the rotation of a matrix to a quaternion }
    class operator Implicit(const A: TMatrix4x4): TQuaternion;
    { Combine two rotations }
    class operator Multiply(const A, B: TQuaternion): TQuaternion;
    { Invert the rotation in place }
    procedure Conjugate;
    { Scale to unit length }
    procedure Normalize;
    W: Float;
    X: Float;
    Y: Float;
    Z: Float;
    Q: array[0..3] of Float;
  end;