开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 游戏 > 游戏引擎 > 查看源码
D3DX8.pas
资源名称：CAST2SDK.rar　[点击查看]
上传用户：yj_qiu
上传日期：2022-08-08
资源大小：23636k
文件大小：174k
源码类别：

游戏引擎

开发平台：

Delphi

D3DX8.pas：源码内容
  1. //////////////////////////////////////////////////////////////////////////////
  2. //
  3. //  Copyright (C) Microsoft Corporation.  All Rights Reserved.
  4. //
  5. //  File:       d3dx8tex.h
  6. //  Content:    D3DX texturing APIs
  7. //
  8. //////////////////////////////////////////////////////////////////////////////
  10. //----------------------------------------------------------------------------
  11. // D3DX_FILTER flags:
  12. // ------------------
  13. //
  14. // A valid filter must contain one of these values:
  15. //
  16. //  D3DX_FILTER_NONE
  17. //      No scaling or filtering will take place.  Pixels outside the bounds
  18. //      of the source image are assumed to be transparent black.
  19. //  D3DX_FILTER_POINT
  20. //      Each destination pixel is computed by sampling the nearest pixel
  21. //      from the source image.
  22. //  D3DX_FILTER_LINEAR
  23. //      Each destination pixel is computed by linearly interpolating between
  24. //      the nearest pixels in the source image.  This filter works best
  25. //      when the scale on each axis is less than 2.
  26. //  D3DX_FILTER_TRIANGLE
  27. //      Every pixel in the source image contributes equally to the
  28. //      destination image.  This is the slowest of all the filters.
  29. //  D3DX_FILTER_BOX
  30. //      Each pixel is computed by averaging a 2x2(x2) box pixels from
  31. //      the source image. Only works when the dimensions of the
  32. //      destination are half those of the source. (as with mip maps)
  33. //
  34. // And can be OR'd with any of these optional flags:
  35. //
  36. //  D3DX_FILTER_MIRROR_U
  37. //      Indicates that pixels off the edge of the texture on the U-axis
  38. //      should be mirrored, not wraped.
  39. //  D3DX_FILTER_MIRROR_V
  40. //      Indicates that pixels off the edge of the texture on the V-axis
  41. //      should be mirrored, not wraped.
  42. //  D3DX_FILTER_MIRROR_W
  43. //      Indicates that pixels off the edge of the texture on the W-axis
  44. //      should be mirrored, not wraped.
  45. //  D3DX_FILTER_MIRROR
  46. //      Same as specifying D3DX_FILTER_MIRROR_U | D3DX_FILTER_MIRROR_V |
  47. //      D3DX_FILTER_MIRROR_V
  48. //  D3DX_FILTER_DITHER
  49. //      Dithers the resulting image.
  50. //
  51. //----------------------------------------------------------------------------
  53. const
  54.   D3DX_FILTER_NONE      = (1 shl 0);
  55.   {$EXTERNALSYM D3DX_FILTER_NONE}
  56.   D3DX_FILTER_POINT     = (2 shl 0);
  57.   {$EXTERNALSYM D3DX_FILTER_POINT}
  58.   D3DX_FILTER_LINEAR    = (3 shl 0);
  59.   {$EXTERNALSYM D3DX_FILTER_LINEAR}
  60.   D3DX_FILTER_TRIANGLE  = (4 shl 0);
  61.   {$EXTERNALSYM D3DX_FILTER_TRIANGLE}
  62.   D3DX_FILTER_BOX       = (5 shl 0);
  63.   {$EXTERNALSYM D3DX_FILTER_BOX}
  65.   D3DX_FILTER_MIRROR_U  = (1 shl 16);
  66.   {$EXTERNALSYM D3DX_FILTER_MIRROR_U}
  67.   D3DX_FILTER_MIRROR_V  = (2 shl 16);
  68.   {$EXTERNALSYM D3DX_FILTER_MIRROR_V}
  69.   D3DX_FILTER_MIRROR_W  = (4 shl 16);
  70.   {$EXTERNALSYM D3DX_FILTER_MIRROR_W}
  71.   D3DX_FILTER_MIRROR    = (7 shl 16);
  72.   {$EXTERNALSYM D3DX_FILTER_MIRROR}
  73.   D3DX_FILTER_DITHER    = (8 shl 16);
  74.   {$EXTERNALSYM D3DX_FILTER_DITHER}
  77. //----------------------------------------------------------------------------
  78. // D3DX_NORMALMAP flags:
  79. // ---------------------
  80. // These flags are used to control how D3DXComputeNormalMap generates normal
  81. // maps.  Any number of these flags may be OR'd together in any combination.
  82. //
  83. //  D3DX_NORMALMAP_MIRROR_U
  84. //      Indicates that pixels off the edge of the texture on the U-axis
  85. //      should be mirrored, not wraped.
  86. //  D3DX_NORMALMAP_MIRROR_V
  87. //      Indicates that pixels off the edge of the texture on the V-axis
  88. //      should be mirrored, not wraped.
  89. //  D3DX_NORMALMAP_MIRROR
  90. //      Same as specifying D3DX_NORMALMAP_MIRROR_U | D3DX_NORMALMAP_MIRROR_V
  91. //  D3DX_NORMALMAP_INVERTSIGN
  92. //      Inverts the direction of each normal
  93. //  D3DX_NORMALMAP_COMPUTE_OCCLUSION
  94. //      Compute the per pixel Occlusion term and encodes it into the alpha.
  95. //      An Alpha of 1 means that the pixel is not obscured in anyway, and
  96. //      an alpha of 0 would mean that the pixel is completly obscured.
  97. //
  98. //----------------------------------------------------------------------------
  100. //----------------------------------------------------------------------------
  102. const
  103.   D3DX_NORMALMAP_MIRROR_U     = (1 shl 16);
  104.   {$EXTERNALSYM D3DX_NORMALMAP_MIRROR_U}
  105.   D3DX_NORMALMAP_MIRROR_V     = (2 shl 16);
  106.   {$EXTERNALSYM D3DX_NORMALMAP_MIRROR_V}
  107.   D3DX_NORMALMAP_MIRROR       = (3 shl 16);
  108.   {$EXTERNALSYM D3DX_NORMALMAP_MIRROR}
  109.   D3DX_NORMALMAP_INVERTSIGN   = (8 shl 16);
  110.   {$EXTERNALSYM D3DX_NORMALMAP_INVERTSIGN}
  111.   D3DX_NORMALMAP_COMPUTE_OCCLUSION = (16 shl 16);
  112.   {$EXTERNALSYM D3DX_NORMALMAP_COMPUTE_OCCLUSION}
  115. //----------------------------------------------------------------------------
  116. // D3DX_CHANNEL flags:
  117. // -------------------
  118. // These flags are used by functions which operate on or more channels
  119. // in a texture.
  120. //
  121. // D3DX_CHANNEL_RED
  122. //     Indicates the red channel should be used
  123. // D3DX_CHANNEL_BLUE
  124. //     Indicates the blue channel should be used
  125. // D3DX_CHANNEL_GREEN
  126. //     Indicates the green channel should be used
  127. // D3DX_CHANNEL_ALPHA
  128. //     Indicates the alpha channel should be used
  129. // D3DX_CHANNEL_LUMINANCE
  130. //     Indicates the luminaces of the red green and blue channels should be
  131. //     used.
  132. //
  133. //----------------------------------------------------------------------------
  135. const
  136.   D3DX_CHANNEL_RED            = (1 shl 0);
  137.   {$EXTERNALSYM D3DX_CHANNEL_RED}
  138.   D3DX_CHANNEL_BLUE           = (1 shl 1);
  139.   {$EXTERNALSYM D3DX_CHANNEL_BLUE}
  140.   D3DX_CHANNEL_GREEN          = (1 shl 2);
  141.   {$EXTERNALSYM D3DX_CHANNEL_GREEN}
  142.   D3DX_CHANNEL_ALPHA          = (1 shl 3);
  143.   {$EXTERNALSYM D3DX_CHANNEL_ALPHA}
  144.   D3DX_CHANNEL_LUMINANCE      = (1 shl 4);
  145.   {$EXTERNALSYM D3DX_CHANNEL_LUMINANCE}
  148. //----------------------------------------------------------------------------
  149. // D3DXIMAGE_FILEFORMAT:
  150. // ---------------------
  151. // This enum is used to describe supported image file formats.
  152. //
  153. //----------------------------------------------------------------------------
  155. type
  156.   PD3DXImageFileFormat = ^TD3DXImageFileFormat;
  157.   _D3DXIMAGE_FILEFORMAT = (
  158.     D3DXIFF_BMP        {= 0},
  159.     D3DXIFF_JPG        {= 1},
  160.     D3DXIFF_TGA        {= 2},
  161.     D3DXIFF_PNG        {= 3},
  162.     D3DXIFF_DDS        {= 4},
  163.     D3DXIFF_PPM        {= 5},
  164.     D3DXIFF_DIB        {= 6}
  165.   );
  166.   {$EXTERNALSYM _D3DXIMAGE_FILEFORMAT}
  167.   D3DXIMAGE_FILEFORMAT = _D3DXIMAGE_FILEFORMAT;
  168.   {$EXTERNALSYM D3DXIMAGE_FILEFORMAT}
  169.   TD3DXImageFileFormat = _D3DXIMAGE_FILEFORMAT;
  172. //----------------------------------------------------------------------------
  173. // LPD3DXFILL2D and LPD3DXFILL3D:
  174. // ------------------------------
  175. // Function types used by the texture fill functions.
  176. //
  177. // Parameters:
  178. //  pOut
  179. //      Pointer to a vector which the function uses to return its result.
  180. //      X,Y,Z,W will be mapped to R,G,B,A respectivly.
  181. //  pTexCoord
  182. //      Pointer to a vector containing the coordinates of the texel currently
  183. //      being evaluated.  Textures and VolumeTexture texcoord components
  184. //      range from 0 to 1. CubeTexture texcoord component range from -1 to 1.
  185. //  pTexelSize
  186. //      Pointer to a vector containing the dimensions of the current texel.
  187. //  pData
  188. //      Pointer to user data.
  189. //
  190. //----------------------------------------------------------------------------
  192. type
  193.   // typedef VOID (*LPD3DXFILL2D)(D3DXVECTOR4 *pOut, D3DXVECTOR2 *pTexCoord, D3DXVECTOR2 *pTexelSize, LPVOID pData);
  194.   LPD3DXFILL2D = procedure (out pOut: TD3DXVector4; const pTexCoord, pTexelSize: TD3DXVector2; var pData); cdecl;
  195.   {$EXTERNALSYM LPD3DXFILL2D}
  196.   TD3DXFill2D = LPD3DXFILL2D;
  197.   // typedef VOID (*LPD3DXFILL3D)(D3DXVECTOR4 *pOut, D3DXVECTOR3 *pTexCoord, D3DXVECTOR3 *pTexelSize, LPVOID pData);
  198.   LPD3DXFILL3D = procedure (out pOut: TD3DXVector4; const pTexCoord, pTexelSize: TD3DXVector3; var pData); cdecl;
  199.   {$EXTERNALSYM LPD3DXFILL3D}
  200.   TD3DXFill3D = LPD3DXFILL3D;
  203. //----------------------------------------------------------------------------
  204. // D3DXIMAGE_INFO:
  205. // ---------------
  206. // This structure is used to return a rough description of what the
  207. // the original contents of an image file looked like.
  208. //
  209. //  Width
  210. //      Width of original image in pixels
  211. //  Height
  212. //      Height of original image in pixels
  213. //  Depth
  214. //      Depth of original image in pixels
  215. //  MipLevels
  216. //      Number of mip levels in original image
  217. //  Format
  218. //      D3D format which most closely describes the data in original image
  219. //  ResourceType
  220. //      D3DRESOURCETYPE representing the type of texture stored in the file.
  221. //      D3DRTYPE_TEXTURE, D3DRTYPE_VOLUMETEXTURE, or D3DRTYPE_CUBETEXTURE.
  222. //  ImageFileFormat
  223. //      D3DXIMAGE_FILEFORMAT representing the format of the image file.
  224. //
  225. //----------------------------------------------------------------------------
  227. type
  228.   PD3DXImageInfo = ^TD3DXImageInfo;
  229.   _D3DXIMAGE_INFO = packed record
  230.     Width:      LongWord;
  231.     Height:     LongWord;
  232.     Depth:      LongWord;
  233.     MipLevels:  LongWord;
  234.     Format:     TD3DFormat;
  235.     ResourceType: TD3DResourceType;
  236.     ImageFileFormat: TD3DXImageFileFormat;
  237.   end;
  238.   {$EXTERNALSYM _D3DXIMAGE_INFO}
  239.   D3DXIMAGE_INFO = _D3DXIMAGE_INFO;
  240.   {$EXTERNALSYM D3DXIMAGE_INFO}
  241.   TD3DXImageInfo = _D3DXIMAGE_INFO;
  244. //////////////////////////////////////////////////////////////////////////////
  245. // Image File APIs ///////////////////////////////////////////////////////////
  246. //////////////////////////////////////////////////////////////////////////////
  248. //----------------------------------------------------------------------------
  249. // GetImageInfoFromFile/Resource:
  250. // ------------------------------
  251. // Fills in a D3DXIMAGE_INFO struct with information about an image file.
  252. //
  253. // Parameters:
  254. //  pSrcFile
  255. //      File name of the source image.
  256. //  pSrcModule
  257. //      Module where resource is located, or NULL for module associated
  258. //      with image the os used to create the current process.
  259. //  pSrcResource
  260. //      Resource name
  261. //  pSrcData
  262. //      Pointer to file in memory.
  263. //  SrcDataSize
  264. //      Size in bytes of file in memory.
  265. //  pSrcInfo
  266. //      Pointer to a D3DXIMAGE_INFO structure to be filled in with the
  267. //      description of the data in the source image file.
  268. //
  269. //----------------------------------------------------------------------------
  271. function D3DXGetImageInfoFromFileA(
  272.   pSrcFile: PAnsiChar;
  273.   out pSrcInfo: TD3DXImageInfo): HResult; stdcall; external d3dx8dll name 'D3DXGetImageInfoFromFileA';
  274. {$EXTERNALSYM D3DXGetImageInfoFromFileA}
  276. function D3DXGetImageInfoFromFileW(
  277.   pSrcFile: PWideChar;
  278.   out pSrcInfo: TD3DXImageInfo): HResult; stdcall; external d3dx8dll name 'D3DXGetImageInfoFromFileW';
  279. {$EXTERNALSYM D3DXGetImageInfoFromFileW}
  281. function D3DXGetImageInfoFromFile(
  282.   pSrcFile: PChar;
  283.   out pSrcInfo: TD3DXImageInfo): HResult; stdcall; external d3dx8dll name 'D3DXGetImageInfoFromFileA';
  284. {$EXTERNALSYM D3DXGetImageInfoFromFile}
  287. function D3DXGetImageInfoFromResourceA(
  288.   hSrcModule: HModule;
  289.   pSrcResource: PAnsiChar;
  290.   out pSrcInfo: TD3DXImageInfo): HResult; stdcall; external d3dx8dll name 'D3DXGetImageInfoFromResourceA';
  291. {$EXTERNALSYM D3DXGetImageInfoFromResourceA}
  293. function D3DXGetImageInfoFromResourceW(
  294.   hSrcModule: HModule;
  295.   pSrcResource: PWideChar;
  296.   out pSrcInfo: TD3DXImageInfo): HResult; stdcall; external d3dx8dll name 'D3DXGetImageInfoFromResourceW';
  297. {$EXTERNALSYM D3DXGetImageInfoFromResourceW}
  299. function D3DXGetImageInfoFromResource(
  300.   hSrcModule: HModule;
  301.   pSrcResource: PChar;
  302.   out pSrcInfo: TD3DXImageInfo): HResult; stdcall; external d3dx8dll name 'D3DXGetImageInfoFromResourceA';
  303. {$EXTERNALSYM D3DXGetImageInfoFromResource}
  306. function D3DXGetImageInfoFromFileInMemory(
  307.   const pSrcData;
  308.   SrcDataSize: LongWord;
  309.   out pSrcInfo: TD3DXImageInfo): HResult; stdcall; external d3dx8dll;
  310. {$EXTERNALSYM D3DXGetImageInfoFromFileInMemory}
  313. //////////////////////////////////////////////////////////////////////////////
  314. // Load/Save Surface APIs ////////////////////////////////////////////////////
  315. //////////////////////////////////////////////////////////////////////////////
  318. //----------------------------------------------------------------------------
  319. // D3DXLoadSurfaceFromFile/Resource:
  320. // ---------------------------------
  321. // Load surface from a file or resource
  322. //
  323. // Parameters:
  324. //  pDestSurface
  325. //      Destination surface, which will receive the image.
  326. //  pDestPalette
  327. //      Destination palette of 256 colors, or NULL
  328. //  pDestRect
  329. //      Destination rectangle, or NULL for entire surface
  330. //  pSrcFile
  331. //      File name of the source image.
  332. //  pSrcModule
  333. //      Module where resource is located, or NULL for module associated
  334. //      with image the os used to create the current process.
  335. //  pSrcResource
  336. //      Resource name
  337. //  pSrcData
  338. //      Pointer to file in memory.
  339. //  SrcDataSize
  340. //      Size in bytes of file in memory.
  341. //  pSrcRect
  342. //      Source rectangle, or NULL for entire image
  343. //  Filter
  344. //      D3DX_FILTER flags controlling how the image is filtered.
  345. //      Or D3DX_DEFAULT for D3DX_FILTER_TRIANGLE.
  346. //  ColorKey
  347. //      Color to replace with transparent black, or 0 to disable colorkey.
  348. //      This is always a 32-bit ARGB color, independent of the source image
  349. //      format.  Alpha is significant, and should usually be set to FF for
  350. //      opaque colorkeys.  (ex. Opaque black == 0xff000000)
  351. //  pSrcInfo
  352. //      Pointer to a D3DXIMAGE_INFO structure to be filled in with the
  353. //      description of the data in the source image file, or NULL.
  354. //
  355. //----------------------------------------------------------------------------
  356. function D3DXLoadSurfaceFromFileA(
  357.   pDestSurface: IDirect3DSurface8;
  358.   pDestPalette: PPaletteEntry;
  359.   pDestRect: PRect;
  360.   pSrcFile: PAnsiChar;
  361.   pSrcRect: PRect;
  362.   Filter: DWord;
  363.   ColorKey: TD3DColor;
  364.   pSrcInfo: PD3DXImageInfo): HResult; stdcall; external d3dx8dll name 'D3DXLoadSurfaceFromFileA';
  365. {$EXTERNALSYM D3DXLoadSurfaceFromFileA}
  367. function D3DXLoadSurfaceFromFileW(
  368.   pDestSurface: IDirect3DSurface8;
  369.   pDestPalette: PPaletteEntry;
  370.   pDestRect: PRect;
  371.   pSrcFile: PWideChar;
  372.   pSrcRect: PRect;
  373.   Filter: DWord;
  374.   ColorKey: TD3DColor;
  375.   pSrcInfo: PD3DXImageInfo): HResult; stdcall; external d3dx8dll name 'D3DXLoadSurfaceFromFileW';
  376. {$EXTERNALSYM D3DXLoadSurfaceFromFileW}
  378. function D3DXLoadSurfaceFromFile(
  379.   pDestSurface: IDirect3DSurface8;
  380.   pDestPalette: PPaletteEntry;
  381.   pDestRect: PRect;
  382.   pSrcFile: PChar;
  383.   pSrcRect: PRect;
  384.   Filter: DWord;
  385.   ColorKey: TD3DColor;
  386.   pSrcInfo: PD3DXImageInfo): HResult; stdcall; external d3dx8dll name 'D3DXLoadSurfaceFromFileA';
  387. {$EXTERNALSYM D3DXLoadSurfaceFromFile}
  391. function D3DXLoadSurfaceFromResourceA(
  392.   pDestSurface: IDirect3DSurface8;
  393.   pDestPalette: PPaletteEntry;
  394.   pDestRect: PRect;
  395.   hSrcModule: HModule;
  396.   pSrcResource: PAnsiChar;
  397.   pSrcRect: PRect;
  398.   Filter: DWord;
  399.   ColorKey: TD3DColor;
  400.   pSrcInfo: PD3DXImageInfo): HResult; stdcall; external d3dx8dll name 'D3DXLoadSurfaceFromResourceA';
  401. {$EXTERNALSYM D3DXLoadSurfaceFromResourceA}
  403. function D3DXLoadSurfaceFromResourceW(
  404.   pDestSurface: IDirect3DSurface8;
  405.   pDestPalette: PPaletteEntry;
  406.   pDestRect: PRect;
  407.   hSrcModule: HModule;
  408.   pSrcResource: PWideChar;
  409.   pSrcRect: PRect;
  410.   Filter: DWord;
  411.   ColorKey: TD3DColor;
  412.   pSrcInfo: PD3DXImageInfo): HResult; stdcall; external d3dx8dll name 'D3DXLoadSurfaceFromResourceW';
  413. {$EXTERNALSYM D3DXLoadSurfaceFromResourceW}
  415. function D3DXLoadSurfaceFromResource(
  416.   pDestSurface: IDirect3DSurface8;
  417.   pDestPalette: PPaletteEntry;
  418.   pDestRect: PRect;
  419.   hSrcModule: HModule;
  420.   pSrcResource: PChar;
  421.   pSrcRect: PRect;
  422.   Filter: DWord;
  423.   ColorKey: TD3DColor;
  424.   pSrcInfo: PD3DXImageInfo): HResult; stdcall; external d3dx8dll name 'D3DXLoadSurfaceFromResourceA';
  425. {$EXTERNALSYM D3DXLoadSurfaceFromResource}
  429. function D3DXLoadSurfaceFromFileInMemory(
  430.   pDestSurface: IDirect3DSurface8;
  431.   pDestPalette: PPaletteEntry;
  432.   pDestRect: PRect;
  433.   const pSrcData;
  434.   SrcDataSize: LongWord;
  435.   pSrcRect: PRect;
  436.   Filter: DWord;
  437.   ColorKey: TD3DColor;
  438.   pSrcInfo: PD3DXImageInfo): HResult; stdcall; external d3dx8dll;
  439. {$EXTERNALSYM D3DXLoadSurfaceFromFileInMemory}
  443. //----------------------------------------------------------------------------
  444. // D3DXLoadSurfaceFromSurface:
  445. // ---------------------------
  446. // Load surface from another surface (with color conversion)
  447. //
  448. // Parameters:
  449. //  pDestSurface
  450. //      Destination surface, which will receive the image.
  451. //  pDestPalette
  452. //      Destination palette of 256 colors, or NULL
  453. //  pDestRect
  454. //      Destination rectangle, or NULL for entire surface
  455. //  pSrcSurface
  456. //      Source surface
  457. //  pSrcPalette
  458. //      Source palette of 256 colors, or NULL
  459. //  pSrcRect
  460. //      Source rectangle, or NULL for entire surface
  461. //  Filter
  462. //      D3DX_FILTER flags controlling how the image is filtered.
  463. //      Or D3DX_DEFAULT for D3DX_FILTER_TRIANGLE.
  464. //  ColorKey
  465. //      Color to replace with transparent black, or 0 to disable colorkey.
  466. //      This is always a 32-bit ARGB color, independent of the source image
  467. //      format.  Alpha is significant, and should usually be set to FF for
  468. //      opaque colorkeys.  (ex. Opaque black == 0xff000000)
  469. //
  470. //----------------------------------------------------------------------------
  472. function D3DXLoadSurfaceFromSurface(
  473.   pDestSurface: IDirect3DSurface8;
  474.   pDestPalette: PPaletteEntry;
  475.   pDestRect: PRect;
  476.   pSrcSurface: IDirect3DSurface8;
  477.   pSrcPalette: PPaletteEntry;
  478.   pSrcRect: PRect;
  479.   Filter: DWord;
  480.   ColorKey: TD3DColor): HResult; stdcall; external d3dx8dll;
  481. {$EXTERNALSYM D3DXLoadSurfaceFromSurface}
  485. //----------------------------------------------------------------------------
  486. // D3DXLoadSurfaceFromMemory:
  487. // ---------------------------
  488. // Load surface from memory.
  489. //
  490. // Parameters:
  491. //  pDestSurface
  492. //      Destination surface, which will receive the image.
  493. //  pDestPalette
  494. //      Destination palette of 256 colors, or NULL
  495. //  pDestRect
  496. //      Destination rectangle, or NULL for entire surface
  497. //  pSrcMemory
  498. //      Pointer to the top-left corner of the source image in memory
  499. //  SrcFormat
  500. //      Pixel format of the source image.
  501. //  SrcPitch
  502. //      Pitch of source image, in bytes.  For DXT formats, this number
  503. //      should represent the width of one row of cells, in bytes.
  504. //  pSrcPalette
  505. //      Source palette of 256 colors, or NULL
  506. //  pSrcRect
  507. //      Source rectangle.
  508. //  Filter
  509. //      D3DX_FILTER flags controlling how the image is filtered.
  510. //      Or D3DX_DEFAULT for D3DX_FILTER_TRIANGLE.
  511. //  ColorKey
  512. //      Color to replace with transparent black, or 0 to disable colorkey.
  513. //      This is always a 32-bit ARGB color, independent of the source image
  514. //      format.  Alpha is significant, and should usually be set to FF for
  515. //      opaque colorkeys.  (ex. Opaque black == 0xff000000)
  516. //
  517. //----------------------------------------------------------------------------
  519. function D3DXLoadSurfaceFromMemory(
  520.   pDestSurface: IDirect3DSurface8;
  521.   pDestPalette: PPaletteEntry;
  522.   pDestRect: PRect;
  523.   const pSrcMemory;
  524.   SrcFormat: TD3DFormat;
  525.   SrcPitch: LongWord;
  526.   pSrcPalette: PPaletteEntry;
  527.   pSrcRect: PRect;
  528.   Filter: DWord;
  529.   ColorKey: TD3DColor): HResult; stdcall; external d3dx8dll;
  530. {$EXTERNALSYM D3DXLoadSurfaceFromMemory}
  534. //----------------------------------------------------------------------------
  535. // D3DXSaveSurfaceToFile:
  536. // ----------------------
  537. // Save a surface to a image file.
  538. //
  539. // Parameters:
  540. //  pDestFile
  541. //      File name of the destination file
  542. //  DestFormat
  543. //      D3DXIMAGE_FILEFORMAT specifying file format to use when saving.
  544. //  pSrcSurface
  545. //      Source surface, containing the image to be saved
  546. //  pSrcPalette
  547. //      Source palette of 256 colors, or NULL
  548. //  pSrcRect
  549. //      Source rectangle, or NULL for the entire image
  550. //
  551. //----------------------------------------------------------------------------
  553. function D3DXSaveSurfaceToFileA(
  554.   pDestFile: PAnsiChar;
  555.   DestFormat: TD3DXImageFileFormat;
  556.   pSrcSurface: IDirect3DSurface8;
  557.   pSrcPalette: PPaletteEntry;
  558.   pSrcRect: PRect): HResult; stdcall; external d3dx8dll name 'D3DXSaveSurfaceToFileA';
  559. {$EXTERNALSYM D3DXSaveSurfaceToFileA}
  561. function D3DXSaveSurfaceToFileW(
  562.   pDestFile: PWideChar;
  563.   DestFormat: TD3DXImageFileFormat;
  564.   pSrcSurface: IDirect3DSurface8;
  565.   pSrcPalette: PPaletteEntry;
  566.   pSrcRect: PRect): HResult; stdcall; external d3dx8dll name 'D3DXSaveSurfaceToFileW';
  567. {$EXTERNALSYM D3DXSaveSurfaceToFileW}
  569. function D3DXSaveSurfaceToFile(
  570.   pDestFile: PChar;
  571.   DestFormat: TD3DXImageFileFormat;
  572.   pSrcSurface: IDirect3DSurface8;
  573.   pSrcPalette: PPaletteEntry;
  574.   pSrcRect: PRect): HResult; stdcall; external d3dx8dll name 'D3DXSaveSurfaceToFileA';
  575. {$EXTERNALSYM D3DXSaveSurfaceToFile}
  579. //////////////////////////////////////////////////////////////////////////////
  580. // Load/Save Volume APIs /////////////////////////////////////////////////////
  581. //////////////////////////////////////////////////////////////////////////////
  584. //----------------------------------------------------------------------------
  585. // D3DXLoadVolumeFromFile/Resource:
  586. // --------------------------------
  587. // Load volume from a file or resource
  588. //
  589. // Parameters:
  590. //  pDestVolume
  591. //      Destination volume, which will receive the image.
  592. //  pDestPalette
  593. //      Destination palette of 256 colors, or NULL
  594. //  pDestBox
  595. //      Destination box, or NULL for entire volume
  596. //  pSrcFile
  597. //      File name of the source image.
  598. //  pSrcModule
  599. //      Module where resource is located, or NULL for module associated
  600. //      with image the os used to create the current process.
  601. //  pSrcResource
  602. //      Resource name
  603. //  pSrcData
  604. //      Pointer to file in memory.
  605. //  SrcDataSize
  606. //      Size in bytes of file in memory.
  607. //  pSrcBox
  608. //      Source box, or NULL for entire image
  609. //  Filter
  610. //      D3DX_FILTER flags controlling how the image is filtered.
  611. //      Or D3DX_DEFAULT for D3DX_FILTER_TRIANGLE.
  612. //  ColorKey
  613. //      Color to replace with transparent black, or 0 to disable colorkey.
  614. //      This is always a 32-bit ARGB color, independent of the source image
  615. //      format.  Alpha is significant, and should usually be set to FF for
  616. //      opaque colorkeys.  (ex. Opaque black == 0xff000000)
  617. //  pSrcInfo
  618. //      Pointer to a D3DXIMAGE_INFO structure to be filled in with the
  619. //      description of the data in the source image file, or NULL.
  620. //
  621. //----------------------------------------------------------------------------
  623. function D3DXLoadVolumeFromFileA(
  624.   pDestVolume: IDirect3DVolume8;
  625.   pDestPalette: PPaletteEntry;
  626.   pDestBox: TD3DBox;
  627.   pSrcFile: PAnsiChar;
  628.   pSrcBox: TD3DBox;
  629.   Filter: DWord;
  630.   ColorKey: TD3DColor;
  631.   pSrcInfo: PD3DXImageInfo): HResult; stdcall; external d3dx8dll name 'D3DXLoadVolumeFromFileA';
  632. {$EXTERNALSYM D3DXLoadVolumeFromFileA}
  634. function D3DXLoadVolumeFromFileW(
  635.   pDestVolume: IDirect3DVolume8;
  636.   pDestPalette: PPaletteEntry;
  637.   pDestBox: TD3DBox;
  638.   pSrcFile: PWideChar;
  639.   pSrcBox: TD3DBox;
  640.   Filter: DWord;
  641.   ColorKey: TD3DColor;
  642.   pSrcInfo: PD3DXImageInfo): HResult; stdcall; external d3dx8dll name 'D3DXLoadVolumeFromFileW';
  643. {$EXTERNALSYM D3DXLoadVolumeFromFileW}
  645. function D3DXLoadVolumeFromFile(
  646.   pDestVolume: IDirect3DVolume8;
  647.   pDestPalette: PPaletteEntry;
  648.   pDestBox: TD3DBox;
  649.   pSrcFile: PChar;
  650.   pSrcBox: TD3DBox;
  651.   Filter: DWord;
  652.   ColorKey: TD3DColor;
  653.   pSrcInfo: PD3DXImageInfo): HResult; stdcall; external d3dx8dll name 'D3DXLoadVolumeFromFileA';
  654. {$EXTERNALSYM D3DXLoadVolumeFromFile}
  657. function D3DXLoadVolumeFromResourceA(
  658.   pDestVolume: IDirect3DVolume8;
  659.   pDestPalette: PPaletteEntry;
  660.   pDestBox: TD3DBox;
  661.   hSrcModule: HModule;
  662.   pSrcResource: PAnsiChar;
  663.   pSrcBox: TD3DBox;
  664.   Filter: DWord;
  665.   ColorKey: TD3DColor;
  666.   pSrcInfo: PD3DXImageInfo): HResult; stdcall; external d3dx8dll name 'D3DXLoadVolumeFromResourceA';
  667. {$EXTERNALSYM D3DXLoadVolumeFromResourceA}
  669. function D3DXLoadVolumeFromResourceW(
  670.   pDestVolume: IDirect3DVolume8;
  671.   pDestPalette: PPaletteEntry;
  672.   pDestBox: TD3DBox;
  673.   hSrcModule: HModule;
  674.   pSrcResource: PWideChar;
  675.   pSrcBox: TD3DBox;
  676.   Filter: DWord;
  677.   ColorKey: TD3DColor;
  678.   pSrcInfo: PD3DXImageInfo): HResult; stdcall; external d3dx8dll name 'D3DXLoadVolumeFromResourceW';
  679. {$EXTERNALSYM D3DXLoadVolumeFromResourceW}
  681. function D3DXLoadVolumeFromResource(
  682.   pDestVolume: IDirect3DVolume8;
  683.   pDestPalette: PPaletteEntry;
  684.   pDestBox: TD3DBox;
  685.   hSrcModule: HModule;
  686.   pSrcResource: PChar;
  687.   pSrcBox: TD3DBox;
  688.   Filter: DWord;
  689.   ColorKey: TD3DColor;
  690.   pSrcInfo: PD3DXImageInfo): HResult; stdcall; external d3dx8dll name 'D3DXLoadVolumeFromResourceA';
  691. {$EXTERNALSYM D3DXLoadVolumeFromResource}
  694. function D3DXLoadVolumeFromFileInMemory(
  695.   pDestVolume: IDirect3DVolume8;
  696.   pDestPalette: PPaletteEntry;
  697.   pDestBox: TD3DBox;
  698.   const pSrcData;
  699.   SrcDataSize: LongWord;
  700.   pSrcBox: TD3DBox;
  701.   Filter: DWord;
  702.   ColorKey: TD3DColor;
  703.   pSrcInfo: PD3DXImageInfo): HResult; stdcall; external d3dx8dll;
  704. {$EXTERNALSYM D3DXLoadVolumeFromFileInMemory}
  708. //----------------------------------------------------------------------------
  709. // D3DXLoadVolumeFromVolume:
  710. // ---------------------------
  711. // Load volume from another volume (with color conversion)
  712. //
  713. // Parameters:
  714. //  pDestVolume
  715. //      Destination volume, which will receive the image.
  716. //  pDestPalette
  717. //      Destination palette of 256 colors, or NULL
  718. //  pDestBox
  719. //      Destination box, or NULL for entire volume
  720. //  pSrcVolume
  721. //      Source volume
  722. //  pSrcPalette
  723. //      Source palette of 256 colors, or NULL
  724. //  pSrcBox
  725. //      Source box, or NULL for entire volume
  726. //  Filter
  727. //      D3DX_FILTER flags controlling how the image is filtered.
  728. //      Or D3DX_DEFAULT for D3DX_FILTER_TRIANGLE.
  729. //  ColorKey
  730. //      Color to replace with transparent black, or 0 to disable colorkey.
  731. //      This is always a 32-bit ARGB color, independent of the source image
  732. //      format.  Alpha is significant, and should usually be set to FF for
  733. //      opaque colorkeys.  (ex. Opaque black == 0xff000000)
  734. //
  735. //----------------------------------------------------------------------------
  737. function D3DXLoadVolumeFromVolume(
  738.   pDestVolume: IDirect3DVolume8;
  739.   pDestPalette: PPaletteEntry;
  740.   pDestBox: TD3DBox;
  741.   pSrcVolume: IDirect3DVolume8;
  742.   pSrcPalette: PPaletteEntry;
  743.   pSrcBox: TD3DBox;
  744.   Filter: DWord;
  745.   ColorKey: TD3DColor): HResult; stdcall; external d3dx8dll;
  746. {$EXTERNALSYM D3DXLoadVolumeFromVolume}
  750. //----------------------------------------------------------------------------
  751. // D3DXLoadVolumeFromMemory:
  752. // ---------------------------
  753. // Load volume from memory.
  754. //
  755. // Parameters:
  756. //  pDestVolume
  757. //      Destination volume, which will receive the image.
  758. //  pDestPalette
  759. //      Destination palette of 256 colors, or NULL
  760. //  pDestBox
  761. //      Destination box, or NULL for entire volume
  762. //  pSrcMemory
  763. //      Pointer to the top-left corner of the source volume in memory
  764. //  SrcFormat
  765. //      Pixel format of the source volume.
  766. //  SrcRowPitch
  767. //      Pitch of source image, in bytes.  For DXT formats, this number
  768. //      should represent the size of one row of cells, in bytes.
  769. //  SrcSlicePitch
  770. //      Pitch of source image, in bytes.  For DXT formats, this number
  771. //      should represent the size of one slice of cells, in bytes.
  772. //  pSrcPalette
  773. //      Source palette of 256 colors, or NULL
  774. //  pSrcBox
  775. //      Source box.
  776. //  Filter
  777. //      D3DX_FILTER flags controlling how the image is filtered.
  778. //      Or D3DX_DEFAULT for D3DX_FILTER_TRIANGLE.
  779. //  ColorKey
  780. //      Color to replace with transparent black, or 0 to disable colorkey.
  781. //      This is always a 32-bit ARGB color, independent of the source image
  782. //      format.  Alpha is significant, and should usually be set to FF for
  783. //      opaque colorkeys.  (ex. Opaque black == 0xff000000)
  784. //
  785. //----------------------------------------------------------------------------
  787. function D3DXLoadVolumeFromMemory(
  788.   pDestVolume: IDirect3DVolume8;
  789.   pDestPalette: PPaletteEntry;
  790.   pDestBox: TD3DBox;
  791.   const pSrcMemory;
  792.   SrcFormat: TD3DFormat;
  793.   SrcRowPitch: LongWord;
  794.   SrcSlicePitch: LongWord;
  795.   pSrcPalette: PPaletteEntry;
  796.   pSrcBox: TD3DBox;
  797.   Filter: DWord;
  798.   ColorKey: TD3DColor): HResult; stdcall; external d3dx8dll;
  799. {$EXTERNALSYM D3DXLoadVolumeFromMemory}
  803. //----------------------------------------------------------------------------
  804. // D3DXSaveVolumeToFile:
  805. // ---------------------
  806. // Save a volume to a image file.
  807. //
  808. // Parameters:
  809. //  pDestFile
  810. //      File name of the destination file
  811. //  DestFormat
  812. //      D3DXIMAGE_FILEFORMAT specifying file format to use when saving.
  813. //  pSrcVolume
  814. //      Source volume, containing the image to be saved
  815. //  pSrcPalette
  816. //      Source palette of 256 colors, or NULL
  817. //  pSrcBox
  818. //      Source box, or NULL for the entire volume
  819. //
  820. //----------------------------------------------------------------------------
  822. function D3DXSaveVolumeToFileA(
  823.   pDestFile: PAnsiChar;
  824.   DestFormat: TD3DXImageFileFormat;
  825.   pSrcVolume: IDirect3DVolume8;
  826.   pSrcPalette: PPaletteEntry;
  827.   pSrcBox: TD3DBox): HResult; stdcall; external d3dx8dll name 'D3DXSaveVolumeToFileA';
  828. {$EXTERNALSYM D3DXSaveVolumeToFileA}
  830. function D3DXSaveVolumeToFileW(
  831.   pDestFile: PWideChar;
  832.   DestFormat: TD3DXImageFileFormat;
  833.   pSrcVolume: IDirect3DVolume8;
  834.   pSrcPalette: PPaletteEntry;
  835.   pSrcBox: TD3DBox): HResult; stdcall; external d3dx8dll name 'D3DXSaveVolumeToFileW';
  836. {$EXTERNALSYM D3DXSaveVolumeToFileW}
  838. function D3DXSaveVolumeToFile(
  839.   pDestFile: PChar;
  840.   DestFormat: TD3DXImageFileFormat;
  841.   pSrcVolume: IDirect3DVolume8;
  842.   pSrcPalette: PPaletteEntry;
  843.   pSrcBox: TD3DBox): HResult; stdcall; external d3dx8dll name 'D3DXSaveVolumeToFileA';
  844. {$EXTERNALSYM D3DXSaveVolumeToFile}
  848. //////////////////////////////////////////////////////////////////////////////
  849. // Create/Save Texture APIs //////////////////////////////////////////////////
  850. //////////////////////////////////////////////////////////////////////////////
  853. //----------------------------------------------------------------------------
  854. // D3DXCheckTextureRequirements:
  855. // -----------------------------
  856. // Checks texture creation parameters.  If parameters are invalid, this
  857. // function returns corrected parameters.
  858. //
  859. // Parameters:
  860. //
  861. //  pDevice
  862. //      The D3D device to be used
  863. //  pWidth, pHeight, pDepth, pSize
  864. //      Desired size in pixels, or NULL.  Returns corrected size.
  865. //  pNumMipLevels
  866. //      Number of desired mipmap levels, or NULL.  Returns corrected number.
  867. //  Usage
  868. //      Texture usage flags
  869. //  pFormat
  870. //      Desired pixel format, or NULL.  Returns corrected format.
  871. //  Pool
  872. //      Memory pool to be used to create texture
  873. //
  874. //----------------------------------------------------------------------------
  875. function D3DXCheckTextureRequirements(
  876.   pDevice: IDirect3DDevice8;
  877.   pWidth: PLongWord;
  878.   pHeight: PLongWord;
  879.   pNumMipLevels: PLongWord;
  880.   Usage: DWord;
  881.   pFormat: PD3DFormat;
  882.   Pool: TD3DPool): HResult; stdcall; external d3dx8dll;
  883. {$EXTERNALSYM D3DXCheckTextureRequirements}
  885. function D3DXCheckCubeTextureRequirements(
  886.   pDevice: IDirect3DDevice8;
  887.   pSize: PLongWord;
  888.   pNumMipLevels: PLongWord;
  889.   Usage: DWord;
  890.   pFormat: PD3DFormat;
  891.   Pool: TD3DPool): HResult; stdcall; external d3dx8dll;
  892. {$EXTERNALSYM D3DXCheckCubeTextureRequirements}
  894. function D3DXCheckVolumeTextureRequirements(
  895.   pDevice: IDirect3DDevice8;
  896.   pWidth: PLongWord;
  897.   pHeight: PLongWord;
  898.   pDepth: PLongWord;
  899.   pNumMipLevels: PLongWord;
  900.   Usage: DWord;
  901.   pFormat: PD3DFormat;
  902.   Pool: TD3DPool): HResult; stdcall; external d3dx8dll;
  903. {$EXTERNALSYM D3DXCheckVolumeTextureRequirements}
  906. //----------------------------------------------------------------------------
  907. // D3DXCreateTexture:
  908. // ------------------
  909. // Create an empty texture
  910. //
  911. // Parameters:
  912. //
  913. //  pDevice
  914. //      The D3D device with which the texture is going to be used.
  915. //  Width, Height, Depth, Size
  916. //      size in pixels; these must be non-zero
  917. //  MipLevels
  918. //      number of mip levels desired; if zero or D3DX_DEFAULT, a complete
  919. //      mipmap chain will be created.
  920. //  Usage
  921. //      Texture usage flags
  922. //  Format
  923. //      Pixel format.
  924. //  Pool
  925. //      Memory pool to be used to create texture
  926. //  ppTexture, ppCubeTexture, ppVolumeTexture
  927. //      The texture object that will be created
  928. //
  929. //----------------------------------------------------------------------------
  931. function D3DXCreateTexture(
  932.   Device: IDirect3DDevice8;
  933.   Width: LongWord;
  934.   Height: LongWord;
  935.   MipLevels: LongWord;
  936.   Usage: DWord;
  937.   Format: TD3DFormat;
  938.   Pool: TD3DPool;
  939.   out ppTexture: IDirect3DTexture8): HResult; stdcall; external d3dx8dll;
  940. {$EXTERNALSYM D3DXCreateTexture}
  942. function D3DXCreateCubeTexture(
  943.   Device: IDirect3DDevice8;
  944.   Size: LongWord;
  945.   MipLevels: LongWord;
  946.   Usage: DWord;
  947.   Format: TD3DFormat;
  948.   Pool: TD3DPool;
  949.   out ppCubeTexture: IDirect3DCubeTexture8): HResult; stdcall; external d3dx8dll;
  950. {$EXTERNALSYM D3DXCreateCubeTexture}
  952. function D3DXCreateVolumeTexture(
  953.   Device: IDirect3DDevice8;
  954.   Width: LongWord;
  955.   Height: LongWord;
  956.   Depth: LongWord;
  957.   MipLevels: LongWord;
  958.   Usage: DWord;
  959.   Format: TD3DFormat;
  960.   Pool: TD3DPool;
  961.   out ppVolumeTexture: IDirect3DVolumeTexture8): HResult; stdcall; external d3dx8dll;
  962. {$EXTERNALSYM D3DXCreateVolumeTexture}
  966. //----------------------------------------------------------------------------
  967. // D3DXCreateTextureFromFile/Resource:
  968. // -----------------------------------
  969. // Create a texture object from a file or resource.
  970. //
  971. // Parameters:
  972. //
  973. //  pDevice
  974. //      The D3D device with which the texture is going to be used.
  975. //  pSrcFile
  976. //      File name.
  977. //  hSrcModule
  978. //      Module handle. if NULL, current module will be used.
  979. //  pSrcResource
  980. //      Resource name in module
  981. //  pvSrcData
  982. //      Pointer to file in memory.
  983. //  SrcDataSize
  984. //      Size in bytes of file in memory.
  985. //  Width, Height, Depth, Size
  986. //      Size in pixels; if zero or D3DX_DEFAULT, the size will be taken
  987. //      from the file.
  988. //  MipLevels
  989. //      Number of mip levels;  if zero or D3DX_DEFAULT, a complete mipmap
  990. //      chain will be created.
  991. //  Usage
  992. //      Texture usage flags
  993. //  Format
  994. //      Desired pixel format.  If D3DFMT_UNKNOWN, the format will be
  995. //      taken from the file.
  996. //  Pool
  997. //      Memory pool to be used to create texture
  998. //  Filter
  999. //      D3DX_FILTER flags controlling how the image is filtered.
  1000. //      Or D3DX_DEFAULT for D3DX_FILTER_TRIANGLE.
  1001. //  MipFilter
  1002. //      D3DX_FILTER flags controlling how each miplevel is filtered.
  1003. //      Or D3DX_DEFAULT for D3DX_FILTER_BOX,
  1004. //  ColorKey
  1005. //      Color to replace with transparent black, or 0 to disable colorkey.
  1006. //      This is always a 32-bit ARGB color, independent of the source image
  1007. //      format.  Alpha is significant, and should usually be set to FF for
  1008. //      opaque colorkeys.  (ex. Opaque black == 0xff000000)
  1009. //  pSrcInfo
  1010. //      Pointer to a D3DXIMAGE_INFO structure to be filled in with the
  1011. //      description of the data in the source image file, or NULL.
  1012. //  pPalette
  1013. //      256 color palette to be filled in, or NULL
  1014. //  ppTexture, ppCubeTexture, ppVolumeTexture
  1015. //      The texture object that will be created
  1016. //
  1017. //----------------------------------------------------------------------------
  1020. // FromFile
  1022. function D3DXCreateTextureFromFileA(
  1023.   Device: IDirect3DDevice8;
  1024.   pSrcFile: PAnsiChar;
  1025.   out ppTexture: IDirect3DTexture8): HResult; stdcall; external d3dx8dll name 'D3DXCreateTextureFromFileA';
  1026. {$EXTERNALSYM D3DXCreateTextureFromFileA}
  1028. function D3DXCreateTextureFromFileW(
  1029.   Device: IDirect3DDevice8;
  1030.   pSrcFile: PWideChar;
  1031.   out ppTexture: IDirect3DTexture8): HResult; stdcall; external d3dx8dll name 'D3DXCreateTextureFromFileW';
  1032. {$EXTERNALSYM D3DXCreateTextureFromFileW}
  1034. function D3DXCreateTextureFromFile(
  1035.   Device: IDirect3DDevice8;
  1036.   pSrcFile: PChar;
  1037.   out ppTexture: IDirect3DTexture8): HResult; stdcall; external d3dx8dll name 'D3DXCreateTextureFromFileA';
  1038. {$EXTERNALSYM D3DXCreateTextureFromFile}
  1041. function D3DXCreateCubeTextureFromFileA(
  1042.   Device: IDirect3DDevice8;
  1043.   pSrcFile: PAnsiChar;
  1044.   out ppCubeTexture: IDirect3DCubeTexture8): HResult; stdcall; external d3dx8dll name 'D3DXCreateCubeTextureFromFileA';
  1045. {$EXTERNALSYM D3DXCreateCubeTextureFromFileA}
  1047. function D3DXCreateCubeTextureFromFileW(
  1048.   Device: IDirect3DDevice8;
  1049.   pSrcFile: PWideChar;
  1050.   out ppCubeTexture: IDirect3DCubeTexture8): HResult; stdcall; external d3dx8dll name 'D3DXCreateCubeTextureFromFileW';
  1051. {$EXTERNALSYM D3DXCreateCubeTextureFromFileW}
  1053. function D3DXCreateCubeTextureFromFile(
  1054.   Device: IDirect3DDevice8;
  1055.   pSrcFile: PChar;
  1056.   out ppCubeTexture: IDirect3DCubeTexture8): HResult; stdcall; external d3dx8dll name 'D3DXCreateCubeTextureFromFileA';
  1057. {$EXTERNALSYM D3DXCreateCubeTextureFromFile}
  1060. function D3DXCreateVolumeTextureFromFileA(
  1061.   Device: IDirect3DDevice8;
  1062.   pSrcFile: PAnsiChar;
  1063.   out ppVolumeTexture: IDirect3DVolumeTexture8): HResult; stdcall; external d3dx8dll name 'D3DXCreateVolumeTextureFromFileA';
  1064. {$EXTERNALSYM D3DXCreateVolumeTextureFromFileA}
  1066. function D3DXCreateVolumeTextureFromFileW(
  1067.   Device: IDirect3DDevice8;
  1068.   pSrcFile: PWideChar;
  1069.   out ppVolumeTexture: IDirect3DVolumeTexture8): HResult; stdcall; external d3dx8dll name 'D3DXCreateVolumeTextureFromFileW';
  1070. {$EXTERNALSYM D3DXCreateVolumeTextureFromFileW}
  1072. function D3DXCreateVolumeTextureFromFile(
  1073.   Device: IDirect3DDevice8;
  1074.   pSrcFile: PChar;
  1075.   out ppVolumeTexture: IDirect3DVolumeTexture8): HResult; stdcall; external d3dx8dll name 'D3DXCreateVolumeTextureFromFileA';
  1076. {$EXTERNALSYM D3DXCreateVolumeTextureFromFile}
  1079. // FromResource
  1081. function D3DXCreateTextureFromResourceA(
  1082.   Device: IDirect3DDevice8;
  1083.   hSrcModule: HModule;
  1084.   pSrcResource: PAnsiChar;
  1085.   out ppTexture: IDirect3DTexture8): HResult; stdcall; external d3dx8dll name 'D3DXCreateTextureFromResourceA';
  1086. {$EXTERNALSYM D3DXCreateTextureFromResourceA}
  1088. function D3DXCreateTextureFromResourceW(
  1089.   Device: IDirect3DDevice8;
  1090.   hSrcModule: HModule;
  1091.   pSrcResource: PWideChar;
  1092.   out ppTexture: IDirect3DTexture8): HResult; stdcall; external d3dx8dll name 'D3DXCreateTextureFromResourceW';
  1093. {$EXTERNALSYM D3DXCreateTextureFromResourceW}
  1095. function D3DXCreateTextureFromResource(
  1096.   Device: IDirect3DDevice8;
  1097.   hSrcModule: HModule;
  1098.   pSrcResource: PChar;
  1099.   out ppTexture: IDirect3DTexture8): HResult; stdcall; external d3dx8dll name 'D3DXCreateTextureFromResourceA';
  1100. {$EXTERNALSYM D3DXCreateTextureFromResource}
  1103. function D3DXCreateCubeTextureFromResourceA(
  1104.   Device: IDirect3DDevice8;
  1105.   hSrcModule: HModule;
  1106.   pSrcResource: PAnsiChar;
  1107.   out ppCubeTexture: IDirect3DCubeTexture8): HResult; stdcall; external d3dx8dll name 'D3DXCreateCubeTextureFromResourceA';
  1108. {$EXTERNALSYM D3DXCreateCubeTextureFromResourceA}
  1110. function D3DXCreateCubeTextureFromResourceW(
  1111.   Device: IDirect3DDevice8;
  1112.   hSrcModule: HModule;
  1113.   pSrcResource: PWideChar;
  1114.   out ppCubeTexture: IDirect3DCubeTexture8): HResult; stdcall; external d3dx8dll name 'D3DXCreateCubeTextureFromResourceW';
  1115. {$EXTERNALSYM D3DXCreateCubeTextureFromResourceW}
  1117. function D3DXCreateCubeTextureFromResource(
  1118.   Device: IDirect3DDevice8;
  1119.   hSrcModule: HModule;
  1120.   pSrcResource: PChar;
  1121.   out ppCubeTexture: IDirect3DCubeTexture8): HResult; stdcall; external d3dx8dll name 'D3DXCreateCubeTextureFromResourceA';
  1122. {$EXTERNALSYM D3DXCreateCubeTextureFromResource}
  1125. function D3DXCreateVolumeTextureFromResourceA(
  1126.   Device: IDirect3DDevice8;
  1127.   hSrcModule: HModule;
  1128.   pSrcResource: PAnsiChar;
  1129.   out ppVolumeTexture: IDirect3DVolumeTexture8): HResult; stdcall; external d3dx8dll name 'D3DXCreateVolumeTextureFromResourceA';
  1130. {$EXTERNALSYM D3DXCreateVolumeTextureFromResourceA}
  1132. function D3DXCreateVolumeTextureFromResourceW(
  1133.   Device: IDirect3DDevice8;
  1134.   hSrcModule: HModule;
  1135.   pSrcResource: PWideChar;
  1136.   out ppVolumeTexture: IDirect3DVolumeTexture8): HResult; stdcall; external d3dx8dll name 'D3DXCreateVolumeTextureFromResourceW';
  1137. {$EXTERNALSYM D3DXCreateVolumeTextureFromResourceW}
  1139. function D3DXCreateVolumeTextureFromResource(
  1140.   Device: IDirect3DDevice8;
  1141.   hSrcModule: HModule;
  1142.   pSrcResource: PChar;
  1143.   out ppVolumeTexture: IDirect3DVolumeTexture8): HResult; stdcall; external d3dx8dll name 'D3DXCreateVolumeTextureFromResourceA';
  1144. {$EXTERNALSYM D3DXCreateVolumeTextureFromResource}
  1147. // FromFileEx
  1149. function D3DXCreateTextureFromFileExA(
  1150.   Device: IDirect3DDevice8;
  1151.   pSrcFile: PAnsiChar;
  1152.   Width: LongWord;
  1153.   Height: LongWord;
  1154.   MipLevels: LongWord;
  1155.   Usage: DWord;
  1156.   Format: TD3DFormat;
  1157.   Pool: TD3DPool;
  1158.   Filter: DWord;
  1159.   MipFilter: DWord;
  1160.   ColorKey: TD3DColor;
  1161.   pSrcInfo: PD3DXImageInfo;
  1162.   pPalette: PPaletteEntry;
  1163.   out ppTexture: IDirect3DTexture8): HResult; stdcall; external d3dx8dll name 'D3DXCreateTextureFromFileExA';
  1164. {$EXTERNALSYM D3DXCreateTextureFromFileExA}
  1166. function D3DXCreateTextureFromFileExW(
  1167.   Device: IDirect3DDevice8;
  1168.   pSrcFile: PWideChar;
  1169.   Width: LongWord;
  1170.   Height: LongWord;
  1171.   MipLevels: LongWord;
  1172.   Usage: DWord;
  1173.   Format: TD3DFormat;
  1174.   Pool: TD3DPool;
  1175.   Filter: DWord;
  1176.   MipFilter: DWord;
  1177.   ColorKey: TD3DColor;
  1178.   pSrcInfo: PD3DXImageInfo;
  1179.   pPalette: PPaletteEntry;
  1180.   out ppTexture: IDirect3DTexture8): HResult; stdcall; external d3dx8dll name 'D3DXCreateTextureFromFileExW';
  1181. {$EXTERNALSYM D3DXCreateTextureFromFileExW}
  1183. function D3DXCreateTextureFromFileEx(
  1184.   Device: IDirect3DDevice8;
  1185.   pSrcFile: PChar;
  1186.   Width: LongWord;
  1187.   Height: LongWord;
  1188.   MipLevels: LongWord;
  1189.   Usage: DWord;
  1190.   Format: TD3DFormat;
  1191.   Pool: TD3DPool;
  1192.   Filter: DWord;
  1193.   MipFilter: DWord;
  1194.   ColorKey: TD3DColor;
  1195.   pSrcInfo: PD3DXImageInfo;
  1196.   pPalette: PPaletteEntry;
  1197.   out ppTexture: IDirect3DTexture8): HResult; stdcall; external d3dx8dll name 'D3DXCreateTextureFromFileExA';
  1198. {$EXTERNALSYM D3DXCreateTextureFromFileEx}
  1201. function D3DXCreateCubeTextureFromFileExA(
  1202.   Device: IDirect3DDevice8;
  1203.   pSrcFile: PAnsiChar;
  1204.   Size: LongWord;
  1205.   MipLevels: LongWord;
  1206.   Usage: DWord;
  1207.   Format: TD3DFormat;
  1208.   Pool: TD3DPool;
  1209.   Filter: DWord;
  1210.   MipFilter: DWord;
  1211.   ColorKey: TD3DColor;
  1212.   pSrcInfo: PD3DXImageInfo;
  1213.   pPalette: PPaletteEntry;
  1214.   out ppCubeTexture: IDirect3DCubeTexture8): HResult; stdcall; external d3dx8dll name 'D3DXCreateCubeTextureFromFileExA';
  1215. {$EXTERNALSYM D3DXCreateCubeTextureFromFileExA}
  1217. function D3DXCreateCubeTextureFromFileExW(
  1218.   Device: IDirect3DDevice8;
  1219.   pSrcFile: PWideChar;
  1220.   Size: LongWord;
  1221.   MipLevels: LongWord;
  1222.   Usage: DWord;
  1223.   Format: TD3DFormat;
  1224.   Pool: TD3DPool;
  1225.   Filter: DWord;
  1226.   MipFilter: DWord;
  1227.   ColorKey: TD3DColor;
  1228.   pSrcInfo: PD3DXImageInfo;
  1229.   pPalette: PPaletteEntry;
  1230.   out ppCubeTexture: IDirect3DCubeTexture8): HResult; stdcall; external d3dx8dll name 'D3DXCreateCubeTextureFromFileExW';
  1231. {$EXTERNALSYM D3DXCreateCubeTextureFromFileExW}
  1233. function D3DXCreateCubeTextureFromFileEx(
  1234.   Device: IDirect3DDevice8;
  1235.   pSrcFile: PChar;
  1236.   Size: LongWord;
  1237.   MipLevels: LongWord;
  1238.   Usage: DWord;
  1239.   Format: TD3DFormat;
  1240.   Pool: TD3DPool;
  1241.   Filter: DWord;
  1242.   MipFilter: DWord;
  1243.   ColorKey: TD3DColor;
  1244.   pSrcInfo: PD3DXImageInfo;
  1245.   pPalette: PPaletteEntry;
  1246.   out ppCubeTexture: IDirect3DCubeTexture8): HResult; stdcall; external d3dx8dll name 'D3DXCreateCubeTextureFromFileExA';
  1247. {$EXTERNALSYM D3DXCreateCubeTextureFromFileEx}
  1250. function D3DXCreateVolumeTextureFromFileExA(
  1251.   Device: IDirect3DDevice8;
  1252.   pSrcFile: PAnsiChar;
  1253.   Width: LongWord;
  1254.   Height: LongWord;
  1255.   Depth: LongWord;
  1256.   MipLevels: LongWord;
  1257.   Usage: DWord;
  1258.   Format: TD3DFormat;
  1259.   Pool: TD3DPool;
  1260.   Filter: DWord;
  1261.   MipFilter: DWord;
  1262.   ColorKey: TD3DColor;
  1263.   pSrcInfo: PD3DXImageInfo;
  1264.   pPalette: PPaletteEntry;
  1265.   out ppVolumeTexture: IDirect3DVolumeTexture8): HResult; stdcall; external d3dx8dll name 'D3DXCreateVolumeTextureFromFileExA';
  1266. {$EXTERNALSYM D3DXCreateVolumeTextureFromFileExA}
  1268. function D3DXCreateVolumeTextureFromFileExW(
  1269.   Device: IDirect3DDevice8;
  1270.   pSrcFile: PWideChar;
  1271.   Width: LongWord;
  1272.   Height: LongWord;
  1273.   Depth: LongWord;
  1274.   MipLevels: LongWord;
  1275.   Usage: DWord;
  1276.   Format: TD3DFormat;
  1277.   Pool: TD3DPool;
  1278.   Filter: DWord;
  1279.   MipFilter: DWord;
  1280.   ColorKey: TD3DColor;
  1281.   pSrcInfo: PD3DXImageInfo;
  1282.   pPalette: PPaletteEntry;
  1283.   out ppVolumeTexture: IDirect3DVolumeTexture8): HResult; stdcall; external d3dx8dll name 'D3DXCreateVolumeTextureFromFileExW';
  1284. {$EXTERNALSYM D3DXCreateVolumeTextureFromFileExW}
  1286. function D3DXCreateVolumeTextureFromFileEx(
  1287.   Device: IDirect3DDevice8;
  1288.   pSrcFile: PChar;
  1289.   Width: LongWord;
  1290.   Height: LongWord;
  1291.   Depth: LongWord;
  1292.   MipLevels: LongWord;
  1293.   Usage: DWord;
  1294.   Format: TD3DFormat;
  1295.   Pool: TD3DPool;
  1296.   Filter: DWord;
  1297.   MipFilter: DWord;
  1298.   ColorKey: TD3DColor;
  1299.   pSrcInfo: PD3DXImageInfo;
  1300.   pPalette: PPaletteEntry;
  1301.   out ppVolumeTexture: IDirect3DVolumeTexture8): HResult; stdcall; external d3dx8dll name 'D3DXCreateVolumeTextureFromFileExA';
  1302. {$EXTERNALSYM D3DXCreateVolumeTextureFromFileEx}
  1305. // FromResourceEx
  1307. function D3DXCreateTextureFromResourceExA(
  1308.   Device: IDirect3DDevice8;
  1309.   hSrcModule: HModule;
  1310.   pSrcResource: PAnsiChar;
  1311.   Width: LongWord;
  1312.   Height: LongWord;
  1313.   MipLevels: LongWord;
  1314.   Usage: DWord;
  1315.   Format: TD3DFormat;
  1316.   Pool: TD3DPool;
  1317.   Filter: DWord;
  1318.   MipFilter: DWord;
  1319.   ColorKey: TD3DColor;
  1320.   pSrcInfo: PD3DXImageInfo;
  1321.   pPalette: PPaletteEntry;
  1322.   out ppTexture: IDirect3DTexture8): HResult; stdcall; external d3dx8dll name 'D3DXCreateTextureFromResourceExA';
  1323. {$EXTERNALSYM D3DXCreateTextureFromResourceExA}
  1325. function D3DXCreateTextureFromResourceExW(
  1326.   Device: IDirect3DDevice8;
  1327.   hSrcModule: HModule;
  1328.   pSrcResource: PWideChar;
  1329.   Width: LongWord;
  1330.   Height: LongWord;
  1331.   MipLevels: LongWord;
  1332.   Usage: DWord;
  1333.   Format: TD3DFormat;
  1334.   Pool: TD3DPool;
  1335.   Filter: DWord;
  1336.   MipFilter: DWord;
  1337.   ColorKey: TD3DColor;
  1338.   pSrcInfo: PD3DXImageInfo;
  1339.   pPalette: PPaletteEntry;
  1340.   out ppTexture: IDirect3DTexture8): HResult; stdcall; external d3dx8dll name 'D3DXCreateTextureFromResourceExW';
  1341. {$EXTERNALSYM D3DXCreateTextureFromResourceExW}
  1343. function D3DXCreateTextureFromResourceEx(
  1344.   Device: IDirect3DDevice8;
  1345.   hSrcModule: HModule;
  1346.   pSrcResource: PChar;
  1347.   Width: LongWord;
  1348.   Height: LongWord;
  1349.   MipLevels: LongWord;
  1350.   Usage: DWord;
  1351.   Format: TD3DFormat;
  1352.   Pool: TD3DPool;
  1353.   Filter: DWord;
  1354.   MipFilter: DWord;
  1355.   ColorKey: TD3DColor;
  1356.   pSrcInfo: PD3DXImageInfo;
  1357.   pPalette: PPaletteEntry;
  1358.   out ppTexture: IDirect3DTexture8): HResult; stdcall; external d3dx8dll name 'D3DXCreateTextureFromResourceExA';
  1359. {$EXTERNALSYM D3DXCreateTextureFromResourceEx}
  1362. function D3DXCreateCubeTextureFromResourceExA(
  1363.   Device: IDirect3DDevice8;
  1364.   hSrcModule: HModule;
  1365.   pSrcResource: PAnsiChar;
  1366.   Size: LongWord;
  1367.   MipLevels: LongWord;
  1368.   Usage: DWord;
  1369.   Format: TD3DFormat;
  1370.   Pool: TD3DPool;
  1371.   Filter: DWord;
  1372.   MipFilter: DWord;
  1373.   ColorKey: TD3DColor;
  1374.   pSrcInfo: PD3DXImageInfo;
  1375.   pPalette: PPaletteEntry;
  1376.   out ppCubeTexture: IDirect3DCubeTexture8): HResult; stdcall; external d3dx8dll name 'D3DXCreateCubeTextureFromResourceExA';
  1377. {$EXTERNALSYM D3DXCreateCubeTextureFromResourceExA}
  1379. function D3DXCreateCubeTextureFromResourceExW(
  1380.   Device: IDirect3DDevice8;
  1381.   hSrcModule: HModule;
  1382.   pSrcResource: PWideChar;
  1383.   Size: LongWord;
  1384.   MipLevels: LongWord;
  1385.   Usage: DWord;
  1386.   Format: TD3DFormat;
  1387.   Pool: TD3DPool;
  1388.   Filter: DWord;
  1389.   MipFilter: DWord;
  1390.   ColorKey: TD3DColor;
  1391.   pSrcInfo: PD3DXImageInfo;
  1392.   pPalette: PPaletteEntry;
  1393.   out ppCubeTexture: IDirect3DCubeTexture8): HResult; stdcall; external d3dx8dll name 'D3DXCreateCubeTextureFromResourceExW';
  1394. {$EXTERNALSYM D3DXCreateCubeTextureFromResourceExW}
  1396. function D3DXCreateCubeTextureFromResourceEx(
  1397.   Device: IDirect3DDevice8;
  1398.   hSrcModule: HModule;
  1399.   pSrcResource: PChar;
  1400.   Size: LongWord;
  1401.   MipLevels: LongWord;
  1402.   Usage: DWord;
  1403.   Format: TD3DFormat;
  1404.   Pool: TD3DPool;
  1405.   Filter: DWord;
  1406.   MipFilter: DWord;
  1407.   ColorKey: TD3DColor;
  1408.   pSrcInfo: PD3DXImageInfo;
  1409.   pPalette: PPaletteEntry;
  1410.   out ppCubeTexture: IDirect3DCubeTexture8): HResult; stdcall; external d3dx8dll name 'D3DXCreateCubeTextureFromResourceExA';
  1411. {$EXTERNALSYM D3DXCreateCubeTextureFromResourceEx}
  1414. function D3DXCreateVolumeTextureFromResourceExA(
  1415.   Device: IDirect3DDevice8;
  1416.   hSrcModule: HModule;
  1417.   pSrcResource: PAnsiChar;
  1418.   Width: LongWord;
  1419.   Height: LongWord;
  1420.   Depth: LongWord;
  1421.   MipLevels: LongWord;
  1422.   Usage: DWord;
  1423.   Format: TD3DFormat;
  1424.   Pool: TD3DPool;
  1425.   Filter: DWord;
  1426.   MipFilter: DWord;
  1427.   ColorKey: TD3DColor;
  1428.   pSrcInfo: PD3DXImageInfo;
  1429.   pPalette: PPaletteEntry;
  1430.   out ppVolumeTexture: IDirect3DVolumeTexture8): HResult; stdcall; external d3dx8dll name 'D3DXCreateVolumeTextureFromResourceExA';
  1431. {$EXTERNALSYM D3DXCreateVolumeTextureFromResourceExA}
  1433. function D3DXCreateVolumeTextureFromResourceExW(
  1434.   Device: IDirect3DDevice8;
  1435.   hSrcModule: HModule;
  1436.   pSrcResource: PWideChar;
  1437.   Width: LongWord;
  1438.   Height: LongWord;
  1439.   Depth: LongWord;
  1440.   MipLevels: LongWord;
  1441.   Usage: DWord;
  1442.   Format: TD3DFormat;
  1443.   Pool: TD3DPool;
  1444.   Filter: DWord;
  1445.   MipFilter: DWord;
  1446.   ColorKey: TD3DColor;
  1447.   pSrcInfo: PD3DXImageInfo;
  1448.   pPalette: PPaletteEntry;
  1449.   out ppVolumeTexture: IDirect3DVolumeTexture8): HResult; stdcall; external d3dx8dll name 'D3DXCreateVolumeTextureFromResourceExW';
  1450. {$EXTERNALSYM D3DXCreateVolumeTextureFromResourceExW}
  1452. function D3DXCreateVolumeTextureFromResourceEx(
  1453.   Device: IDirect3DDevice8;
  1454.   hSrcModule: HModule;
  1455.   pSrcResource: PChar;
  1456.   Width: LongWord;
  1457.   Height: LongWord;
  1458.   Depth: LongWord;
  1459.   MipLevels: LongWord;
  1460.   Usage: DWord;
  1461.   Format: TD3DFormat;
  1462.   Pool: TD3DPool;
  1463.   Filter: DWord;
  1464.   MipFilter: DWord;
  1465.   ColorKey: TD3DColor;
  1466.   pSrcInfo: PD3DXImageInfo;
  1467.   pPalette: PPaletteEntry;
  1468.   out ppVolumeTexture: IDirect3DVolumeTexture8): HResult; stdcall; external d3dx8dll name 'D3DXCreateVolumeTextureFromResourceExA';
  1469. {$EXTERNALSYM D3DXCreateVolumeTextureFromResourceEx}
  1472. // FromFileInMemory
  1474. function D3DXCreateTextureFromFileInMemory(
  1475.   Device: IDirect3DDevice8;
  1476.   const pSrcData;
  1477.   SrcDataSize: LongWord;
  1478.   out ppTexture: IDirect3DTexture8): HResult; stdcall; external d3dx8dll;
  1479. {$EXTERNALSYM D3DXCreateTextureFromFileInMemory}
  1481. function D3DXCreateCubeTextureFromFileInMemory(
  1482.   Device: IDirect3DDevice8;
  1483.   const pSrcData;
  1484.   SrcDataSize: LongWord;
  1485.   out ppCubeTexture: IDirect3DCubeTexture8): HResult; stdcall; external d3dx8dll;
  1486. {$EXTERNALSYM D3DXCreateCubeTextureFromFileInMemory}
  1488. function D3DXCreateVolumeTextureFromFileInMemory(
  1489.   Device: IDirect3DDevice8;
  1490.   const pSrcData;
  1491.   SrcDataSize: LongWord;
  1492.   out ppVolumeTexture: IDirect3DVolumeTexture8): HResult; stdcall; external d3dx8dll;
  1493. {$EXTERNALSYM D3DXCreateVolumeTextureFromFileInMemory}
  1496. // FromFileInMemoryEx
  1498. function D3DXCreateTextureFromFileInMemoryEx(
  1499.   Device: IDirect3DDevice8;
  1500.   const pSrcData;
  1501.   SrcDataSize: LongWord;
  1502.   Width: LongWord;
  1503.   Height: LongWord;
  1504.   MipLevels: LongWord;
  1505.   Usage: DWord;
  1506.   Format: TD3DFormat;
  1507.   Pool: TD3DPool;
  1508.   Filter: DWord;
  1509.   MipFilter: DWord;
  1510.   ColorKey: TD3DColor;
  1511.   pSrcInfo: PD3DXImageInfo;
  1512.   pPalette: PPaletteEntry;
  1513.   out ppTexture: IDirect3DTexture8): HResult; stdcall; external d3dx8dll;
  1514. {$EXTERNALSYM D3DXCreateTextureFromFileInMemoryEx}
  1516. function D3DXCreateCubeTextureFromFileInMemoryEx(
  1517.   Device: IDirect3DDevice8;
  1518.   const pSrcData;
  1519.   SrcDataSize: LongWord;
  1520.   Size: LongWord;
  1521.   MipLevels: LongWord;
  1522.   Usage: DWord;
  1523.   Format: TD3DFormat;
  1524.   Pool: TD3DPool;
  1525.   Filter: DWord;
  1526.   MipFilter: DWord;
  1527.   ColorKey: TD3DColor;
  1528.   pSrcInfo: PD3DXImageInfo;
  1529.   pPalette: PPaletteEntry;
  1530.   out ppCubeTexture: IDirect3DCubeTexture8): HResult; stdcall; external d3dx8dll;
  1531. {$EXTERNALSYM D3DXCreateCubeTextureFromFileInMemoryEx}
  1533. function D3DXCreateVolumeTextureFromFileInMemoryEx(
  1534.   Device: IDirect3DDevice8;
  1535.   const pSrcData;
  1536.   SrcDataSize: LongWord;
  1537.   Width: LongWord;
  1538.   Height: LongWord;
  1539.   Depth: LongWord;
  1540.   MipLevels: LongWord;
  1541.   Usage: DWord;
  1542.   Format: TD3DFormat;
  1543.   Pool: TD3DPool;
  1544.   Filter: DWord;
  1545.   MipFilter: DWord;
  1546.   ColorKey: TD3DColor;
  1547.   pSrcInfo: PD3DXImageInfo;
  1548.   pPalette: PPaletteEntry;
  1549.   out ppVolumeTexture: IDirect3DVolumeTexture8): HResult; stdcall; external d3dx8dll;
  1550. {$EXTERNALSYM D3DXCreateVolumeTextureFromFileInMemoryEx}
  1554. //----------------------------------------------------------------------------
  1555. // D3DXSaveTextureToFile:
  1556. // ----------------------
  1557. // Save a texture to a file.
  1558. //
  1559. // Parameters:
  1560. //  pDestFile
  1561. //      File name of the destination file
  1562. //  DestFormat
  1563. //      D3DXIMAGE_FILEFORMAT specifying file format to use when saving.
  1564. //  pSrcTexture
  1565. //      Source texture, containing the image to be saved
  1566. //  pSrcPalette
  1567. //      Source palette of 256 colors, or NULL
  1568. //
  1569. //----------------------------------------------------------------------------
  1572. function D3DXSaveTextureToFileA(
  1573.   pDestFile: PAnsiChar;
  1574.   DestFormat: TD3DXImageFileFormat;
  1575.   pSrcTexture: IDirect3DBaseTexture8;
  1576.   pSrcPalette: PPaletteEntry): HResult; stdcall; external d3dx8dll name 'D3DXSaveTextureToFileA';
  1577. {$EXTERNALSYM D3DXSaveTextureToFileA}
  1579. function D3DXSaveTextureToFileW(
  1580.   pDestFile: PWideChar;
  1581.   DestFormat: TD3DXImageFileFormat;
  1582.   pSrcTexture: IDirect3DBaseTexture8;
  1583.   pSrcPalette: PPaletteEntry): HResult; stdcall; external d3dx8dll name 'D3DXSaveTextureToFileW';
  1584. {$EXTERNALSYM D3DXSaveTextureToFileW}
  1586. function D3DXSaveTextureToFile(
  1587.   pDestFile: PChar;
  1588.   DestFormat: TD3DXImageFileFormat;
  1589.   pSrcTexture: IDirect3DBaseTexture8;
  1590.   pSrcPalette: PPaletteEntry): HResult; stdcall; external d3dx8dll name 'D3DXSaveTextureToFileA';
  1591. {$EXTERNALSYM D3DXSaveTextureToFile}
  1596. //////////////////////////////////////////////////////////////////////////////
  1597. // Misc Texture APIs /////////////////////////////////////////////////////////
  1598. //////////////////////////////////////////////////////////////////////////////
  1600. //----------------------------------------------------------------------------
  1601. // D3DXFilterTexture:
  1602. // ------------------
  1603. // Filters mipmaps levels of a texture.
  1604. //
  1605. // Parameters:
  1606. //  pBaseTexture
  1607. //      The texture object to be filtered
  1608. //  pPalette
  1609. //      256 color palette to be used, or NULL for non-palettized formats
  1610. //  SrcLevel
  1611. //      The level whose image is used to generate the subsequent levels.
  1612. //  Filter
  1613. //      D3DX_FILTER flags controlling how each miplevel is filtered.
  1614. //      Or D3DX_DEFAULT for D3DX_FILTER_BOX,
  1615. //
  1616. //-------------------------------------------------------------------------
  1618. function D3DXFilterTexture(
  1619.   pTexture: IDirect3DTexture8;
  1620.   pPalette: PPaletteEntry;
  1621.   SrcLevel: LongWord;
  1622.   Filter: DWord): HResult; stdcall; external d3dx8dll;
  1623. {$EXTERNALSYM D3DXFilterTexture}
  1625. // #define D3DXFilterCubeTexture D3DXFilterTexture
  1626. // In Pascal this mapped to DLL-exported "D3DXFilterTexture" function
  1627. function D3DXFilterCubeTexture(
  1628.   pTexture: IDirect3DCubeTexture8;
  1629.   pPalette: PPaletteEntry;
  1630.   SrcLevel: LongWord;
  1631.   Filter: DWord): HResult; stdcall; external d3dx8dll name 'D3DXFilterTexture';
  1632. {$EXTERNALSYM D3DXFilterCubeTexture}
  1634. // #define D3DXFilterVolumeTexture D3DXFilterTexture
  1635. // In Pascal this mapped to DLL-exported "D3DXFilterTexture" function
  1636. function D3DXFilterVolumeTexture(
  1637.   pTexture: IDirect3DVolumeTexture8;
  1638.   pPalette: PPaletteEntry;
  1639.   SrcLevel: LongWord;
  1640.   Filter: DWord): HResult; stdcall; external d3dx8dll name 'D3DXFilterTexture';
  1641. {$EXTERNALSYM D3DXFilterVolumeTexture}
  1645. //----------------------------------------------------------------------------
  1646. // D3DXFillTexture:
  1647. // ----------------
  1648. // Uses a user provided function to fill each texel of each mip level of a
  1649. // given texture.
  1650. //
  1651. // Paramters:
  1652. //  pTexture, pCubeTexture, pVolumeTexture
  1653. //      Pointer to the texture to be filled.
  1654. //  pFunction
  1655. //      Pointer to user provided evalutor function which will be used to
  1656. //      compute the value of each texel.
  1657. //  pData
  1658. //      Pointer to an arbitrary block of user defined data.  This pointer
  1659. //      will be passed to the function provided in pFunction
  1660. //-----------------------------------------------------------------------------
  1662. function D3DXFillTexture(
  1663.   pTexture: IDirect3DTexture8;
  1664.   pFunction: TD3DXFill2D;
  1665.   pData: Pointer): HResult; stdcall; external d3dx8dll;
  1666. {$EXTERNALSYM D3DXFillTexture}
  1668. function D3DXFillCubeTexture(
  1669.   pCubeTexture: IDirect3DCubeTexture8;
  1670.   pFunction: TD3DXFill2D;
  1671.   pData: Pointer): HResult; stdcall; external d3dx8dll;
  1672. {$EXTERNALSYM D3DXFillCubeTexture}
  1674. function D3DXFillVolumeTexture(
  1675.   pVolumeTexture: IDirect3DVolumeTexture8;
  1676.   pFunction: TD3DXFill3D;
  1677.   pData: Pointer): HResult; stdcall; external d3dx8dll;
  1678. {$EXTERNALSYM D3DXFillVolumeTexture}
  1682. //----------------------------------------------------------------------------
  1683. // D3DXComputeNormalMap:
  1684. // ---------------------
  1685. // Converts a height map into a normal map.  The (x,y,z) components of each
  1686. // normal are mapped to the (r,g,b) channels of the output texture.
  1687. //
  1688. // Parameters
  1689. //  pTexture
  1690. //      Pointer to the destination texture
  1691. //  pSrcTexture
  1692. //      Pointer to the source heightmap texture
  1693. //  pSrcPalette
  1694. //      Source palette of 256 colors, or NULL
  1695. //  Flags
  1696. //      D3DX_NORMALMAP flags
  1697. //  Channel
  1698. //      D3DX_CHANNEL specifying source of height information
  1699. //  Amplitude
  1700. //      The constant value which the height information is multiplied by.
  1701. //---------------------------------------------------------------------------
  1703. function D3DXComputeNormalMap(
  1704.   pTexture: IDirect3DTexture8;
  1705.   pSrcTexture: IDirect3DTexture8;
  1706.   pSrcPalette: PPaletteEntry;
  1707.   Flags: DWord;
  1708.   Channel: DWord;
  1709.   Amplitude: Single): HResult; stdcall; external d3dx8dll;
  1710. {$EXTERNALSYM D3DXComputeNormalMap}
  1714. //********************************************************************
  1715. // Introduced types for compatibility with "REVISED" D3DX8.pas translation
  1716. // by Ampaze (Tim Baumgarten) from www.Delphi-Jedi.org/DelphiGraphics
  1717. type
  1718.   PD3DXEffect_Desc      = PD3DXEffectDesc;
  1719.   PD3DXImage_Info       = PD3DXImageInfo;
  1720.   PD3DXParameter_Desc   = PD3DXParameterDesc;
  1721.   PD3DXPass_Desc        = PD3DXPassDesc;
  1722.   PD3DXRTE_Desc         = PD3DXRTEDesc;
  1723.   PD3DXRTS_Desc         = PD3DXRTSDesc;
  1724.   PD3DXTechnique_Desc   = PD3DXTechniqueDesc;
  1726.   TD3DXEffect_Desc      = TD3DXEffectDesc;
  1727.   TD3DXImage_Info       = TD3DXImageInfo;
  1728.   TD3DXParameter_Desc   = TD3DXParameterDesc;
  1729.   TD3DXPass_Desc        = TD3DXPassDesc;
  1730.   TD3DXRTE_Desc         = TD3DXRTEDesc;
  1731.   TD3DXRTS_Desc         = TD3DXRTSDesc;
  1732.   TD3DXTechnique_Desc   = TD3DXTechniqueDesc;
  1734.   PD3DXImage_FileFormat = PD3DXImageFileFormat;
  1735.   TD3DXImage_FileFormat = TD3DXImageFileFormat;
  1737. (*$HPPEMIT '}  /* namespace D3dx8 */' *)
  1739. //***************************************************************************//
  1740. //***************************************************************************//
  1741. //***************************************************************************//
  1742. implementation
  1743. //***************************************************************************//
  1744. //***************************************************************************//
  1745. //***************************************************************************//
  1752. //////////////////////////////////////////////////////////////////////////////
  1753. //
  1754. //  Copyright (C) Microsoft Corporation.  All Rights Reserved.
  1755. //
  1756. //  File:       d3dx8math.h
  1757. //  Content:    D3DX math types and functions
  1758. //
  1759. //////////////////////////////////////////////////////////////////////////////
  1763. //===========================================================================
  1764. //
  1765. // General purpose utilities
  1766. //
  1767. //===========================================================================
  1770. function D3DXToRadian(Degree: Single): Single;
  1771. begin
  1772.   Result:= Degree * (D3DX_PI / 180.0);
  1773. end;
  1775. function D3DXToDegree(Radian: Single): Single;
  1776. begin
  1777.   Result:= Radian * (180.0 / D3DX_PI);
  1778. end;
  1781. //--------------------------
  1782. // 2D Vector
  1783. //--------------------------
  1785. function D3DXVector2(_x, _y: Single): TD3DXVector2;
  1786. begin
  1787.   Result.x:= _x; Result.y:= _y;
  1788. end;
  1790. function D3DXVector2Equal(const v1, v2: TD3DXVector2): Boolean;
  1791. begin
  1792.   Result:= (v1.x = v2.x) and (v1.y = v2.y);
  1793. end;
  1796. //--------------------------
  1797. // 3D Vector
  1798. //--------------------------
  1799. function D3DXVector3(_x, _y, _z: Single): TD3DXVector3;
  1800. begin
  1801.   Result.x:= _x; Result.y:= _y; Result.z:=_z;
  1802. end;
  1804. function D3DXVector3Equal(const v1, v2: TD3DXVector3): Boolean;
  1805. begin
  1806.   Result:= (v1.x = v2.x) and (v1.y = v2.y) and (v1.z = v2.z);
  1807. end;
  1810. //--------------------------
  1811. // 4D Vector
  1812. //--------------------------
  1814. function D3DXVector4(_x, _y, _z, _w: Single): TD3DXVector4;
  1815. begin
  1816.   with Result do
  1817.   begin
  1818.     x:= _x; y:= _y; z:= _z; w:= _w;
  1819.   end;
  1820. end;
  1822. function D3DXVector4Equal(const v1, v2: TD3DXVector4): Boolean;
  1823. begin
  1824.   Result:= (v1.x = v2.x) and (v1.y = v2.y) and
  1825.     (v1.z = v2.z) and (v1.w = v2.w);
  1826. end;
  1829. //--------------------------
  1830. // 4D Matrix
  1831. //--------------------------
  1832. function D3DXMatrix(
  1833.   _m00, _m01, _m02, _m03,
  1834.   _m10, _m11, _m12, _m13,
  1835.   _m20, _m21, _m22, _m23,
  1836.   _m30, _m31, _m32, _m33: Single): TD3DXMatrix;
  1837. begin
  1838.   with Result do
  1839.   begin
  1840.     m[0,0]:= _m00; m[0,1]:= _m01; m[0,2]:= _m02; m[0,3]:= _m03;
  1841.     m[1,0]:= _m10; m[1,1]:= _m11; m[1,2]:= _m12; m[1,3]:= _m13;
  1842.     m[2,0]:= _m20; m[2,1]:= _m21; m[2,2]:= _m22; m[2,3]:= _m23;
  1843.     m[3,0]:= _m30; m[3,1]:= _m31; m[3,2]:= _m32; m[3,3]:= _m33;
  1844.   end;
  1845. end;
  1847. function D3DXMatrixAdd(out mOut: TD3DXMatrix; const m1, m2: TD3DXMatrix): PD3DXMatrix;
  1848. var
  1849.   pOut, p1, p2: PSingle; x: Integer;
  1850. begin
  1851.   pOut:= @mOut._11; p1:= @m1._11; p2:= @m2._11;
  1852.   for x:= 0 to 15 do
  1853.   begin
  1854.     pOut^:= p1^+p2^;
  1855.     Inc(pOut); Inc(p1); Inc(p2);
  1856.   end;
  1857.   Result:= @mOut;
  1858. end;
  1860. function D3DXMatrixSubtract(out mOut: TD3DXMatrix; const m1, m2: TD3DXMatrix): PD3DXMatrix;
  1861. var
  1862.   pOut, p1, p2: PSingle; x: Integer;
  1863. begin
  1864.   pOut:= @mOut._11; p1:= @m1._11; p2:= @m2._11;
  1865.   for x:= 0 to 15 do
  1866.   begin
  1867.     pOut^:= p1^-p2^;
  1868.     Inc(pOut); Inc(p1); Inc(p2);
  1869.   end;
  1870.   Result:= @mOut;
  1871. end;
  1873. function D3DXMatrixMul(out mOut: TD3DXMatrix; const m: TD3DXMatrix; MulBy: Single): PD3DXMatrix;
  1874. var
  1875.   pOut, p: PSingle; x: Integer;
  1876. begin
  1877.   pOut:= @mOut._11; p:= @m._11;
  1878.   for x:= 0 to 15 do
  1879.   begin
  1880.     pOut^:= p^* MulBy;
  1881.     Inc(pOut); Inc(p);
  1882.   end;
  1883.   Result:= @mOut;
  1884. end;
  1886. function D3DXMatrixEqual(const m1, m2: TD3DXMatrix): Boolean;
  1887. begin
  1888.   Result:= CompareMem(@m1, @m2, SizeOf(TD3DXMatrix));
  1889. end;
  1891. //--------------------------
  1892. // Quaternion
  1893. //--------------------------
  1894. function D3DXQuaternion(_x, _y, _z, _w: Single): TD3DXQuaternion;
  1895. begin
  1896.   with Result do
  1897.   begin
  1898.     x:= _x; y:= _y; z:= _z; w:= _w;
  1899.   end;
  1900. end;
  1902. function D3DXQuaternionAdd(const q1, q2: TD3DXQuaternion): TD3DXQuaternion;
  1903. begin
  1904.   with Result do
  1905.   begin
  1906.     x:= q1.x+q2.x; y:= q1.y+q2.y; z:= q1.z+q2.z; w:= q1.w+q2.w;
  1907.   end;
  1908. end;
  1910. function D3DXQuaternionSubtract(const q1, q2: TD3DXQuaternion): TD3DXQuaternion;
  1911. begin
  1912.   with Result do
  1913.   begin
  1914.     x:= q1.x-q2.x; y:= q1.y-q2.y; z:= q1.z-q2.z; w:= q1.w-q2.w;
  1915.   end;
  1916. end;
  1918. function D3DXQuaternionEqual(const q1, q2: TD3DXQuaternion): Boolean;
  1919. begin
  1920.   Result:= (q1.x = q2.x) and (q1.y = q2.y) and
  1921.     (q1.z = q2.z) and (q1.w = q2.w);
  1922. end;
  1924. function D3DXQuaternionScale(out qOut: TD3DXQuaternion; const q: TD3DXQuaternion;
  1925.   s: Single): PD3DXQuaternion;
  1926. begin
  1927.   with qOut do
  1928.   begin
  1929.     x:= q.x*s; y:= q.y*s; z:= q.z*s; w:= q.w*s;
  1930.   end;
  1931.   Result:= @qOut;
  1932. end;
  1935. //--------------------------
  1936. // Plane
  1937. //--------------------------
  1939. function D3DXPlane(_a, _b, _c, _d: Single): TD3DXPlane;
  1940. begin
  1941.   with Result do
  1942.   begin
  1943.     a:= _a; b:= _b; c:= _c; d:= _d;
  1944.   end;
  1945. end;
  1947. function D3DXPlaneEqual(const p1, p2: TD3DXPlane): Boolean;
  1948. begin
  1949.   Result:=
  1950.     (p1.a = p2.a) and (p1.b = p2.b) and
  1951.     (p1.c = p2.c) and (p1.d = p2.d);
  1952. end;
  1955. //--------------------------
  1956. // Color
  1957. //--------------------------
  1959. function D3DXColor(_r, _g, _b, _a: Single): TD3DXColor;
  1960. begin
  1961.   with Result do
  1962.   begin
  1963.     r:= _r; g:= _g; b:= _b; a:= _a;
  1964.   end;
  1965. end;
  1967. function D3DXColorToDWord(c: TD3DXColor): DWord;
  1969.   function ColorLimit(const x: Single): DWord;
  1970.   begin
  1971.     if x > 1.0 then Result:= 255
  1972.      else if x < 0 then Result:= 0
  1973.       else Result:= Trunc(x * 255.0 + 0.5);
  1974.   end;
  1975. begin
  1976.   Result:= ColorLimit(c.a) shl 24 or ColorLimit(c.r) shl 16
  1977.     or ColorLimit(c.g) shl 8 or ColorLimit(c.b);
  1978. end;
  1980. function D3DXColorFromDWord(c: DWord): TD3DXColor;
  1981. const
  1982.   f: Single = 1/255;
  1983. begin
  1984.   with Result do
  1985.   begin
  1986.     r:= f * Byte(c shr 16);
  1987.     g:= f * Byte(c shr  8);
  1988.     b:= f * Byte(c shr  0);
  1989.     a:= f * Byte(c shr 24);
  1990.   end;
  1991. end;
  1993. function D3DXColorEqual(const c1, c2: TD3DXColor): Boolean;
  1994. begin
  1995.   Result:= (c1.r = c2.r) and (c1.g = c2.g) and (c1.b = c2.b) and (c1.a = c2.a);
  1996. end;
  1999. //===========================================================================
  2000. //
  2001. // D3DX math functions:
  2002. //
  2003. // NOTE:
  2004. //  * All these functions can take the same object as in and out parameters.
  2005. //
  2006. //  * Out parameters are typically also returned as return values, so that
  2007. //    the output of one function may be used as a parameter to another.
  2008. //
  2009. //===========================================================================
  2011. //--------------------------
  2012. // 2D Vector
  2013. //--------------------------
  2015. // "inline"
  2016. function D3DXVec2Length(const v: TD3DXVector2): Single;
  2017. begin
  2018.   with v do Result:= Sqrt(x*x + y*y);
  2019. end;
  2021. function D3DXVec2LengthSq(const v: TD3DXVector2): Single;
  2022. begin
  2023.   with v do Result:= x*x + y*y;
  2024. end;
  2026. function D3DXVec2Dot(const v1, v2: TD3DXVector2): Single;
  2027. begin
  2028.   Result:= v1.x*v2.x + v1.y*v2.y;
  2029. end;
  2031. // Z component of ((x1,y1,0) cross (x2,y2,0))
  2032. function D3DXVec2CCW(const v1, v2: TD3DXVector2): Single;
  2033. begin
  2034.   Result:= v1.x*v2.y - v1.y*v2.x;
  2035. end;
  2037. function D3DXVec2Add(const v1, v2: TD3DXVector2): TD3DXVector2;
  2038. begin
  2039.   Result.x:= v1.x + v2.x;
  2040.   Result.y:= v1.y + v2.y;
  2041. end;
  2043. function D3DXVec2Subtract(const v1, v2: TD3DXVector2): TD3DXVector2;
  2044. begin
  2045.   Result.x:= v1.x - v2.x;
  2046.   Result.y:= v1.y - v2.y;
  2047. end;
  2049. // Minimize each component.  x = min(x1, x2), y = min(y1, y2)
  2050. function D3DXVec2Minimize(out vOut: TD3DXVector2; const v1, v2: TD3DXVEctor2): PD3DXVector2;
  2051. begin
  2052.   if v1.x < v2.x then vOut.x:= v1.x else vOut.x:= v2.x;
  2053.   if v1.y < v2.y then vOut.y:= v1.y else vOut.y:= v2.y;
  2054.   Result:= @vOut;
  2055. end;
  2057. // Maximize each component.  x = max(x1, x2), y = max(y1, y2)
  2058. function D3DXVec2Maximize(out vOut: TD3DXVector2; const v1, v2: TD3DXVector2): PD3DXVector2;
  2059. begin
  2060.   if v1.x > v2.x then vOut.x:= v1.x else vOut.x:= v2.x;
  2061.   if v1.y > v2.y then vOut.y:= v1.y else vOut.y:= v2.y;
  2062.   Result:= @vOut;
  2063. end;
  2065. function D3DXVec2Scale(out vOut: TD3DXVector2; const v: TD3DXVector2; s: Single): PD3DXVector2;
  2066. begin
  2067.   vOut.x:= v.x*s; vOut.y:= v.y*s;
  2068.   Result:= @vOut;
  2069. end;
  2071. // Linear interpolation. V1 + s(V2-V1)
  2072. function D3DXVec2Lerp(out vOut: TD3DXVector2; const v1, v2: TD3DXVector2; s: Single): PD3DXVector2;
  2073. begin
  2074.   vOut.x:= v1.x + s * (v2.x-v1.x);
  2075.   vOut.y:= v1.y + s * (v2.y-v1.y);
  2076.   Result:= @vOut;
  2077. end;
  2080. //--------------------------
  2081. // 3D Vector
  2082. //--------------------------
  2083. function D3DXVec3Length(const v: TD3DXVector3): Single;
  2084. begin
  2085.   with v do Result:= Sqrt(x*x + y*y + z*z);
  2086. end;
  2088. function D3DXVec3LengthSq(const v: TD3DXVector3): Single;
  2089. begin
  2090.   with v do Result:= x*x + y*y + z*z;
  2091. end;
  2093. function D3DXVec3Dot(const v1, v2: TD3DXVector3): Single;
  2094. begin
  2095.   Result:= v1.x * v2.x + v1.y * v2.y + v1.z * v2.z;
  2096. end;
  2098. function D3DXVec3Cross(out vOut: TD3DXVector3; const v1, v2: TD3DXVector3): PD3DXVector3;
  2099. begin
  2100.   vOut.x:= v1.y * v2.z - v1.z * v2.y;
  2101.   vOut.y:= v1.z * v2.x - v1.x * v2.z;
  2102.   vOut.z:= v1.x * v2.y - v1.y * v2.x;
  2103.   Result:= @vOut;
  2104. end;
  2106. function D3DXVec3Add(out vOut: TD3DXVector3; const v1, v2: TD3DXVector3): PD3DXVector3;
  2107. begin
  2108.   with vOut do
  2109.   begin
  2110.     x:= v1.x + v2.x;
  2111.     y:= v1.y + v2.y;
  2112.     z:= v1.z + v2.z;
  2113.   end;
  2114.   Result:= @vOut;
  2115. end;
  2117. function D3DXVec3Subtract(out vOut: TD3DXVector3; const v1, v2: TD3DXVector3): PD3DXVector3;
  2118. begin
  2119.   with vOut do
  2120.   begin
  2121.     x:= v1.x - v2.x;
  2122.     y:= v1.y - v2.y;
  2123.     z:= v1.z - v2.z;
  2124.   end;
  2125.   Result:= @vOut;
  2126. end;
  2128. // Minimize each component.  x = min(x1, x2), y = min(y1, y2)
  2129. function D3DXVec3Minimize(out vOut: TD3DXVector3; const v1, v2: TD3DXVector3): PD3DXVector3;
  2130. begin
  2131.   if v1.x < v2.x then vOut.x:= v1.x else vOut.x:= v2.x;
  2132.   if v1.y < v2.y then vOut.y:= v1.y else vOut.y:= v2.y;
  2133.   if v1.z < v2.z then vOut.z:= v1.z else vOut.z:= v2.z;
  2134.   Result:= @vOut;
  2135. end;
  2137. // Maximize each component.  x = max(x1, x2), y = max(y1, y2)
  2138. function D3DXVec3Maximize(out vOut: TD3DXVector3; const v1, v2: TD3DXVector3): PD3DXVector3;
  2139. begin
  2140.   if v1.x > v2.x then vOut.x:= v1.x else vOut.x:= v2.x;
  2141.   if v1.y > v2.y then vOut.y:= v1.y else vOut.y:= v2.y;
  2142.   if v1.z > v2.z then vOut.z:= v1.z else vOut.z:= v2.z;
  2143.   Result:= @vOut;
  2144. end;
  2146. function D3DXVec3Scale(out vOut: TD3DXVector3; const v: TD3DXVector3; s: Single): PD3DXVector3;
  2147. begin
  2148.   with vOut do
  2149.   begin
  2150.     x:= v.x * s; y:= v.y * s; z:= v.z * s;
  2151.   end;
  2152.   Result:= @vOut;
  2153. end;
  2155. // Linear interpolation. V1 + s(V2-V1)
  2156. function D3DXVec3Lerp(out vOut: TD3DXVector3; const v1, v2: TD3DXVector3; s: Single): PD3DXVector3;
  2157. begin
  2158.   vOut.x:= v1.x + s * (v2.x-v1.x);
  2159.   vOut.y:= v1.y + s * (v2.y-v1.y);
  2160.   vOut.z:= v1.z + s * (v2.z-v1.z);
  2161.   Result:= @vOut;
  2162. end;
  2165. //--------------------------
  2166. // 4D Vector
  2167. //--------------------------
  2169. function D3DXVec4Length(const v: TD3DXVector4): Single;
  2170. begin
  2171.   with v do Result:= Sqrt(x*x + y*y + z*z + w*w);
  2172. end;
  2174. function D3DXVec4LengthSq(const v: TD3DXVector4): Single;
  2175. begin
  2176.   with v do Result:= x*x + y*y + z*z + w*w
  2177. end;
  2179. function D3DXVec4Dot(const v1, v2: TD3DXVector4): Single;
  2180. begin
  2181.   Result:= v1.x * v2.x + v1.y * v2.y + v1.z * v2.z + v1.w * v2.w;
  2182. end;
  2184. function D3DXVec4Add(out vOut: TD3DXVector4; const v1, v2: TD3DXVector4): PD3DXVector4;
  2185. begin
  2186.   with vOut do
  2187.   begin
  2188.     x:= v1.x + v2.x;
  2189.     y:= v1.y + v2.y;
  2190.     z:= v1.z + v2.z;
  2191.     w:= v1.w + v2.w;
  2192.   end;
  2193.   Result:= @vOut;
  2194. end;
  2196. function D3DXVec4Subtract(out vOut: TD3DXVector4; const v1, v2: TD3DXVector4): PD3DXVector4;
  2197. begin
  2198.   with vOut do
  2199.   begin
  2200.     x:= v1.x - v2.x;
  2201.     y:= v1.y - v2.y;
  2202.     z:= v1.z - v2.z;
  2203.     w:= v1.w - v2.w;
  2204.   end;
  2205.   Result:= @vOut;
  2206. end;
  2209. // Minimize each component.  x = min(x1, x2), y = min(y1, y2)
  2210. function D3DXVec4Minimize(out vOut: TD3DXVector4; const v1, v2: TD3DXVector4): PD3DXVector4;
  2211. begin
  2212.   if v1.x < v2.x then vOut.x:= v1.x else vOut.x:= v2.x;
  2213.   if v1.y < v2.y then vOut.y:= v1.y else vOut.y:= v2.y;
  2214.   if v1.z < v2.z then vOut.z:= v1.z else vOut.z:= v2.z;
  2215.   if v1.w < v2.w then vOut.w:= v1.w else vOut.w:= v2.w;
  2216.   Result:= @vOut;
  2217. end;
  2219. // Maximize each component.  x = max(x1, x2), y = max(y1, y2)
  2220. function D3DXVec4Maximize(out vOut: TD3DXVector4; const v1, v2: TD3DXVector4): PD3DXVector4;
  2221. begin
  2222.   if v1.x > v2.x then vOut.x:= v1.x else vOut.x:= v2.x;
  2223.   if v1.y > v2.y then vOut.y:= v1.y else vOut.y:= v2.y;
  2224.   if v1.z > v2.z then vOut.z:= v1.z else vOut.z:= v2.z;
  2225.   if v1.w > v2.w then vOut.w:= v1.w else vOut.w:= v2.w;
  2226.   Result:= @vOut;
  2227. end;
  2229. function D3DXVec4Scale(out vOut: TD3DXVector4; const v: TD3DXVector4; s: Single): PD3DXVector4;
  2230. begin
  2231.   with vOut do
  2232.   begin
  2233.     x:= v.x * s; y:= v.y * s; z:= v.z * s; w:= v.w * s;
  2234.   end;
  2235.   Result:= @vOut;
  2236. end;
  2238. // Linear interpolation. V1 + s(V2-V1)
  2239. function D3DXVec4Lerp(out vOut: TD3DXVector4;
  2240.   const v1, v2: TD3DXVector4; s: Single): PD3DXVector4;
  2241. begin
  2242.   with vOut do
  2243.   begin
  2244.     x:= v1.x + s * (v2.x - v1.x);
  2245.     y:= v1.y + s * (v2.y - v1.y);
  2246.     z:= v1.z + s * (v2.z - v1.z);
  2247.     w:= v1.w + s * (v2.w - v1.w);
  2248.   end;
  2249.   Result:= @vOut;
  2250. end;
  2252. //--------------------------
  2253. // 4D Matrix
  2254. //--------------------------
  2256. // inline
  2257. function D3DXMatrixIdentity(out mOut: TD3DXMatrix): PD3DXMatrix;
  2258. begin
  2259.   FillChar(mOut, SizeOf(mOut), 0);
  2260.   mOut._11:= 1; mOut._22:= 1; mOut._33:= 1; mOut._44:= 1;
  2261.   Result:= @mOut;
  2262. end;
  2264. function D3DXMatrixIsIdentity(const m: TD3DXMatrix): BOOL;
  2265. begin
  2266.   with m do Result:=
  2267.     (_11 = 1) and (_12 = 0) and (_13 = 0) and (_14 = 0) and
  2268.     (_21 = 0) and (_22 = 1) and (_23 = 0) and (_24 = 0) and
  2269.     (_31 = 0) and (_32 = 0) and (_33 = 1) and (_34 = 0) and
  2270.     (_41 = 0) and (_42 = 0) and (_43 = 0) and (_44 = 1);
  2271. end;
  2274. //--------------------------
  2275. // Quaternion
  2276. //--------------------------
  2278. // inline
  2280. function D3DXQuaternionLength(const q: TD3DXQuaternion): Single;
  2281. begin
  2282.   with q do Result:= Sqrt(x*x + y*y + z*z + w*w);
  2283. end;
  2285. // Length squared, or "norm"
  2286. function D3DXQuaternionLengthSq(const q: TD3DXQuaternion): Single;
  2287. begin
  2288.   with q do Result:= x*x + y*y + z*z + w*w;
  2289. end;
  2291. function D3DXQuaternionDot(const q1, q2: TD3DXQuaternion): Single;
  2292. begin
  2293.   Result:= q1.x * q2.x + q1.y * q2.y + q1.z * q2.z + q1.w * q2.w;
  2294. end;
  2296. function D3DXQuaternionIdentity(out qOut: TD3DXQuaternion): PD3DXQuaternion;
  2297. begin
  2298.   with qOut do
  2299.   begin
  2300.     x:= 0; y:= 0; z:= 0; w:= 1.0;
  2301.   end;
  2302.   Result:= @qOut;
  2303. end;
  2305. function D3DXQuaternionIsIdentity(const q: TD3DXQuaternion): BOOL;
  2306. begin
  2307.   with q do Result:= (x = 0) and (y = 0) and (z = 0) and (w = 1);
  2308. end;
  2310. // (-x, -y, -z, w)
  2311. function D3DXQuaternionConjugate(out qOut: TD3DXQuaternion;
  2312.   const q: TD3DXQuaternion): PD3DXQuaternion;
  2313. begin
  2314.   with qOut do
  2315.   begin
  2316.     x:= -q.x; y:= -q.y; z:= -q.z; w:= q.w;
  2317.   end;
  2318.   Result:= @qOut;
  2319. end;
  2322. //--------------------------
  2323. // Plane
  2324. //--------------------------
  2326. // ax + by + cz + dw
  2327. function D3DXPlaneDot(const p: TD3DXPlane; const v: TD3DXVector4): Single;
  2328. begin
  2329.   with p,v do Result:= a*x + b*y + c*z + d*w;
  2330. end;
  2332. // ax + by + cz + d
  2333. function D3DXPlaneDotCoord(const p: TD3DXPlane; const v: TD3DXVector3): Single;
  2334. begin
  2335.   with p,v do Result:= a*x + b*y + c*z + d;
  2336. end;
  2338. // ax + by + cz
  2339. function D3DXPlaneDotNormal(const p: TD3DXPlane; const v: TD3DXVector3): Single;
  2340. begin
  2341.   with p,v do Result:= a*x + b*y + c*z;
  2342. end;
  2345. //--------------------------
  2346. // Color
  2347. //--------------------------
  2349. // inline
  2351. function D3DXColorNegative(out cOut: TD3DXColor; const c: TD3DXColor): PD3DXColor;
  2352. begin
  2353.  with cOut do
  2354.  begin
  2355.    r:= 1.0 - c.r; g:= 1.0 - c.g; b:= 1.0 - c.b;
  2356.    a:= c.a;
  2357.  end;
  2358.  Result:= @cOut;
  2359. end;
  2361. function D3DXColorAdd(out cOut: TD3DXColor; const c1,c2: TD3DXColor): PD3DXColor;
  2362. begin
  2363.   with cOut do
  2364.   begin
  2365.     r:= c1.r + c2.r; g:= c1.g + c2.g; b:= c1.b + c2.b;
  2366.     a:= c1.a + c2.a;
  2367.   end;
  2368.   Result:= @cOut;
  2369. end;
  2371. function D3DXColorSubtract(out cOut: TD3DXColor; const c1,c2: TD3DXColor): PD3DXColor;
  2372. begin
  2373.   with cOut do
  2374.   begin
  2375.     r:= c1.r - c2.r; g:= c1.g - c2.g; b:= c1.b - c2.b;
  2376.     a:= c1.a - c2.a;
  2377.   end;
  2378.   Result:= @cOut;
  2379. end;
  2381. function D3DXColorScale(out cOut: TD3DXColor; const c: TD3DXColor; s: Single): PD3DXColor;
  2382. begin
  2383.   with cOut do
  2384.   begin
  2385.     r:= c.r * s; g:= c.g * s;
  2386.     b:= c.b * s; a:= c.a * s;
  2387.   end;
  2388.   Result:= @cOut;
  2389. end;
  2391. // (r1*r2, g1*g2, b1*b2, a1*a2)
  2392. function D3DXColorModulate(out cOut: TD3DXColor; const c1,c2: TD3DXColor): PD3DXColor;
  2393. begin
  2394.   with cOut do
  2395.   begin
  2396.     r:= c1.r * c2.r; g:= c1.g * c2.g;
  2397.     b:= c1.b * c2.b; a:= c1.a * c2.a;
  2398.   end;
  2399.   Result:= @cOut;
  2400. end;
  2402. // Linear interpolation of r,g,b, and a. C1 + s(C2-C1)
  2403. function D3DXColorLerp(out cOut: TD3DXColor; const c1,c2: TD3DXColor; s: Single): PD3DXColor;
  2404. begin
  2405.   with cOut do
  2406.   begin
  2407.     r:= c1.r + s * (c2.r - c1.r);
  2408.     g:= c1.g + s * (c2.g - c1.g);
  2409.     b:= c1.b + s * (c2.b - c1.b);
  2410.     a:= c1.a + s * (c2.a - c1.a);
  2411.   end;
  2412.   Result:= @cOut;
  2413. end;
  2418. ///////////////////////////////////////////////////////////////////////////
  2419. //
  2420. //  Copyright (C) Microsoft Corporation.  All Rights Reserved.
  2421. //
  2422. //  File:       d3dx8core.h
  2423. //  Content:    D3DX core types and functions
  2424. //
  2425. ///////////////////////////////////////////////////////////////////////////
  2428. // Object Pascal support functions for D3DXGetErrorString
  2429. function D3DXGetErrorStringA(hr: HResult): AnsiString; overload;
  2430. var
  2431.   Buffer: array [0..254] of AnsiChar;
  2432. begin
  2433.   D3DXGetErrorStringA(hr, PAnsiChar(@Buffer), 255);
  2434.   SetLength(Result, StrLen(PAnsiChar(@Buffer)));
  2435.   Move(Buffer, Result[1], Length(Result));
  2436. end;
  2438. function D3DXGetErrorStringW(hr: HResult): WideString; overload;
  2439.  function WStrLen(Str: PWideChar): Integer;
  2440.  begin
  2441.    Result := 0;
  2442.    while Str[Result] <> #0 do Inc(Result);
  2443.  end;
  2444. begin
  2445.   SetLength(Result, 255);
  2446.   D3DXGetErrorStringW(hr, PWideChar(Result), Length(Result));
  2447.   SetLength(Result, WStrLen(PWideChar(Result)));
  2448. end;
  2450. function D3DXGetErrorString(hr: HResult): String; overload;
  2451. begin
  2452.   Result := string(D3DXGetErrorStringW(hr));
  2453. end;
  2455. end.