Создание трехмерной модели

Для построения модели трехмерного объекта (например, куба) необходимо задать координаты его вершин в мировой системе координат, а затем получить из них видовые (и экранные для ортогональной проекции) координаты. Это можно сделать, описав координаты в массивах типа T3DPoint (запись, содержащая три координаты точки) и TPoint (запись, содержащая две координаты точки).

var //мировые (world) координаты вершин w: array [1.8] of T3DPoint; //видовые (view) координаты вершин v: array [1.8] of TPoint; Для примера зададим координаты вершин куба с центром в начале координат: w[1]. x := -50; w[5]. x := -50; w[1]. y := -50; w[5]. y := -50; w[1]. z := -50; w[5]. z := 50; w[2]. x := 50; w[6]. x := 50; w[2]. y := -50; w[6]. y := -50; w[2]. z := -50; w[6]. z := 50; w[3]. x := 50; w[7]. x := 50; w[3]. y := 50; w[7]. y := 50; w[3]. z := -50; w[7]. z := 50; w[4]. x := -50; w[8]. x := -50; w[4]. y := 50; w[8]. y := 50; w[4]. z := -50; w[8]. z := 50; Далее необходимо перевести координаты в видовую систему координат, воспользовавшись матрицей V. Подобная процедура может выглядеть следующим образом: procedure ViewTransformation; begin 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; end; Процедура отображения граней куба состоит в соединении между собой соответствующих вершин ребрами. Строить куб необходимо по видовым координатам, которые определены в процедуре ViewTransformation. Например:

procedure DrawCube; begin Line (v[1], v[2]); Line (v[2], v[3]); Line (v[4], v[1]); Line (v[3], v[4]); 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]); end; На этом этапе можно вызвать процедуры ViewTransformation и DrawCube, например, из метода OnCreate, чтобы нарисовать куб. При этом необходимо проинициализировать начальные значения углов phi и teta.