| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

хочу повернуть бочку

Alexseve ©   (2006-10-29 10:37:00) 

Помогите пожалусто
мне нужно повернуть бочку у которой произвольные координаты в центер координат. Тойсть она должна всегда смотреть {0,0,0}.
насколько я понимаю надо крутить по двум углам.


       AB:=Form1.xi;//x êîîðäèíàòû îáúåêòà
       BC:=Form1.yi;//y êîîðäèíàòû îáúåêòà
       AC:=Sqrt(AB*AB+BC*BC);
       sinalpha:=BC/AC;
       betha:=ArcSin(sinalpha);
       betha:=(180/pi)*betha;
       betha:=-betha;
       glRotatef(betha, 1.0, 0.0, 0.0); //ïîâîðîò âî êðóã îñè x íà óãîë betha
       Form1.Edit1.Text:=FloatToStr(betha);

       AB:=Form1.xi;//x êîîðäèíàòû îáúåêòà
       BC:=Form1.zi;//z êîîðäèíàòû îáúåêòà
       AC:=Sqrt(AB*AB+BC*BC);
       sinalpha:=BC/AC;
       alpha:=ArcSin(sinalpha);
       alpha:=(180/pi)*alpha;
       alpha:=-alpha;
       glRotatef(alpha, 0.0, 1.0, 0.0); //ïîâîðîò âî êðóã îñè y íà óãîë alpha
       Form1.Edit2.Text:=FloatToStr(alpha);
но не чего не получаеться. Бочка не смотрет в центер

---

@!!ex   (2006-10-30 08:45:00) [1]

> Alexseve   (29.10.06 10:37)  

Не русский?

Если я правильно понимаю, что написано, значит нужно сделать Translate в центр координат, повращать, а потом переместить обратно.

---

VolanD666   (2006-10-29 14:31:00) [2]

А че ее крутить, если лна всегда смотрит  {0,0,0}?

---

Ketmar   (2006-10-29 11:34:00) [3]

представил бочку с глазами. стало страшно.

---

Наверх