....
var
mb: IMeshBuffer; // assigned meshbuffer
mb_arr: Pointer;
v: vector3df;
....
mb_arr := mb.getVertices;
case mb.getVertexType of
EVT_STANDARD:
v := PArrS3DVertex(mb_arr)[ index ].Pos;
EVT_2TCOORDS:
v := PArrS3DVertex2TCoords(mb_arr)[ index ].Vertex.Pos;
end;
EVT_TANGENTS:
v := PArrS3DVertexTangents(mb_arr)[ index ].Vertex.Pos;
end;
....
william wrote:Nice to see the first Gaming Engineer I felt at lease satisfied with the demo so far. Is that possible add my email william_tseng@yahoo.com, and keep me posted, and I will be willing to be part of the member.
For recent release of 4.0,
I tried to complies under Delphi 7 Enterprise, but there has some code error there, so the header cannot install into packages.
If someone figure this out would be appreciated.
Complier Stops here:
... procedure getAs4Values(out vArray: dVector);
// operators
{$IFNDEF FPC}
class operator Positive(a: vector3df): vector3df;
class operator Negative(a: vector3df): vector3df;....
----------saids procedure/function expected.
FreeAndNil(VParent.FVParent.FIReferenceCounted);
System.Dispose(VParent.FVParent);
System.Dispose(VParent);Return to Project Announcements
Users browsing this forum: No registered users and 1 guest