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

Delphi Sources



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

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 19.05.2013, 21:15
Аватар для Lothlorien
Lothlorien Lothlorien вне форума
Новичок
 
Регистрация: 06.04.2011
Адрес: Солнечная система
Сообщения: 69
Версия Delphi: 7.0
Репутация: 12
Вопрос Элементарная геометрия

Всем привет!

Столкнулся с задачей, над которой сижу уже второй день и не могу найти разумного решения.
Внизу экрана находится фиксированная пушка, ствол которой можно вращать влево-вправо. По полю рандомно катается танк; цель игрока - поразить этот танк из пушки.
Как определить, находится ли танк на линии прицеливания пушки?

Функцию писал так:
Код:
Result:=(Y - Y1) = (X - X1) * tan(Angle)
, где (X, Y) - координаты танка, (X1, Y1) - координаты лафета пушки, Angle - угол поворота ствола. Но, увы, не работает

Можно ли решить эту задачу другим путём? Заранее благодарен за совет
__________________
Ne timeas obscurum.
Ответить с цитированием
  #2  
Старый 19.05.2013, 21:23
Аватар для Bargest
Bargest Bargest вне форума
Профессионал
 
Регистрация: 19.10.2010
Адрес: Москва
Сообщения: 2,390
Версия Delphi: XE3/VS12/FASM
Репутация: 14665
По умолчанию

1) А угол в каких единицах задан?
2) Сравнение дробных чисел должно быть приблизительным.
__________________
jmp $ ; Happy End!
The Cake Is A Lie.

Последний раз редактировалось Bargest, 19.05.2013 в 21:25.
Ответить с цитированием
  #3  
Старый 19.05.2013, 21:24
Аватар для Lothlorien
Lothlorien Lothlorien вне форума
Новичок
 
Регистрация: 06.04.2011
Адрес: Солнечная система
Сообщения: 69
Версия Delphi: 7.0
Репутация: 12
По умолчанию

В градусах...
Сейчас попробую перевести в радианы и перепроверить результат.
__________________
Ne timeas obscurum.
Ответить с цитированием
  #4  
Старый 19.05.2013, 21:34
Аватар для Lothlorien
Lothlorien Lothlorien вне форума
Новичок
 
Регистрация: 06.04.2011
Адрес: Солнечная система
Сообщения: 69
Версия Delphi: 7.0
Репутация: 12
По умолчанию

То есть нужно ввести какую-то константу Е и по ней приблизительно сравнивать выражения, например
Код:
Result:=(Y - Y1) - (X - X1) * tan(Angle) < E;
Может, у меня ошибка в формуле?..
__________________
Ne timeas obscurum.
Ответить с цитированием
  #5  
Старый 19.05.2013, 21:39
Аватар для Bargest
Bargest Bargest вне форума
Профессионал
 
Регистрация: 19.10.2010
Адрес: Москва
Сообщения: 2,390
Версия Delphi: XE3/VS12/FASM
Репутация: 14665
По умолчанию

Проверь знаки разностей координат.
__________________
jmp $ ; Happy End!
The Cake Is A Lie.
Ответить с цитированием
Этот пользователь сказал Спасибо Bargest за это полезное сообщение:
Lothlorien (19.05.2013)
  #6  
Старый 19.05.2013, 21:42
Аватар для Lothlorien
Lothlorien Lothlorien вне форума
Новичок
 
Регистрация: 06.04.2011
Адрес: Солнечная система
Сообщения: 69
Версия Delphi: 7.0
Репутация: 12
По умолчанию

Да, тут при E = 0.5 пушка начинает попадать по танку, даже если целится в противоположную сторону

Но формула в принципе грамотная (если закрыть глаза на знаки)? Я полагал, что собака зарыта в неверной формуле...
__________________
Ne timeas obscurum.
Ответить с цитированием
  #7  
Старый 19.05.2013, 21:45
Аватар для Bargest
Bargest Bargest вне форума
Профессионал
 
Регистрация: 19.10.2010
Адрес: Москва
Сообщения: 2,390
Версия Delphi: XE3/VS12/FASM
Репутация: 14665
По умолчанию

Нормальная формула, в точности по определению тангенса. Хотя можно было бы угол поворота задавать сразу этим отношением (тангенсом), тогда бы не пришлось все время его считать. Только знаки нужно правильно учитывать, и разобраться со случаем альфа = 90 около градусов.
В общем случае можно записать поворот уравнением прямой (Ax + By + C = 0) и подставлять туда координаты танка, проверяя примерное равенство.
__________________
jmp $ ; Happy End!
The Cake Is A Lie.

Последний раз редактировалось Bargest, 19.05.2013 в 21:48.
Ответить с цитированием
Этот пользователь сказал Спасибо Bargest за это полезное сообщение:
Lothlorien (19.05.2013)
  #8  
Старый 19.05.2013, 21:49
Аватар для Lothlorien
Lothlorien Lothlorien вне форума
Новичок
 
Регистрация: 06.04.2011
Адрес: Солнечная система
Сообщения: 69
Версия Delphi: 7.0
Репутация: 12
По умолчанию

Нет, вращение пушки ограничено до 85 градусов в каждую сторону, так что, по идее, Division by Zero не должно быть
Большое спасибо, буду разбираться со знаками.
Попробую и вариант уравнения AX + BY + C = 0 ))
__________________
Ne timeas obscurum.

Последний раз редактировалось Lothlorien, 19.05.2013 в 21:52.
Ответить с цитированием
  #9  
Старый 20.06.2013, 11:30
Аватар для alexusankov
alexusankov alexusankov вне форума
Новичок
 
Регистрация: 27.08.2012
Сообщения: 78
Версия Delphi: C++/Delphi 2010
Репутация: 10
По умолчанию

Цитата:
Сообщение от Lothlorien
Нет, вращение пушки ограничено до 85 градусов в каждую сторону, так что, по идее, Division by Zero не должно быть
Большое спасибо, буду разбираться со знаками.
Попробую и вариант уравнения AX + BY + C = 0 ))
Может конечно глупость скажу, но читал тему, навеяло. писал ребенку с месяц назад танки, старая детская игрушка, с консолей времен 90х годов.
При выстреле создавался объект 'снаряд', который летел по тректории заданной положением башни танка в созданном таймере. 1 шаг снаряда = размер снаряда в пикселях. При изменении позиции снаряда проверялось столкновение. Тректорию считал как точка выстрела x,y + приращивание значений по таймеру в ту сторону куда был сделан выстрел..
Писатель я плохой, и пишу сумбурно, но дел было, часа на два, при условии, что я начинающий программист.
т.е. по просту говоря создавался объект класса 'снаряд', в котором была проверка столкновения, и выпускался по траектории.

Последний раз редактировалось alexusankov, 20.06.2013 в 11:33.
Ответить с цитированием
  #10  
Старый 20.06.2013, 11:45
Аватар для Страдалецъ
Страдалецъ Страдалецъ вне форума
Гуру
 
Регистрация: 09.03.2009
Адрес: На курорте, из окна вижу теплое Баренцево море. Бррр.
Сообщения: 4,721
Репутация: 52347
По умолчанию

А так наиболее правильно. Просто в подобных игрушках цель не мотается как маятник упорядоченно туда-сюда, а вносится элемент случайности в движение, т.е. повернуть может и не доходя до края. Ну естественно при этом вычисление заранее точки столкновения не всегда будет работать.
__________________
Жизнь такова какова она есть и больше никакова.
Помогаю за спасибо.
Ответить с цитированием
Ответ


Delphi Sources

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

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

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

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


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


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

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

ВКонтакте   Facebook   Twitter