06/06/09 13:39:44 34TATwQn
begin
Vertices[0] := SXVertexTest(-0.5, 0.5, 0);
Vertices[1] := SXVertexTest( 0.5, 0.5, 0);
Vertices[2] := SXVertexTest(-0.5, -0.5, 0);
Mesh := TSXMesh.Create(DGCarad1);
Mesh.SetupBuffers(
3, 3, D3DFVF_TLVERTEX, SizeOf(D3DLVERTEX), D3DPOOL_MANAGED);
Mesh.VBuf.Lock(0, 0, D3DLOCK_DISCARD);
Mesh.VBuf.SetVertex(0, Vertices[0]);
Mesh.VBuf.SetVertex(1, Vertices[1]);
Mesh.VBuf.SetVertex(2, Vertices[2]);
Mesh.VBuf.Unlock;
Mesh.IBuf.Lock(0, 0, D3DLOCK_NOSYSLOCK);
Mesh.IBuf.Indices[0] := 0;
Mesh.IBuf.Indices[1] := 1;
Mesh.IBuf.Indices[2] := 2;
Mesh.IBuf.Unlock;
Mesh.UpdateBounds;
end;