VPF::OpenGL - Вращение объектов - Форум программистов

Yura_Matsuk

Дата 10.11.2004, 21:54 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 101
Регистрация: 16.5.2004

Репутация: нет
Всего: нет

Такая проблема. В OpenGL объект двигается не туда, куда повернут. И вообще, я не нашел никакой связи между тем, куда он повернут и куда двигается. А поворачивается он ровненько вокруг своей оси Z.

Обработка клавишь:

Код


if keys[VK_Up] then with mycub do
begin
 worldx:=worldx+cos(Angz)*0.05;
 worldy:=worldy+sin(Angz)*0.05;
end;
if keys[VK_Left] then with mycub do angz:=angz+0.5;
if keys[VK_Right] then with mycub do angz:=angz-0.5;

Рисование:

Код



var i:longint;
begin
 glloadidentity;
 gltranslatef(worldx,worldy,worldz);
 glrotatef(angz,0.0,0.0,1.0);
 for i:=0 to length(faces)-1 do with faces[i] do
 begin
  glbegin(GL_QUADS);
   with pts[0] do glvertex3f(x,y,z);
   with pts[1] do glvertex3f(x,y,z);
   with pts[2] do glvertex3f(x,y,z);
   with pts[3] do glvertex3f(x,y,z);
  glend;
 end;
end;

--------------------

Смех смехом, а ОНА кверху мехом...

p0s0l

Дата 10.11.2004, 23:16 (ссылка)

(нет голосов)

Загрузка ...

Г-н Посол

Профиль
Группа: Экс. модератор
Сообщений: 3668
Регистрация: 13.7.2003
Где: 58°38' с.ш. 4 9°41' в.д.

Репутация: 16
Всего: 112

Цитата

И вообще, я не нашел никакой связи между тем, куда он повернут и куда двигается.

sin и cos используют радианы
glRotate - градусы...

Сделай так:

Код


const
  d2r = pi/180; // перевод градусы -> радианы
  r2d = 180/pi; // радианы -> градусы

....

if keys[VK_Up] then with mycub do
begin
 worldx:=worldx+cos(Angz*d2r)*0.05;
 worldy:=worldy+sin(Angz*d2r)*0.05;
end;

...

--------------------

С уважением, г-н Посол.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Звук, графика и видео \| Следующая тема »