Просмотр кода страницы Функции аффинных преобразований

===Otdrot===
<code>Int:'''Otdrot'''(double ARRAY ''<nowiki>&lt;Matr[16]&gt;</nowiki>''| double ARRAY ''<nowiki>&lt;Matr[4,4]&gt;</nowiki>'', INT ''&lt;Naxes&gt;'', DOUBLE ''&lt;Alpha&gt;'')</code>

Функция добавляет преобразование поворота в матрицу <code>''&lt;Matr&gt;''</code>. При этом предыдущее значение матрицы'' <code>&lt;Matr&gt;''</code> умножается на преобразование поворота. То есть, в матрице <code>''&lt;Matr&gt;</code>'' накапливаются преобразования, последовательно заданные функциями аффинных преобразований.'' ''Входные параметры: 

:<code>''&lt;Naxes&gt;''</code> — номер оси поворота ('''1-X, 2-Y, 3-Z'''). Берется по модулю.
:<code>''&lt;Alpha&gt;''</code> — угол поворота. Если <code>''&lt;Naxes&gt;''</code> меньше нуля, угол задаётся в радианах, иначе — в градусах.
:<code>''&lt;Matr&gt;''</code> — исходная матрица

Результат заносится в матрицу <code>''&lt;Matr&gt;''</code>. Функция возвращает:
:'''1''' — успешно
:'''0''' — ошибка
:'''2''' — неверный номер оси