Затенение объекта в Direct3D

[_-Re@l-_]

Наблюдаю весьма любопытный факт при работе с Direct3D в Delphi:



Почему же правый верхний угол немного затенённый?

Вот код.....

Инициализация Direct3D....

Function InitEngine3D(Handle : THandle):HResult;stdcall;
Var
    Params : TD3DPresentParameters;
    Mode   : TD3DDisplayMode;
Begin
      Result:=E_FAIL;
      Engine:=Direct3DCreate9(D3D_SDK_VERSION);
      If Engine = Nil Then Exit;
      Result:=Engine.GetAdapterDisplayMode(D3DADAPTER_DEFAULT,Mode);
      If Failed(Result) Then Exit;
      ZeroMemory(@Params,SizeOf(Params));
      Params.Windowed:=True;
      Params.SwapEffect:=D3DSWAPEFFECT_DISCARD;
      Params.BackBufferFormat:=Mode.Format;
      Params.EnableAutoDepthStencil:=True;
      Params.AutoDepthStencilFormat:=D3DFMT_D16;
      Result:=Engine.CreateDevice(D3DADAPTER_DEFAULT,D3DDEVTYPE_HAL,
      Handle,D3DCREATE_SOFTWARE_VERTEXPROCESSING,@Params,Device);
      EHandle:=Handle;
      Device.SetRenderState(D3DRS_CULLMODE,D3DCULL_NONE);
      Device.SetRenderState(D3DRS_LIGHTING,0);
      Device.SetRenderState(D3DRS_ZENABLE,D3DZB_TRUE);
      SetupCamera;
End;

Установка камеры...(SetupCamera)

Procedure SetupCamera;stdcall;
Var
    ViewMatrix : TD3DMatrix;
    ProjectionMatrix : TD3DMatrix;
    Eye , At , Up : TD3DVector;
Begin
      Eye.x:=0; Eye.y:=0; Eye.z:=-3;
      At.x:=0; At.y:=0; At.z:= 0;
      Up.x:=0;Up.y:=1; Up.z:=0;
      D3DXMatrixLookAtLH(ViewMatrix,Eye,At,Up);
      Device.SetTransform(D3DTS_VIEW,ViewMatrix);
      D3DXMatrixPerspectiveFovLH(ProjectionMatrix,D3DX_PI/4,1,1,100);
      Device.SetTransform(D3DTS_PROJECTION,ProjectionMatrix);
End;

Очистка устройства

Procedure ClearEngine3D;stdcall;
Begin
      If Device = Nil Then Exit;
      Device.Clear(0,nil,D3DCLEAR_TARGET or D3DCLEAR_ZBUFFER,
      D3DCOLOR_XRGB(0,0,0),1,0);
End;

Переключение буферов

Procedure EnginePresent3D;stdcall;
Begin
      Device.Present(nil,nil,0,nil);
End;

Подготовка вершин

Procedure PrepareSAME3D;stdcall;
Var
    pPyr : Pointer;
    Tris : array[0..5] of TSAMEPoint3D;
Begin
      Device.CreateVertexBuffer(SizeOf(Tris),0,SAMEEngine_POINT3D,
      D3DPOOL_DEFAULT,SAMEVertexBuffer,nil);
      Tris[0].x:=-1;
      Tris[0].y:=1;
      Tris[0].z:=0;
      Tris[0].Color:=$00FF00;
      Tris[1].x:=1;
      Tris[1].y:=1;
      Tris[1].z:=0;
      Tris[0].Color:=$00FF00;
      Tris[2].x:=1;
      Tris[2].y:=-1;
      Tris[2].z:=0;
      Tris[2].Color:=$00FF00;
      Tris[3]:=Tris[2];
      Tris[4].x:=-1;
      Tris[4].y:=-1;
      Tris[4].z:=0;
      Tris[4].Color:=$00FF00;
      Tris[5]:=Tris[0];
      SAMEVertexBuffer.Lock(0,SizeOf(Tris),pPyr,0);
      try
          CopyMemory(pPyr,@Tris,SizeOf(Tris));
      finally
          SAMEVertexBuffer.Unlock;
      end;

Рисование

Procedure DrawSAME3D;stdcall;
Begin
      ClearEngine3D;
      Device.BeginScene;
      try
          Device.SetStreamSource(0,SAMEVertexBuffer,0,SizeOf(TSAMEPoint3D));
          Device.SetFVF(SAMEEngine_POINT3D);
          Device.DrawPrimitive(D3DPT_TRIANGLELIST,0,2);
      finally
          Device.EndScene;
      end;
      EnginePresent3D;
End;

Вот константы, типы

const
SAMEEngine_POINT3D = D3DFVF_XYZ    or D3DFVF_DIFFUSE;

type
      TSAMEPoint3D = packed record
        x , y , z : Single;
        Color : DWord;
end;

[Ulex]

Вот тут опечатка:

Tris[0].x:=-1;
Tris[0].y:=1;
Tris[0].z:=0;
Tris[0].Color:=$00FF00;
Tris[1].x:=1;
Tris[1].y:=1;
Tris[1].z:=0;
Tris[0].Color:=$00FF00;

[_-Re@l-_]

Да, спасибо, Ulex, буквально за минуту до вашего сообщения обнаружил
Чёрт, ну надо же такие ошибки допускать Из-за этой ошибки потерял 30 минут.