Помогите пожалуйста решить задачу с вращением объёмного тела! (Турбо Паскаль)

[OCTAGRAM]

Сообщение от Jean-Esther

Решить упрощенную математическую задачу
«Какие координаты точки (x0,y0,z0), если её повернуть на угол \alpha относительно прямой (x1,y1,z1)-(x2,y2,z2).»

Сначала вычислим единичный вектор, направленный вдоль прямой AB: берём C=B-A и делим C на его длину, получаем D.

Далее, назовём точку, которую нужно повернуть, E. С точкой E нужно проделать две операции:
1) F = (E*D)*D.
Это проекция на C
2) G = E - F
Это проекция на плоскость, перпендикулярную C. Вращение трогает именно эту плоскость, проекция вдоль C останется неизменной.

Теперь как повернуть:
3) H = CxG
H — это G, повёрнутый на 90 градусов вокруг C.

Теперь, чтобы получить поворот на alpha, вычисляем:
I = G * cos alpha + H * sin alpha

Наконец, последний штрих, возвращаем на место F:
4) J = I + F

Вот и получился поворот.