d3dx9.pas

冒险岛吸怪源码ＵＣＥ的制作材料 用于冒险岛游戏的外挂

(*)
 *******************************************************************************
 *
 * Vectors
 *
 *******************************************************************************
(*)

(*)
 *******************************************************************************
 * 2D Vector
 *******************************************************************************
(*)

type
  PD3DXVector2 = ^TD3DXVector2;
  TD3DXVector2 = packed record
    x, y : Single;
  end;

const
  D3DXVector2Zero : TD3DXVector2 = (x : 0; y : 0);

function D3DXVector2(const x, y : Single) : TD3DXVector2;
function D3DXVector2Equal(const v1, v2 : TD3DXVector2) : Boolean;

(*)
 *******************************************************************************
 * 2D Vector (16 Bit)
 *******************************************************************************
(*)

type
  PD3DXVector2_16F = ^TD3DXVector2_16F;
  TD3DXVector2_16F = packed record
    x, y : TD3DXFloat16
  end;

(*)
 *******************************************************************************
 * 3D Vector
 *******************************************************************************
(*)

type
  PD3DXVector3 = ^TD3DXVector3;
  TD3DXVector3 = TD3DVector;

const
  D3DXVector3Zero : TD3DXVector3 = (x : 0; y : 0; z : 0);
  
function D3DXVector3(const x, y, z : Single) : TD3DXVector3;
function D3DXVector3Equal(const v1, v2 : TD3DXVector3) : Boolean;

(*)
 *******************************************************************************
 * 3D Vector (16 Bit)
 *******************************************************************************
(*)

type
  PD3DXVector3_16F = ^TD3DXVector3_16F;
  TD3DXVector3_16F = packed record
    x, y, z : TD3DXFloat16
  end;

(*)
 *******************************************************************************
 * 4D Vector
 *******************************************************************************
(*)

type
  PD3DXVector4 = ^TD3DXVector4;
  TD3DXVector4 = packed record
    x, y, z, w : Single;
  end;

const
  D3DXVector4Zero : TD3DXVector4 = (x : 0; y : 0; z : 0; w : 0);

function D3DXVector4(const x, y, z, w : Single) : TD3DXVector4;
function D3DXVector4Equal(const v1, v2 : TD3DXVector4) : Boolean;

(*)
 *******************************************************************************
 * 4D Vector (16 Bit)
 *******************************************************************************
(*)
type
  PD3DXVector4_16F = ^TD3DXVector4_16F;
  TD3DXVector4_16F = packed record
    x, y, z, w : TD3DXFloat16
  end;

(*)
 *******************************************************************************
 *
 * Matrices
 *
 *******************************************************************************
(*)

type
  PPD3DXMatrix = ^PD3DXMatrix;
  PD3DXMatrix = ^TD3DXMatrix;
  TD3DXMatrix = TD3DMatrix;

const
  D3DXMatrixIdentity : TD3DXMatrix = (_00 : 1; _01 : 0; _02 : 0; _03 : 0;
                                      _10 : 0; _11 : 1; _12 : 0; _13 : 0;
                                      _20 : 0; _21 : 0; _22 : 1; _23 : 0;
                                      _30 : 0; _31 : 0; _32 : 0; _33 : 1);

function D3DXMatrix(const m00, m01, m02, m03,
                          m10, m11, m12, m13,
                          m20, m21, m22, m23,
                          m30, m31, m32, m33 : Single) : TD3DXMatrix;
function D3DXMatrixAdd(const m1, m2 : TD3DXMatrix) : TD3DXMatrix;
function D3DXMatrixSubtract(const m1, m2 : TD3DXMatrix) : TD3DXMatrix;
function D3DXMatrixScale(const m : TD3DXMatrix; const ScaleBy : Single) : TD3DXMatrix;
function D3DXMatrixEqual(const m1, m2 : TD3DXMatrix) : Boolean;

(*)
 *******************************************************************************
 *
 * Quaternions
 *
 *******************************************************************************
(*)

type
  PD3DXQuaternion = ^TD3DXQuaternion;
  TD3DXQuaternion = packed record
    x, y, z, w : Single;
  end;

const
  D3DXQuaternionIdentity : TD3DXQuaternion = (x : 0; y : 0; z : 0; w : 1);

function D3DXQuaternion(const x, y, z, w : Single) : TD3DXQuaternion;
function D3DXQuaternionAdd(const q1, q2 : TD3DXQuaternion) : TD3DXQuaternion;
function D3DXQuaternionSubtract(const q1, q2 : TD3DXQuaternion) : TD3DXQuaternion;
function D3DXQuaternionEqual(const q1, q2 : TD3DXQuaternion) : Boolean;
function D3DXQuaternionScale(const q : TD3DXQuaternion; const ScaleBy : Single) : TD3DXQuaternion;

(*)
 *******************************************************************************
 *
 * Planes
 *
 *******************************************************************************