Ada计算机图形DirectX之D3DX10

最新推荐文章于 2023-04-11 15:48:44 发布

adacore

最新推荐文章于 2023-04-11 15:48:44 发布

阅读量181

点赞数

分类专栏： Ada 文章标签： DirectX D3DX10 Ada

本文链接：https://blog.csdn.net/adacore/article/details/83376578

版权

Ada 专栏收录该内容

96 篇文章 3 订阅

订阅专栏

----------------------------------------
-- File : D3DX10.ads                  --
-- Translator:Dongfeng.Gu,2018/10/25  --
-- Mail: 515639@qq.com                --
-- Progress:100%                      --
----------------------------------------

with win32;              use win32;
with win32.Objbase;      use win32.Objbase;
with win32.Winerror;


package D3DX10 is

   D3DX10_DEFAULT : constant := 16#FFFF_FFFF#;

   D3DX10_FROM_FILE : constant := 16#FFFF_FFFD#;

   DXGI_FORMAT_FROM_FILE : constant := 16#FFFF_FFFD#;


   FACDD : constant := 16#876#;

   function MAKE_DDHRESULT(code:WORD) return HRESULT is ( win32.Winerror.MAKE_HRESULT( 1, FACDD, code ));

   subtype tagD3DX10_ERR is HRESULT;
   subtype D3DX10_ERR is tagD3DX10_ERR;
   type LPD3DX10_ERR is access all tagD3DX10_ERR;


   D3DX10_ERR_CANNOT_MODIFY_INDEX_BUFFER:constant tagD3DX10_ERR:=MAKE_DDHRESULT(2900);
   D3DX10_ERR_INVALID_MESH:constant tagD3DX10_ERR:=MAKE_DDHRESULT(2901);
   D3DX10_ERR_CANNOT_ATTR_SORT:constant tagD3DX10_ERR:=MAKE_DDHRESULT(2902);
   D3DX10_ERR_SKINNING_NOT_SUPPORTED:constant tagD3DX10_ERR:=MAKE_DDHRESULT(2903);
   D3DX10_ERR_TOO_MANY_INFLUENCES:constant tagD3DX10_ERR:=MAKE_DDHRESULT(2904);
   D3DX10_ERR_INVALID_DATA:constant tagD3DX10_ERR:=MAKE_DDHRESULT(2905);
   D3DX10_ERR_LOADED_MESH_HAS_NO_DATA:constant tagD3DX10_ERR:=MAKE_DDHRESULT(2906);
   D3DX10_ERR_DUPLICATE_NAMED_FRAGMENT:constant tagD3DX10_ERR:=MAKE_DDHRESULT(2907);
   D3DX10_ERR_CANNOT_REMOVE_LAST_ITEM:constant tagD3DX10_ERR:=MAKE_DDHRESULT(2908);


end D3DX10;