DXTYPES.pas
上传用户:yj_qiu
上传日期:2022-08-08
资源大小:23636k
文件大小:3k
源码类别:

游戏引擎

开发平台:

Delphi

  1. {******************************************************************************}
  2. {*                                                                            *}
  3. {*  Copyright (C) Microsoft Corporation.  All Rights Reserved.                *}
  4. {*                                                                            *}
  5. {*  File:       extracted from various DirectX SDK include files              *}
  6. {*                                                                            *}
  7. {*  Content:    DirectX 9.0 headers common types                              *}
  8. {*                                                                            *}
  9. {*  Direct3DX 9.0 Delphi adaptation by Alexey Barkovoy                        *}
  10. {*  E-Mail: clootie@reactor.ru                                                *}
  11. {*                                                                            *}
  12. {*  Modified: 26-Jan-2003                                                     *}
  13. {*                                                                            *}
  14. {*  Latest version can be downloaded from:                                    *}
  15. {*     http://clootie.narod.ru/delphi                                         *}
  16. {*                                                                            *}
  17. {******************************************************************************)
  18. {                                                                              }
  19. { The contents of this file are subject to the Mozilla Public License Version  }
  20. { 1.1 (the "License"); you may not use this file except in compliance with the }
  21. { License. You may obtain a copy of the License at http://www.mozilla.org/MPL/ }
  22. {                                                                              }
  23. { Software distributed under the License is distributed on an "AS IS" basis,   }
  24. { WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License for }
  25. { the specific language governing rights and limitations under the License.    }
  26. {                                                                              }
  27. { The Original Code is DXTypes.pas.                                            }
  28. {                                                                              }
  29. {******************************************************************************}
  30. unit DXTypes;
  31. interface
  32. uses Windows;
  33. type
  34.   // TD3DValue is the fundamental Direct3D fractional data type
  35.   D3DVALUE = Single;
  36.   TD3DValue = D3DVALUE;
  37.   PD3DValue = ^TD3DValue;
  38.   {$NODEFINE D3DVALUE}
  39.   {$NODEFINE TD3DValue}
  40.   {$NODEFINE PD3DValue}
  41.   D3DCOLOR = {$IFDEF TYPE_IDENTITY}type {$ENDIF}DWord;
  42.   TD3DColor = D3DCOLOR;
  43.   PD3DColor = ^TD3DColor;
  44.   {$NODEFINE D3DCOLOR}
  45.   {$NODEFINE TD3DColor}
  46.   {$NODEFINE PD3DColor}
  47.   _D3DVECTOR = packed record
  48.     x: Single;
  49.     y: Single;
  50.     z: Single;
  51.   end {_D3DVECTOR};
  52.   D3DVECTOR = _D3DVECTOR;
  53.   TD3DVector = _D3DVECTOR;
  54.   PD3DVector = ^TD3DVector;
  55.   {$NODEFINE _D3DVECTOR}
  56.   {$NODEFINE D3DVECTOR}
  57.   {$NODEFINE TD3DVector}
  58.   {$NODEFINE PD3DVector}
  59. implementation
  60. end.