Ada计算机图形DirectX之D3DX11

----------------------------------------
-- File : D3DX11.ads                  --
-- Translator:Dongfeng.Gu,2018/10/26  --
-- Mail: 515639@qq.com                --
-- Progress:100%                      --
----------------------------------------
 
with win32;              use win32;
with win32.Objbase;      use win32.Objbase;
with win32.Winerror;
 
 
package D3DX11 is
 
   D3DX11_DEFAULT : constant := 16#FFFF_FFFF#;
 
   D3DX11_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 tagD3DX11_ERR is HRESULT;
   subtype D3DX11_ERR is tagD3DX11_ERR;
   type LPD3DX11_ERR is access all tagD3DX11_ERR;
 
 
   D3DX11_ERR_CANNOT_MODIFY_INDEX_BUFFER:constant tagD3DX11_ERR:=MAKE_DDHRESULT(2900);
   D3DX11_ERR_INVALID_MESH:constant tagD3DX11_ERR:=MAKE_DDHRESULT(2901);
   D3DX11_ERR_CANNOT_ATTR_SORT:constant tagD3DX11_ERR:=MAKE_DDHRESULT(2902);
   D3DX11_ERR_SKINNING_NOT_SUPPORTED:constant tagD3DX11_ERR:=MAKE_DDHRESULT(2903);
   D3DX11_ERR_TOO_MANY_INFLUENCES:constant tagD3DX11_ERR:=MAKE_DDHRESULT(2904);
   D3DX11_ERR_INVALID_DATA:constant tagD3DX11_ERR:=MAKE_DDHRESULT(2905);
   D3DX11_ERR_LOADED_MESH_HAS_NO_DATA:constant tagD3DX11_ERR:=MAKE_DDHRESULT(2906);
   D3DX11_ERR_DUPLICATE_NAMED_FRAGMENT:constant tagD3DX11_ERR:=MAKE_DDHRESULT(2907);
   D3DX11_ERR_CANNOT_REMOVE_LAST_ITEM:constant tagD3DX11_ERR:=MAKE_DDHRESULT(2908);
 
 
end D3DX11;