REM ****************************************************************
      REM
      REM Create a DirectX11 Device
      REM
      REM ****************************************************************
      DEF PROC_Init_D3D11(hwnd%)
      INSTALL @lib$ + "DirectX11\Functions\DLL"
      INSTALL @lib$ + "DirectX11\Functions\Helper"
      CALL @lib$ + "DirectX11\Constants"
      CALL @lib$ + "DirectX11\Structures"
      CALL @lib$ + "DirectX11\Interfaces"
      PROC_Helper_AssembleFNf

      REM Get the Dlls and the functions we need
      D3D11DLL%                       = FN_DLL_LoadDLL("D3D11.DLL")
      D3D11CreateDeviceAndSwapChain%  = FN_DLL_GetFunctionAddress(D3D11DLL%, "D3D11CreateDeviceAndSwapChain")
      D3DX11DLL%                      = FN_DLL_LoadDLL(FN_GetD3DX11DLL)
      D3DX11CompileFromFile%          = FN_DLL_GetFunctionAddress(D3DX11DLL%, "D3DX11CompileFromFileA")

      REM Create our swap chain description{}
      LOCAL scd{}
      DIM scd{} = DXGI_SWAP_CHAIN_DESC{}

      REM Fill out its members
      scd.BufferCount%       = 1
      scd.BufferDesc.Width%  = SCREENWIDTH
      scd.BufferDesc.Height% = SCREENHEIGHT
      scd.BufferDesc.Format% = DXGI_R8G8B8A8_UNORM
      scd.BufferDesc.RefreshRate.Numerator% = 60
      scd.BufferDesc.RefreshRate.Denominator% = 1
      scd.BufferUsage% = DXGI_USAGE_RENDER_TARGET_OUTPUT
      scd.OutputWindow% = hwnd%
      scd.SampleDesc.Count% = 4
      scd.SampleDesc.Quality% = 0
      scd.Windowed% = _TRUE
      scd.Flags% = DXGI_SWAP_CHAIN_FLAG_ALLOW_MODE_SWITCH

      REM Create the device
      SYS D3D11CreateDeviceAndSwapChain%, 0,               \
      \                                   D3D_DRIVER_TYPE_HARDWARE,  \
      \                                   0,               \
      \                                   0,               \
      \                                   0,               \
      \                                   0,               \
      \                                   D3D11_SDK_VERSION ,             \
      \                                   scd{},            \
      \                                   ^SwapChain%, \
      \                                   ^Device%,   \
      \                                   0,                 \
      \                                   ^DeviceContext%       TO R%
      IF R% PROC_D3DERR(R%) ELSE IF V% PRINT"Device Created."
      PROC_Helper_CreateInterface(IDevice{}, ID3D11Device{}, Device%)
      PROC_Helper_CreateInterface(ISwapChain{}, IDXGISwapChain{}, SwapChain%)
      PROC_Helper_CreateInterface(IDeviceContext{}, ID3D11DeviceContext{}, DeviceContext%)

      REM Get the address of the back buffer
      SYS ISwapChain.GetBuffer%, SwapChain%, 0, IID_ID3D11Texture2D{}, ^pBackBuffer% TO R%
      IF R% THEN ERROR 100,"Error : swapchain->GetBuffer : "+STR$~R%

      REM Use the BackBufferAddress to create the Render Target
      SYS IDevice.CreateRenderTargetView%, Device%, pBackBuffer%, 0, ^BackBuffer% TO R%
      IF R% THEN ERROR 100,"Error : Couldn't Use the BackBufferAddress to create the Render Target"

      REM Release the BackBuffer pointer
      SYS !(!pBackBuffer% + 8), pBackBuffer%

      REM OMSetRenderTargets : Returns Void
      SYS IDeviceContext.OMSetRenderTargets%, DeviceContext%, 1, ^BackBuffer%, 0

      REM Set the viewport
      DIM vp{} = D3D11_VIEWPORT{}
      vp.Width%    = FNf(SCREENWIDTH)
      vp.Height%   = FNf(SCREENHEIGHT)
      vp.TopLeftX% = 0
      vp.TopLeftY% = 0
      SYS IDeviceContext.RSSetViewports%, DeviceContext%, 1, vp{}

      ENDPROC

      REM ****************************************************************
      REM
      REM Closes DirextX11 and releases all the Objects created
      REM
      REM ****************************************************************
      DEF PROC_Close_D3D11(D%)
      PRINT'
      REM switch to windowed mode
      SwapChain% += 0
      IF SwapChain% THEN
        SYS ISwapChain.SetFullscreenState%, SwapChain%, 0, 0
      ENDIF

      REM Release Roger!
      REM Release all our objects
      IF FN_Helper_Release(VertexShader%)  = 0 IF V% PRINT"VertexShader released."
      IF FN_Helper_Release(PixelShader%)   = 0 IF V% PRINT"PixelShader released."
      IF FN_Helper_Release(BackBuffer%)    = 0 IF V% PRINT"BackBuffer released."
      IF FN_Helper_Release(SwapChain%)     = 0 IF V% PRINT"Swapchain released."
      IF FN_Helper_Release(Device%)        = 0 IF V% PRINT"Device released."
      IF FN_Helper_Release(DeviceContext%) = 0 IF V% PRINT"DeviceContext released."

      REM Release our dlls
      IF FN_DLL_FreeDLL(D3D11DLL%) IF V% THEN PRINT"D3D11.DLL Freed."
      IF FN_DLL_FreeDLL(D3DX11DLL%) IF V% THEN PRINT"D3DX11.DLL Freed."
      ENDPROC

      DEF FN_Helper_Release(RETURN O%)
      LOCAL R%
      O% += 0 : IF O% THEN SYS !(!O%+8), O% TO R%
      =R%

      REM ****************************************************************
      REM
      REM DirextX11 Error handling
      REM
      REM ****************************************************************
      DEF PROC_D3DERR(E%)
      D3DERR_INVALIDCALL           =          FN_MAKE_D3DHRESULT(2156)
      D3DERR_WASSTILLDRAWING       =          FN_MAKE_D3DHRESULT(540)

      ENDPROC

      DEF FN_MAKE_D3DHRESULT(C%)
      =FN_MAKE_HRESULT(1, &876, C%)

      DEF FN_MAKE_D3D10_HRESULT(C%)
      =FN_MAKE_HRESULT(1, &879, C%)

      DEF FN_MAKE_D3D11_HRESULT(C%)
      =FN_MAKE_HRESULT(1, &87C, C%)

      DEF FN_MAKE_HRESULT(S%, F%, C%)
      =(S%<<31) OR (F%<<16) OR C%