помогите понять смысл кода.

← →
@!!ex © (2007-12-25 09:27) [0]

Прислали мне наднях демку, в одном месте используется вот такая процедура:
procedure VectorRotateX(const v: TVector; a: single; out FinishVector:TVector); var ty: single; begin ty:=v.Y; FinishVector.Y:=v.Y * Cos(a) - (v.Z * Sin(a)); FinishVector.Z:= ty * Sin(a) + (v.Z * Cos(a)); FinishVector:=v end;

Разве в результате работы вектор будет повернут???

← →
Сергей М. © (2007-12-25 09:31) [1]

Вращение исходного 3D-вектора v относительно оси X на угол a с записью результирующего вектора в FinishVector.

← →
Сергей М. © (2007-12-25 09:34) [2]

> Разве в результате работы вектор будет повернут?

Нет конечно. Ошибка в предпосл.строчке кода очевидна.

← →
@!!ex © (2007-12-25 09:34) [3]

> [1] Сергей М. © (25.12.07 09:31)

FinishVector:=v;
Разве оно все вычисления не затрет??

← →
@!!ex © (2007-12-25 09:35) [4]

> [2] Сергей М. © (25.12.07 09:34)

Я просто никогда не работал с out, поэтому и спросил, вдруг там какая то особенная логика...

← →
Сергей М. © (2007-12-25 09:36) [5]

> FinishVector:=v

FinishVector.X := v.X

> никогда не работал с out

out здесь ни причем.

помогите понять смысл кода. Найти похожие ветки