Построение ортогональной проекции модели трехмерного объекта

@Marina232 · Регистрация: 13.10.2015

Author24 — интернет-сервис помощи студентам

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

Delphi

1
2
3

var
w: array [1..8] of T3DPoint; //мировые (world) координаты вершин
v: array [1..8] of TPoint; //видовые (view) координаты вершин

Для примера зададим координаты вершин куба с центром в начале координат:

Delphi

w[1].x := -50;
 w[1].y := -50;
 w[1].z := -50;
 w[2].x := 50;
 w[2].y := -50;
 w[2].z := -50;
 w[3].x := 50;
 w[3].y := 50;
 w[3].z := -50;
 w[4].x := -50;
 w[4].y := 50;
 w[4].z := -50;
 w[5].x := -50;
 w[5].y := -50;
 w[5].z := 50;
 w[6].x := 50;
 w[6].y := -50;
 w[6].z := 50;
 w[7].x := 50;
 w[7].y := 50;
 w[7].z := 50;
 w[8].x := -50;
 w[8].y := 50;
 w[8].z := 50;

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

Delphi

procedure ViewTransformation;
for i := 1 to 8 Do
begin
v[i].x := Round(w[i].x*(-sin(teta)) + w[i].y*(cos(teta)))+Form1.ClientWidth div 2;
v[i].y := Round(
w[i].x*(-cos(phi) * cos(teta)) - w[i].y*( cos(phi) * sin(teta)) +
w[i].z*(sin(phi))) + Form1.ClientHeight div 2;
end;

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

Delphi

procedure DrawCube;
Line(v[1],v[2]);
Line(v[2],v[3]);
Line(v[3],v[4]);
Line(v[4],v[1]);
Line(v[5],v[6]);
Line(v[6],v[7]);
Line(v[7],v[8]);
Line(v[8],v[5]);
Line(v[1],v[5]);
Line(v[2],v[6]);
Line(v[3],v[7]);
Line(v[4],v[8]);

И пробовала воспроизвести этот пример, но ничего не выходит. Не понятно где прописывается T3DPoint?

Подскажите хотя бы на словах как мне это все организовать. Пожалуйста!

@Marina232 · 16.10.2015, 14:46 **[ТС]**

qwertehok, Спасибо сейчас попробую.

@Puporev · 16.10.2015, 15:14

На примере программы с кубом добавьте в

Delphi

1 2	procedure TForm1.FormCreate(Sender: TObject); keypreview:=true;//разрешим форме реагировать на нажатие клавиш

и процедуру

Delphi

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
case key of//клавиши стрелка влево и вправо
VK_Left:teta:=teta+pi/10; //поворот против часовой стрелки
VK_Right:teta:=teta-pi/10; //по часовой стрелке
end;
ViewTransformation;
Repaint
end;

Добавлено через 2 минуты
В задании к лабе 2 речь идет о вращении, можете еще добавить стрелку вверх и вниз, там менять phi

Добавлено через 2 минуты

Delphi

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
case key of//клавиши стрелка влево и вправо
VK_Left:teta:=teta+pi/10; //поворот против часовой стрелки
VK_Right:teta:=teta-pi/10; //по часовой стрелке
VK_Up:phi:=phi-pi/10;
VK_Down:phi:=phi+pi/10;
end;
ViewTransformation;
Repaint
end;

@Marina232 · 16.10.2015, 15:25 **[ТС]**

Puporev, Спасибо!!! А вот такой вопросик, а этот объект можно залить каким-нибудь цветом (это я знаю как делать просто спросить)?

@Puporev · 16.10.2015, 16:35

Чтобы залить нужно каждую грань описать как динамический массив точек и рисовать процедурой polygon, а не линиями.

Добавлено через 43 минуты
Только там нужно определть видима грань или нет, сначала рисуют невидимые, потом видимые, короче морока.

@Marina232 0 / 0 / 0 Регистрация: 13.10.2015 Сообщений: 44
	16.10.2015, 14:46 [ТС]	21
	qwertehok, Спасибо сейчас попробую. 0

@Marina232 0 / 0 / 0 Регистрация: 13.10.2015 Сообщений: 44
	16.10.2015, 15:25 [ТС]	23
	Puporev, Спасибо!!! А вот такой вопросик, а этот объект можно залить каким-нибудь цветом (это я знаю как делать просто спросить)? 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	16.10.2015, 16:35	24
	Чтобы залить нужно каждую грань описать как динамический массив точек и рисовать процедурой polygon, а не линиями. Добавлено через 43 минуты Только там нужно определть видима грань или нет, сначала рисуют невидимые, потом видимые, короче морока. 0

Построение ортогональной проекции модели трехмерного объекта

Решение