06/06/09 14:27:42 34TATwQn
>>345
ごめんなさい落ち着いたらできました。
type
TSXVertexTest = record
case Integer of
0: (
x, y, z: Single; // 頂点
diffuse: D3DCOLOR; // ディフューズ
tu, tv: Single; // テクスチャ座標
);
1: (
pos: D3DVector;
);
end;
function SXVertexTest(x, y, z: Single): TSXVertexTest;
begin
Result.x := x;
Result.y := y;
Result.z := z;
Result.diffuse := $ff00ffff;
end;