Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > Графика и игры
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #16  
Старый 18.05.2014, 17:29
Sphynx55 Sphynx55 вне форума
Прохожий
 
Регистрация: 15.05.2014
Сообщения: 13
Версия Delphi: Delphi 7
Репутация: 10
По умолчанию

Вовсе нет, с помощью рандома можно "растянуть" начальную диагональ, и никаких синусоид не будет.
Ответить с цитированием
  #17  
Старый 18.05.2014, 23:42
Аватар для Pilot_Red
Pilot_Red Pilot_Red вне форума
Продвинутый
 
Регистрация: 01.11.2006
Адрес: Карелия
Сообщения: 702
Версия Delphi: D7
Репутация: 11581
По умолчанию

дам небольшую посказку
dx=(pos.x-object.x)/lengthvector
dy=(pos.x-object.y)/lengthvector
lengthvector-это расстояние между точкой объекта и курсором
с рандомом вариант убил...
Ответить с цитированием
  #18  
Старый 19.05.2014, 06:59
Sphynx55 Sphynx55 вне форума
Прохожий
 
Регистрация: 15.05.2014
Сообщения: 13
Версия Delphi: Delphi 7
Репутация: 10
По умолчанию

Пусть координаты будут (0,0) (100,10) - расстояние вычисляем с помощью квадратов и корня (float ?) ~ 100.
dx=(pos.x-object.x)/lengthvector=(100)/100=1
dy=(pos.x-object.y)/lengthvector=(10)/100=0
Когда dy перестанет быть 0 ? Когда lengthvector=20.
Вы получите диагональ не в начале, а в конце пути.
Ответить с цитированием
  #19  
Старый 19.05.2014, 14:08
Sphynx55 Sphynx55 вне форума
Прохожий
 
Регистрация: 15.05.2014
Сообщения: 13
Версия Delphi: Delphi 7
Репутация: 10
По умолчанию

Про вариант с рандомом, похоже вы просто не поняли.
Код:
dx:=0;if cx>x then dx:=1;if cx<x then dx:=-1;
dy:=0;if cy>y then dy:=1;if cy<y then dy:=-1;
Этот простейший метод дает некрасивую диагональ в начале пути.
Диагональ возникает когда одна из величин delta_X или delta_Y много больше другой. Если при этом сделать вероятность изменения меньшей величины менее 100%, то наша диагональ начнет вытягиваться, приближаясь к "правильной" прямой.
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 01:44.


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2025