Помощь - Поиск - Пользователи - Календарь
Полная версия: Анимация карандаша
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
-Student-
Пожалуйста, подскажите кто-нибудь программу анимации текста – карандаш пишет какое-то слово, или хотя бы подскажите принцип её создания, в частности как организовать цикл!
Заранее благодарен!!! smile.gif smile.gif smile.gif
Atos
Ну, во первых, вопрос- Турбо Паскаль?Дельфи? И тебе нужно анимировать какое-то одно конкретное слово или любое?
-Student-
Cпасибо, что ответил smile.gif
Turbo Pascal, ну а слово - РОССИЯ.
Atos
Так, значит работаем с модулем graph. Насчёт анимации такая основная идея: допустим, рисуем карандашом прямую линию. Сначала прорисовываем сам карандаш, в начальной точке линии. Затем сдвигаемся на одну точку: вырезаем-вставляем кусок экрана с карандашом в режиме xorput, точку закрашиваем нужным цветом. И так для каждой следующей точки до конца линии. Для кривых будет сложнее: надо будет определять координаты каждой следующей точки на кривой, писать соответствующие функции...
-Student-
Да-а, сложновато будет. blink.gif
А как быть со в ременем - чтобы карандаш двигалься не мгновенно, а одно движение делалось бы за 0.2 - 0.4 секунды?
volvo
В цикле рисования ставишь задержку:
Uses Crt;
...

Delay(750); { Подбираешь опытным путем }
-Student-
Понятно.
-Student-
Может кто-нибудь напишет пример цикла, а то боюсь, сам не справлюсь. smile.gif
-Student-
Ну, ПОЖАЛУЙСТА, ПОМОГИТЕ!!!!! wacko.gif
Atos
Поищи по форуму исходники с графиков. здесь, например, ссылки были. Если не найдёшь подходящего - скажи, попытаюсь свою старую прогу откопать с движением мыши и перерисовками
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.