[Turn off line numbering]
1: arg axis, angle;
2: var s, c, m, tens;
3:
4: s = sin(angle);
5: c = cos(angle);
6: if (type(axis) == 'list) {
7: axis = .scale(1.0 / .distance(axis, origin_3d), axis);
8: tens = .tensor(axis, axis);
9: m = .matrix_add(tens, .matrix_add(.matrix_scale(s, .skew(axis)), .matrix_scale(c, .matrix_sub(.ident_mat(3), tens))));
10: return [[@m[1], 0.0], [@m[2], 0.0], [@m[3], 0.0], [0.0, 0.0, 0.0, 1.0]];
11: } else {
12: switch (axis) {
13: case 'z:
14: return [[c, s, 0.0, 0.0], [-s, c, 0.0, 0.0], [0.0, 0.0, 1.0, 0.0], [0.0, 0.0, 0.0, 1.0]];
15: case 'y:
16: return [[c, 0.0, -s, 0.0], [0.0, 1.0, 0.0, 0.0], [s, 0.0, c, 0.0], [0.0, 0.0, 0.0, 1.0]];
17: case 'x:
18: return [[1.0, 0.0, 0.0, 0.0], [0.0, c, s, 0.0], [0.0, -s, c, 0.0], [0.0, 0.0, 0.0, 1.0]];
19: }
20: }
// Miroslav Silovic
// Created 19-Oct-1996 as a part of ColdCore, see: @help Credit