. : Pursuit (преследование) : .

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

В этом примере кролик убегает от собаки, чтобы добраться до своей норы. Собаку можно перетащить в любую исходную позицию (события OnDragOver, OnDragEnd), а скорость для каждого животного может быть установлена произвольно, по желанию. В примере по умолчанию собака бежит в 3 раза быстрее кролика и вот-вот его поймает.

Примечания

Хотя мы можем использовать спрайты или изображения животных, в этой версии используется элемент управления TShape. Мы поместили эллипсы DogShape, RabbitShape и HoleShape на TPanel, которая определяет наше «игровое поле». Оказывается, что хотя TPanel имеет свойство «Color», оно игнорируется (по крайней мере, в Delphi 7 это так). Чтобы получить зеленое «травянистое» поле был наложен TImage, чтобы сделать зеленый фон.

Скорости, задаваемые пользователем для DogSpeed и RabbitSpeed определяют количество пикселей, на которые нужно перемещаться животным в текущем направлении при каждом прохождении цикла. Цикл завершается, когда выполняется одно из трех условий:

• Собака ловит кролика.
• Кролик достигает безопасного места в своей норе.
• StopFlag имеет значение true. Это происходит, когда при нажатии кнопки Reset, которая очищает поле, перемещает собаку и кролика обратно в их исходные положения, устанавливает StopFlag в значение True.