Раскрасить куб. DirectX and Delphi.

[Crivel]

Создаю куб с помощью функции D3DXCreateBox. Собственно вопрос - как раскрасить каждую сторону куба разным цветом.

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

[Selestis]

Если без освещения, то, наверное, стандартный кубик не получится (простыми средствами). Создавайте набор вершин с цветовой составляющей вручную. Примеры вроде есть в сети. Это не сложно. Ещё вариант: включить освещение. Так ещё проще, но не уверен, это ли вам нужно.

[Ulex]

Предлагаю такой вариант.
Правда я с указателями работать на Делфи не умею, поэтому сами чё нить придумайте.
Да и картинка какая то странная получилась.
Я ожидал, что будет три грани красного цвета и одна синего.
А получилась чепушень какая то.
И ещё вопрос, с temp-ым Мешем делать чё-нить надо.
Я его попытался Releas-нуть, но после этого программа забажила.

function as3d_CreateBox(Width, Height, Depth : Single; Name : string) : HRESULT;
var
  tempCube: ID3DXMesh;
  TempPoint: Pointer;
begin
 result := D3DXCreateBox(FD3DDevice, Width, Height, Depth, tempCube, 0);
 Inc(nCubes);
 tempCube.CloneMeshFVF(D3DXMESH_MANAGED, D3DFVF_XYZ or D3DFVF_NORMAL or D3DFVF_DIFFUSE, FD3DDevice, Cubes[nCubes]);
 NameCubes[nCubes] := Name;
 Cubes[nCubes].LockVertexBuffer(D3DLOCK_DISCARD, TempPoint);
 asm
 mov eax, TempPoint
 mov ecx, 18
 add eax, 4*6
@M1:
 mov dword ptr [eax], 00ff0000h
 add eax, 4+6*4
 loop @M1
 mov ecx, 6
@M2:
 mov dword ptr [eax], 000000ffh
 add eax, 4+6*4
 loop @M2
 end;
 result := Cubes[nCubes].UnlockVertexBuffer
end;