Графика DirectX в Delphi, Краснов Михаил

Графика DirectX в Delphi

на обложку

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

Шрифт:

Kif FAILED (hRet) then begin

Result := hRet;

Exit;

end;

Размер мазков регулируется. Можно также получить новый набор точек, чтобы подобрать самую эффектную картинку:

procedure TfrmD3D.FormKeyDown(Sender: TObject; var Key: Word;

Shift: TShiftState);

var

i : Integer;

begin

if Key = VK_ESCAPE then Close else

if Key = VK_INSERT then Radius := Radius + 0.005 else

if Key = VKJ3ELETE then Radius := Radius - 0.005 else

if Key = VKJ3PACE then begin //

Заново генерируем набор точек

for i := 0 to SIZE - 1 do begin

Points[i].X := random * 2 - 1.0;

Points[i].Y := random * 2 - 1.0;

end;

Надо приложить совсем немного усилий, и вы можете попробовать себя в качестве художника. Достаточно запустить откомпилированный модуль из каталога Ex11. Работа его похожа на предыдущий, но точки массива теперь генерируются не в пределах всего окна, а в области расположения курсора, при нажатой кнопке мыши:

procedure TfrmD3D.FormMouseMove(Sender: TObject; Shift: TShiftState;

X, Y: Integer);

var

i : Integer;

begin

if Down then begin // Нажата ли кнопка мыши

// Сравниваем с предыдущим расположением курсора

if (X о LastX) and (Y <> LastY) then begin

for i := 1 to 20 do begin // Берется 20 точек облачка

// вокруг курсора

NumPoints := (NumPoints + 1) mod SIZE;

// Масштабируем точки для системы координат D3DFVF_XYZ

Points[NumPoints].X := ((X + random (7) - 3)/ ClientWidth) * 2 - 1.0;

Points[NumPoints].Y := ((ClientHeight -

(Y + random (7) - 3)) / ClientHeight) * 2 - 1.0;

LastX := X;

LastY := Y;

end;

Для каждого мазка строится набор из 21 треугольника. Как следствие, имеем низкое значение FPS, уменьшающееся с каждым мазком. При маленьком размере кругов подобный подход неэффективен, и нам стоит поискать альтернативное решение такой задачи.

Альфа-составляющая текстуры

Формат текстуры D3DFMT_A8R8G8B8 позволяет для каждого пиксела образа заавать индивидуальное значение альфа-составляющей, чем можно воспольоваться для получения массы интересных эффектов. Так, проект каталога Ex12 решает задачу, сходную задаче предыдущего примера: курсор при своем вижении по поверхности окна оставляет след постепенно проступающего браза (рис. 8.9).

Но теперь образ проступает точка за точкой. Мы не используем множество римитивов, и работает пример гораздо быстрее предыдущего.

ри

заполнении прямоугольника текстуры значение альфа-составляющей ш каждого пиксела задается явно, нулевым значением:

PDWORD (DWORD(d3dlr.pBits) + У * dwDstPitch + X * 4)^ :=

D3DCOLOR_ARGB(0, R, G, В);

То есть все точки образа текстуры первоначально задаются совершенно прозрачными.

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

with FDSDDevice do begin

SetTexture(0, FD3Texture); // Устанавливаем текстуру

// Операции с цветом пикселов текстуры

SetTextureStageStatefO, D3DTSS__COLOROP, D3DTAJTEXTURE);

// Операции с альфа-компонентом пикселов текстуры

SetTextureStageStatefO, D3DTSS_ALPHAOP, D3DTA_TEXTURE);

// Разрешаем работу с альфа-составляющей

SetRenderState(D3DRS_ALPHABLENDENABLE, DWORD (True));

// Параметры альфа-смешения

SetRenderState(D3DRS_SRCBLEND, D3DBLEND_SRCALPHA);

SetRenderState(D3DRS_DESTBLEND, D3DBLEND_INVSRCALPHA);

end;