Графика DirectX в Delphi

Краснов Михаил

Vertices.Y := Vertices.Y / 3;

Vertices.Z := Vertices.Z / 3;

Vertices.normVector := wrkVec;

Vertices.Color := $00808080;

Inc (Vertices);

Readln (t, Vertices.X);

Readln (t, Vertices.Y);

Readln (t, Vertices.Z) ;

Vertices.X := Vertices.X / 3;

Vertices.Y := Vertices.Y / 3;

Vertices.Z := Vertices.Z / 3;

Vertices.normVector := wrkVec;

Vertices.Color := $00808080;

Inc (Vertices);

end;

CloseFile (t); FD3DVB.Unlock;

Result := FD3DDevice.SetVertexShader(D3DFVF_CUSTOMVERTEX);

end;

После

считывания данных модели поворачиваем ее вокруг собственных осей:

procedure TfrmD3D.FormCreate(Sender: TObject);

var

hRet : HRESULT;

matView, matProj : TD3DMatrix;

matWrkl, matWrk2 : TDSDMatrix;

begin

Randomize; // Ландшафт генерируется каждый раз по-новому

ShowCursor (False); // Устанавливаем полноэкранный режим

hRet := InitD3D;

if Failed (hRet) then ErrorOut ('InitD3D', hRet);

hRet := InitVB;

if Failed (hRet) then ErrorOut ('InitVertex', hRet);

SetupLights;

// Поворачиваем самолет

SetRotateXMatrix(matWrkl, Pi / 2);

SetRotateZMatrix(matWrk2, Pi);

SetTranslateMatrix (matAirplan, 7.0, 2.0, 5.0);

// Первоначальная матрица трансформаций для самолета

matAirplan := MatrixMul (matAirplan, MatrixMul (matWrk2, matWrkl));

GenLand; // Генерируем ландшафт пейзажа

SetViewMatrix(matView, D3DVector(16, 2.5, 5),

D3DVector(0, 0, 5), D3DVector(0, 1, 0));

FD3DDevice.SetTransform(D3DTS_VIEW, matView);

SetProjectionMatrix(matProj, 1, 1, 1, 15);

FD3DDevice.SetTransform(D3DTS_PROJECTION, matProj);

end;

Ландшафт рисуется на основе данных массива, по отдельным квадратикам:

arocedure TfrmDSD.DrawArea(const x, у : Integer);

var

Vertices : ATCustomVertex;

b egin

FD3DVB.Lock(0, 4 * SizeOf(TCustomVertex), PByte(Vertices), 0) ;

Vertices.X := x * Step;

Vertices.Y := Land[x, у - 1].h;

Vertices.Z := (y - 1) * Step;

Vertices.normVector := Land[x, у - 1].VecNormal;

Vertices.Color := Land[x, у - 1].Color;

Inc (Vertices);

Vertices.X := x * Step;

Vertices.Y := Landfx, y].h;

Vertices.Z := у * Step;

Vertices.normVector := Land[x, y].VecNormal;

Vertices.Color := Landfx, y].Color;

Inc (Vertices);

Vertices.X := (x + 1) * Step;

Vertices.Y := Landfx + 1, у - 1].h;

Vertices.Z := (y - 1) * Step;

Vertices.normVector := Land[x + 1,

у - 1].VecNormal;

Vertices.Color := Land[x + 1, у - 1].Color;

Inc (Vertices);

Vertices.X := (x + 1) * Step;

Vertices.Y := Land[x +1, y].h;

Vertices.Z := у * Step;

Vertices.normVector := Land[x + 1, y].VecNormal;

Vertices.Color := Land[x + 1, y].Color;

FD3DVB.Unlock;

FD3DDevice.DrawPrimitive(D3DPT_TRIANGLESTRIP, 0, 2) ;

end;

function TfrmD3D.Render : HRESULT;

var

hRet : HRESULT;

i, j :Integer;

begin

// Экран окрашивается голубоватым цветом

FD3DDevice.Clear(0, nil, D3DCLEARJTARGET or D3DCLEAR_ZBUFFER,

$00000FFF, 1.0, 0);

FD3DDevice.BeginScene; with FD3DDevice do begin

SetRenderState(D3DRS_ZENABLE, D3DZB_TRUE);

// Треугольники ландшафта перечисляются по часовой стрелке

SetRenderState(D3DRS_CULLMODE, D3DCULL_CCW);

// Вершины ландшафта сгенерированы в мировой системе координат

SetTransform(D3DTS_WORLD, IdentityMatrix);

end;

// Выводим квадратики ландшафта

for j := 2 to NumZ - 1 do

for i := 1 to NumX - 5 do DrawArea(i,j);

with FD3DDevice do begin

// Устанавливается матрица трансформаций самолета

SetTransform(D3DTS_WORLD, matAirplan);

// Вершины модели перечисляются против часовой стрелки

SetRenderState(D3DRS_CULLMODE, D3DCULL_CW);

// Данные располагаются, начиная с четвертой вершины

DrawPrimitive(D3DPT_TRIANGLELIST, 4, 20661 div 3);

end;

FD3DDevice.EndScene;

Result := FDSDDevice.Present(nil, nil, 0, nil) ;

end;

После того, как нарисован самолет, текущей трансформацией мировой матрицы остается матрица трансформаций нашей модели, поэтому перед рисованием ландшафта задаем здесь матрицу идентичности.

При каждой перерисовке кадра ландшафт циклически сдвигается, а самолет поворачивается вокруг своей оси на небольшой угол:

procedure MoveLand; // Циклическое движение пейзажа

var

i, j : Integer;

TempLand : array [l..NumX] of LandParam; // Вспомогательный массив begin

// Запомнили строку массива ландшафта

for i := 1 to NuraX do TempLand[i] := Land[i,NumZ];

// Сдвигаем ландшафт

for j := NumZ downto 2 do

for i := 1 to NumX do Land[i,j] := Landfi,j-1]; // Круговое появление последней строки массива

for i := 1 to NumX do Land[i,l] := TempLand[i];