1 files changed, 68 insertions, 0 deletions
diff --git a/Game/Code/lib/DSPack/DirectX9/DXTypes.pas b/Game/Code/lib/DSPack/DirectX9/DXTypes.pas
new file mode 100644
index 00000000..03d9a33d
--- /dev/null
+++ b/Game/Code/lib/DSPack/DirectX9/DXTypes.pas
@@ -0,0 +1,68 @@
+{******************************************************************************}
+{*                                                                            *}
+{*  Copyright (C) Microsoft Corporation.  All Rights Reserved.                *}
+{*                                                                            *}
+{*  File:       extracted from various DirectX SDK include files              *}
+{*                                                                            *}
+{*  Content:    DirectX 9.0 headers common types                              *}
+{*                                                                            *}
+{*  Direct3DX 9.0 Delphi adaptation by Alexey Barkovoy                        *}
+{*  E-Mail: clootie@reactor.ru                                                *}
+{*                                                                            *}
+{*  Modified: 26-Jan-2003                                                     *}
+{*                                                                            *}
+{*  Latest version can be downloaded from:                                    *}
+{*     http://clootie.narod.ru/delphi                                         *}
+{*                                                                            *}
+{******************************************************************************)
+{                                                                              }
+{ The contents of this file are subject to the Mozilla Public License Version  }
+{ 1.1 (the "License"); you may not use this file except in compliance with the }
+{ License. You may obtain a copy of the License at http://www.mozilla.org/MPL/ }
+{                                                                              }
+{ Software distributed under the License is distributed on an "AS IS" basis,   }
+{ WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License for }
+{ the specific language governing rights and limitations under the License.    }
+{                                                                              }
+{ The Original Code is DXTypes.pas.                                            }
+{                                                                              }
+{******************************************************************************}
+unit DXTypes;
+
+interface
+
+uses Windows;
+
+type
+  // TD3DValue is the fundamental Direct3D fractional data type
+  D3DVALUE = Single;
+  TD3DValue = D3DVALUE;
+  PD3DValue = ^TD3DValue;
+  {$NODEFINE D3DVALUE}
+  {$NODEFINE TD3DValue}
+  {$NODEFINE PD3DValue}
+
+  D3DCOLOR = {$IFDEF TYPE_IDENTITY}type {$ENDIF}DWord;
+  TD3DColor = D3DCOLOR;
+  PD3DColor = ^TD3DColor;
+  {$NODEFINE D3DCOLOR}
+  {$NODEFINE TD3DColor}
+  {$NODEFINE PD3DColor}
+
+  _D3DVECTOR = packed record
+    x: Single;
+    y: Single;
+    z: Single;
+  end {_D3DVECTOR};
+  D3DVECTOR = _D3DVECTOR;
+  TD3DVector = _D3DVECTOR;
+  PD3DVector = ^TD3DVector;
+  {$NODEFINE _D3DVECTOR}
+  {$NODEFINE D3DVECTOR}
+  {$NODEFINE TD3DVector}
+  {$NODEFINE PD3DVector}
+
+implementation
+
+end.
+