Углы поворота [Delphi, Windows]
Страницы:
<
1
2
>
alpha5 © (2006-10-07 15:34:00)
Привет всем! У меня такая проблема. Я программирую, используя
средства OpenGL на Delphi 7.
У меня есть сфера радиусом 1. На ней есть какая-то
произвольная точка (x; y; z). И вот эту вот произвольную точку мне
надо повернуть лицом к наблюдателю, т. е. в координату (0; 0; 1).
Т. е. здесь получается, что надо найти угол поворота по OX, по OY и
по OZ. Пробовал использовать формулы направляющих углов:
d := sqrt(x * x + y * y + z * z);
alpha := ArcCos( x / d); // угол по OX
beta := ArcCos( y / d); // угол по OY
gamma := ArcCos( z / d); // угол по OZ
Потом я перевёл их в градусную меру измеренния углов и
присвоил их:
glRotatef(alpha, 1, 0, 0); // поворот вокруг оси OX
glRotatef(beta, 0, 1, 0); // поворот вокруг оси
OY
glRotatef(gamma , 0, 0, 1); // поворот вокруг оси
OZ
Не получилось.
Так как же мне найти эти углы?
@!!ex (2006-10-07 16:10:00) [21]
Маненьникй такой ньюансик.....
Вращать нужно только по двум углам....
В своем проекте реализовывал вращение геосферы аля X-Com.
Если интересно, могу дать ссылку... Около 5 мегабайт...
if wx>=0 then
xChange:=Round(arcsin(abs(wx)/sqrt(sqr(radius)-sqr(wy)))/PI*180)
else
xChange:=-Round(arcsin(abs(wx)/sqrt(sqr(radius)-sqr(wy)))/PI*180);
if wy>=0 then
yChange:=Round(arcsin(abs(wy)/sqrt(sqr(radius)-sqr(wx)))/PI*180)
else
yChange:=-Round(arcsin(abs(wy)/sqrt(sqr(radius)-sqr(wx)))/PI*180);
Где wx,wy - координаты точки которую нужно центрировать.
Вращение соответственно по осям:
glRotate(YRotate,1,0,0);
glRotate(XRotate,0,0,1);
У меня все прекрасно работает.
Страницы:
<
1
2
>
Наверх 
ЧАТ |
Орешник |
|
