Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2010.08.27;
Скачать: CL | DM;

Вниз

Turn   Найти похожие ветки 

 
Mr.Vlad   (2007-08-27 00:04) [0]

Подскажите пожалуйста. Я вращаю камеру вокруг объекта с помощью запоминания координат курсора, но когда курсур "упирается в край монитора", то вращение прекращается.

procedure TFEngine.ViewerMouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
mdx:=x;
mdy:=y;
end;

procedure TFEngine.ViewerMouseMove(Sender: TObject;
Shift: TShiftState; X, Y: Integer);
begin
Actor1.turn(x-mdx);
mdx:=x;
mdy:=y;
end;

Знаю, что нужно каждую секунду координаты курсора присваивать половине экрана, но mouse.CursorPos типа TPoint. Чему присваивать???


 
ElectriC ©   (2007-08-27 00:45) [1]

Может это?!
...
CurPos : TPoint; // координаты курсора
Width, Height : Integer; // размеры окна
Xi, Yi : Integer; // поворот камеры по осям x, y.
...
GetCursorPos(CurPos);
SetCursorPos(Width shr 1, Height shr 1);
Xi := (  CurPos.X - Width shr 1) / 1000 * 1.4;
Yi := (Height shr 1 -  CurPos.Y) / 1000 * 1.4;

P.S. 1.4 - Скорость вращения камеры.
P.P.S. shr 1 аналогично div 2, только быcтрее.


 
ElectriC ©   (2007-08-27 00:52) [2]

Поправочка:
Xi := Xi + (  CurPos.X - Width shr 1) / 1000 * 1.4;
Yi := Yi + (Height shr 1 -  CurPos.Y) / 1000 * 1.4;


 
Mr.Vlad   (2007-08-27 21:27) [3]

Почти то.
Я как раз забыл процедуру SetCursorPos.
Написал в таймере(500) SetCursorPos(512, 384) и проблема решена.
СПАСИБО!!! БОЛЬШОЕ!!!



Страницы: 1 вся ветка

Текущий архив: 2010.08.27;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.047 c
2-1271777347
TKN
2010-04-20 19:29
2010.08.27
Диаграммы - DBChart


15-1263549006
Kolan
2010-01-15 12:50
2010.08.27
Кто-нибудь компилировал tpapro407 под 2009 или 2010 Делфи?


15-1275164983
Юрий
2010-05-30 00:29
2010.08.27
С днем рождения ! 30 мая 2010 воскресенье


15-1275150659
Vitalii_____
2010-05-29 20:30
2010.08.27
Форумы по CUDA на русском


15-1265559467
Riply
2010-02-07 19:17
2010.08.27
Как расщепляют мгновение