Графика DirectX в Delphi

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

end;

// Матрица вида

SetViewMatrix(matView, DSDVector(FromX, FromY, FromZ),

D3DVector(AtX, AtY, AtZ), DSDVector(WorldUpX, WorldUpY, WorldUpZ));

FD3DDevice.SetTransform(D3DTS_VIEW, matView); // Матрица проекций

SetProjectionMatrix(matProj, fFOV, fAspect, fNearPlane, fFarPlane);

FD3DDevice.SetTransform(D3DTS_PROJECTION, matProj);

end;

Поначалу, наверняка, вам будет тяжело разбирать последовательности манипуляций с матрицами при воспроизведении нескольких объектов. Для приобретения

опыта попробуйте решить простейшие задачи, например удлините цилиндры и конусы осей.

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

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

Shift: TShiftState);

begin

if Key = VKJESCAPE then Close else

if Key = VK_SPACE then with Form2 do begin

edtFromX.Text := FloatToStr (FromX);

edtFromY.Text := FloatToStr (FromY);

edtFromZ.Text := FloatToStr (FromZ);

edtAtX.Text := FloatToStr (AtX);

edtAtY.Text := FloatToStr (AtY) ;

edtAtZ.Text := FloatToStr (AtZ);

edtWorldUpX.Text := FloatToStr (WorldUpX);

edtWorldUpY.Text := FloatToStr (WorldUpY);

edtWorldUpZ.Text := FloatToStr (WorldUpZ);

edtFOV.Text := FloatToStr (fFOV);

edtAspect.Text := FloatToStr (fAspect);

edtNearPlane.Text := FloatToStr (fNearPlane);

edtFarPlane.Text := FloatToStr (fFarPlane);

Show;

end;

end;

Первоначально мы видим только две оси: стрелка оси Z закрыта вращающейся моделью. Меняя значения координат вектора "From", мы передвигаем точку обзора - координаты той точки в пространстве, где находится глаз наблюдателя. Вектор "At" определяет точку, находящуюся в середине сцены. Если здесь задавать отличные друг от друга значения, то наша композиция будет перемещаться по плоскости экрана, т. е. этот вектор соответствует направлению взгляда наблюдателя. Вектор "WorldUp" указывает направление и величину поворота головы. Если менять значения его составляющих, оси нашей сцены начнут "меняться местами".

Значение FOV задает величину производимого увеличения в радианах. Чем меньше это число, тем крупнее выглядит наша картинка. Обратите внимание, что сами объекты при этом не перемещаются, мы как будто просто вращаем колесико настройки бинокля. Значение величины Aspect определяет степень сжатия картинки по горизонтали: чем больше это число, тем сильнее растягивается изображение. Обычно здесь передается отношение ширины окна к его высоте.

Расстояния до передней и задней плоскостей отсечения задают видимую область пространства. Расстояния отмеряются от глаза наблюдателя. Все точки, выходящие за пределы этой области, не воспроизводятся. Из соображений оптимизации плоскости сечения располагаются максимально близко друг к другу, чтобы сократить время вычислений. Обратите внимание, это очень важно: нельзя устанавливать нулевым значение расстояния до передней плоскости отсечения. Такое значение равносильно отказу от использования буфера глубины.

Надеюсь, неспешная

работа с этим примером позволит вам хорошо разобраться с матрицами, определяющими вид картинки.

Подготовка моделей

Конусы и цилиндры, сфера и правильные многогранники - все подобные геометрические фигуры легко описываются и могут украсить вашу программу. Пример - проект каталога Ех04, в котором рисуется икосаэдр (рис. 9.6).

Этот многогранник описан двадцатью независимыми треугольниками. Координаты вершин и нормали я предварительно вычислил и использую в программе конкретные значения.

Знаний, которые мы уже получили, достаточно, чтобы создать более-менее интересные построения. Пример - проект каталога Ех05, где рисуется простая модель человечка. Используются две геометрические формы: цилиндр и икосаэдр. С помощью клавиш перемещения курсора конечностями человечка можно управлять, заставляя его поднимать и опускать руки и ноги, но нельзя заставить поднять обе ноги одновременно (рис. 9.7).

Для построения ног применяются цилиндры единичной длины, руки строятся цилиндрами длиной 0.75 единиц. Движения конечностей осуществляются плавно:

const

INCR = 0.05; // Приращение для углов, задает темп вращения цилиндров

var

Down : BOOL = False; // Флаг, указывающий, нажата ли кнопка мыши

оХ : Integer; // Используются для навигации в пространстве

оУ : Integer;

Angle : Single = 0;

sHeight : Single = 0;

// Левая/правая стороны - с точки обзора зрителя

R_hand_up_angle, // Текущий угол поворота верхней части правой руки

R_hand_down_angle, // Текущий угол поворота нижней части правой руки

L_hand_up_angle, // Углы для частей левой руки

L_hand_down_angle,

R_foot_up_angle, // Углы для частей правой ноги

R_foot_down_angle,

L_foot_up_angle, // Углы поворотов левой ноги

L_foot_down_angle : Single;

R_hand_move, // Флаги перемещений конечностей

L_hand_move,

R_foot_move,

L_foot_move : BOOL;

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

procedure TfrmD3D.DrawScene;

var

matRotateX, matRotateZ : TDSDMatrix;

matScale, matTranslate : TD3DMatrix;

matWrk : TD3DMatrix; // Вспомогательная матрица текущей трансформации