Координаты текстур куба. DirectX.

[Crivel]

Создаю куб с помощью D3DXCreateBox. Мне требуется наложить текстуру на него. Но для этого надо добавить в него координаты текстур. Как для сферы рассчитать я знаю:

 Sphere.CloneMeshFVF(D3DXMESH_SYSTEMMEM, FVF_VERTEX,
    FD3DDevice, TempMesh);
 TempMesh.LockVertexBuffer(0, pointer(pBuf));
 nVertex := TempMesh.GetNumVertices;
 for n := 0 to nVertex - 1 do
    begin
      /
      pBuf^.tu := pBuf^.normal.x / 2 + 0.5; // вот эти две строки и надо как-нибудь поменять...
      pBuf^.tv := pBuf^.normal.y / 2 + 0.5;
      inc(pBuf);
end;

TempMesh.UnlockVertexBuffer;
Sphere := TempMesh;

Но вот с кубом у меня затруднение. Куб и сфера создаются с помощью D3DXCreateBox и D3DXCreateSphere. Искал в гугле - нечего путного не нашёл.

Заранее благодарен.

[Crivel]

Отвечаю сам себе:

Cube.CloneMeshFVF(D3DXMESH_SYSTEMMEM, FVF_VERTEX,
    FD3DDevice, TempMesh);
 TempMesh.LockVertexBuffer(0, pointer(pBuf));
 nVertex := TempMesh.GetNumVertices;
      pBuf^.tu := 0;      pBuf^.tv := 0;
      inc(pBuf);
      pBuf^.tu := 1;      pBuf^.tv := 0;
      inc(pBuf);
      pBuf^.tu := 1;      pBuf^.tv := 1;
      inc(pBuf);
      pBuf^.tu := 0;      pBuf^.tv := 1;
      inc(pBuf);

      pBuf^.tu := 0;      pBuf^.tv := 0;
      inc(pBuf);
      pBuf^.tu := 1;      pBuf^.tv := 0;
      inc(pBuf);
      pBuf^.tu := 1;      pBuf^.tv := 1;
      inc(pBuf);
      pBuf^.tu := 0;      pBuf^.tv := 1;
      inc(pBuf);

      pBuf^.tu := 0;      pBuf^.tv := 0;
      inc(pBuf);
      pBuf^.tu := 1;      pBuf^.tv := 0;
      inc(pBuf);
      pBuf^.tu := 1;      pBuf^.tv := 1;
      inc(pBuf);
      pBuf^.tu := 0;      pBuf^.tv := 1;
      inc(pBuf);

      pBuf^.tu := 0;      pBuf^.tv := 0;
      inc(pBuf);
      pBuf^.tu := 1;      pBuf^.tv := 0;
      inc(pBuf);
      pBuf^.tu := 1;      pBuf^.tv := 1;
      inc(pBuf);
      pBuf^.tu := 0;      pBuf^.tv := 1;
      inc(pBuf);

      pBuf^.tu := 0;      pBuf^.tv := 0;
      inc(pBuf);
      pBuf^.tu := 1;      pBuf^.tv := 0;
      inc(pBuf);
      pBuf^.tu := 1;      pBuf^.tv := 1;
      inc(pBuf);
      pBuf^.tu := 0;      pBuf^.tv := 1;
      inc(pBuf);

      pBuf^.tu := 0;      pBuf^.tv := 0;
      inc(pBuf);
      pBuf^.tu := 1;      pBuf^.tv := 0;
      inc(pBuf);
      pBuf^.tu := 1;      pBuf^.tv := 1;
      inc(pBuf);
      pBuf^.tu := 0;      pBuf^.tv := 1;
      inc(pBuf);

TempMesh.UnlockVertexBuffer;
Cube := TempMesh;