|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
08.06.2015, 03:05 | #1 |
Регистрация: 08.04.2013
Сообщений: 4
|
Перемещение геометрической фигуры
Нарисовать заданную геометрическую фигуру, которая перемещается по заданной траектории и постоянно изменяет свой масштаб («дышит»). Язык программирования Delphi.
Может у кого завалялся пример или алгоритм? Приму любую помощь, спасибо |
08.06.2015, 09:45 | #2 |
Старожил
Регистрация: 30.12.2009
Сообщений: 11,426
|
Напишите функцию:
Код:
Киньте таймер и PaintBox, в таймере интервал (задаёт скорость вращение по оси) поставьте 200 мс, внутри заведите константу указывающую радиус круга, и две переменные задающие 2 точки в плоскости координат по которым будет рисоваться круг и летать треугольник, а так же размер шага треугольника на каждом цикле. В зависимости от радиуса вычислите кол-во таких шагов по окружности. Далее алгоритм такой: 1. расчитаете кол-во шагов. 2. Цикл по шагам. 2.1. Очистили Canvas, залили белым. 2.2. Нарисовали от центра Canvas на раастоянии радиуса R окружность от от заданных X, Y координат. 2.3. Нарисовали треугольник. 2.4. перешли к пункту 2.1. будет "моргать" но двойную буферизацию мб и не осилите. Код сами пишите. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Перемещение фигуры | qwot | C# (си шарп) | 2 | 18.05.2015 07:18 |
Рисование геометрической фигуры используя собственные классы. | Kion | C++ Builder | 0 | 13.03.2011 00:28 |
Определение геометрической фигуры | kJlaCuk | Паскаль, Turbo Pascal, PascalABC.NET | 4 | 28.12.2008 19:18 |
Програма для вывода геометрической фигуры | Hworang | Паскаль, Turbo Pascal, PascalABC.NET | 8 | 30.10.2007 19:42 |