DirectX и Delphi 7

program D3DTest;
 
uses
  windows,
  messages,
  Direct3D9,
  D3DX9,
  Classes,
  DXTypes,
  dxfunc;
 
type
 sVertex=record
  x, y, z:Single;
  color:DWORD;
 end;
 
var
 wc   : TWndClassEx;
 pWnd : HWND;
 pMsg : TMsg;
 
 pD3D: IDirect3D9=nil;
 pD3DDevice: IDirect3DDevice9=nil;
 iWidth: integer=800;
 iHeight: Integer=600;
 ViewAngle:Real=0;
 dwNumMaterials: DWORD;
 pMesh: ID3DXMesh;
 pMeshTextures:PAIDirect3DTexture9;
 pMeshMaterials:PAD3DMATERIAL9;
 View:D3DMATRIX;
 light:D3DLIGHT9;
 
procedure Init;
var
 b:boolean;
begin
 b:=false;
 if (DX3DInit(pD3D, pD3DDevice, pWnd, 800, 600, b)<>true) then
  begin
     MessageBox(pWnd, 'Ошибка инициализации DirectX?', 'Error', MB_OK);
     exit;
  end;
end;
 
procedure DrawScene();
var
 World:D3DMATRIX;
 i:Integer;
begin
  // выставляем матрицу для объекта в мировых координатах
 ViewAngle:=ViewAngle+0.03;
 D3DXMatrixIdentity(World);
 
 World._11:=cos(ViewAngle)*cos(ViewAngle);
 World._12:=cos(ViewAngle)*sin(ViewAngle);
 World._13:=sin(ViewAngle);
 World._21:=-sin(ViewAngle);
 World._22:=cos(ViewAngle);
 World._31:=-sin(ViewAngle)*cos(ViewAngle);
 World._32:=-sin(ViewAngle)*sin(ViewAngle);
 World._33:=cos(ViewAngle);
 
 pD3DDevice.SetTransform(D3DTS_WORLD, World);
 
 pD3DDevice.SetRenderState(D3DRS_LIGHTING, DWORD(TRUE));
 
 for i:=0 to dwNumMaterials-1 do
    begin
     pD3DDevice.SetMaterial(pMeshMaterials[i]);
 
   if (pMeshTextures[i]<>nil) then
        pD3DDevice.SetTexture(0, pMeshTextures[i]);
 
   pMesh.DrawSubset(i);
    end;
end;
 
function WindowProc(wnd: HWND; Msg: Integer; wParam: wParam; lParam: lParam): Lresult; stdcall;
begin
 Result:=0;
 
 case msg of
  WM_CREATE:
   begin
   end;
  WM_PAINT:
   begin
    pD3DDevice.Clear(1, nil, D3DCLEAR_TARGET,
       D3DCOLOR_XRGB(255,255,255), 1.0, 0);
 
    pD3DDevice.BeginScene();
    DrawScene();
    pD3DDevice.EndScene();
 
    pD3DDevice.Present(nil, nil, 0, nil);
   end;
  WM_DESTROY:
   begin
        pD3DDevice := nil;
        pD3D := nil;
    PostQuitMessage(0);
    exit;
   end;
  wm_keydown:
   begin
    pD3DDevice := nil;
        pD3D := nil;
    PostQuitMessage(0);
    exit;
   end;
 else
  Result:=DefWindowProc(wnd,msg,wparam,lparam);
 end;
end;
 
begin
 wc.cbSize       := sizeof(wc);
 wc.lpfnWndProc  := @WindowProc;
 wc.cbClsExtra   := 0;
 wc.cbWndExtra   := 0;
 wc.hInstance    := HInstance;
 wc.hCursor      := LoadCursor(0, IDC_ARROW);
 wc.hbrBackground:= COLOR_BTNFACE+1;
 wc.lpszMenuName := nil;
 wc.lpszClassName:= 'delphi_directdraw';
 RegisterClassEx(wc);
 
 pWnd := CreateWindowEx(WS_EX_APPWINDOW, 'delphi_directdraw', 'Delphi DirectX Demo',
    WS_OVERLAPPED or WS_SYSMENU, 0, 0, 250, 130, 0, 0,
    Hinstance, nil);
 
 Init;
 
 dwNumMaterials := LoadMesh('nlo.x', pD3DDevice,
               pMesh, pMeshTextures,
               '', pMeshMaterials
               );
 
 D3DXMatrixIdentity(View);
 View._43:=300;
 pD3DDevice.SetTransform(D3DTS_VIEW, View);
 
 ZeroMemory(@light, sizeof(D3DLIGHT9));
 light._Type := D3DLIGHT_DIRECTIONAL;
 light.Direction := D3DXVECTOR3(0.5, 0, 0.5);
 light.Diffuse.r :=1;
 light.Diffuse.g :=1;
 light.Diffuse.b :=1;
 light.Diffuse.a :=1;
 pD3DDevice.SetLight(0, light);
 pD3DDevice.LightEnable(0, true);
 
 ShowWindow(pWnd, SW_SHOW);
 while GetMessage(pMsg, 0, 0, 0) do
  begin
   TranslateMessage(pMsg);
   DispatchMessage(pMsg);
  end;
end.

pD3DDevice.SetRenderState(D3DRS_LIGHTING, DWORD(TRUE));

pD3DDevice.SetRenderState(D3DRS_LIGHTING, DWORD(TRUE));    // turn off the 3D lighting
pD3DDevice.SetRenderState(D3DRS_CULLMODE, D3DCULL_NONE);    // both sides of the triangles
pD3DDevice.SetRenderState(D3DRS_ZENABLE, DWORD(TRUE));    // turn on the z-buffer

pD3DDevice.Clear(0,nil,D3DCLEAR_TARGET or D3DCLEAR_ZBUFFER,D3DCOLOR_XRGB(0,0,0),1.0,0);

d3dpp.EnableAutoDepthStencil = TRUE;    // automatically run the z-buffer for us
d3dpp.AutoDepthStencilFormat = D3DFMT_D16;    // 16-bit pixel format for the z-buffer