Анимация карандаша Опции

[-Student-]

Пожалуйста, подскажите кто-нибудь программу анимации текста – карандаш пишет какое-то слово, или хотя бы подскажите принцип её создания, в частности как организовать цикл!
Заранее благодарен!!!

[Atos]

Ну, во первых, вопрос- Турбо Паскаль?Дельфи? И тебе нужно анимировать какое-то одно конкретное слово или любое?

[-Student-]

Cпасибо, что ответил
Turbo Pascal, ну а слово - РОССИЯ.

[Atos]

Так, значит работаем с модулем graph. Насчёт анимации такая основная идея: допустим, рисуем карандашом прямую линию. Сначала прорисовываем сам карандаш, в начальной точке линии. Затем сдвигаемся на одну точку: вырезаем-вставляем кусок экрана с карандашом в режиме xorput, точку закрашиваем нужным цветом. И так для каждой следующей точки до конца линии. Для кривых будет сложнее: надо будет определять координаты каждой следующей точки на кривой, писать соответствующие функции...

[-Student-]

Да-а, сложновато будет.
А как быть со в ременем - чтобы карандаш двигалься не мгновенно, а одно движение делалось бы за 0.2 - 0.4 секунды?

[volvo]

В цикле рисования ставишь задержку:

Uses Crt;
...

Delay(750); { Подбираешь опытным путем }

[-Student-]

Понятно.

[-Student-]

Может кто-нибудь напишет пример цикла, а то боюсь, сам не справлюсь.

[-Student-]

Ну, ПОЖАЛУЙСТА, ПОМОГИТЕ!!!!!

[Atos]

Поищи по форуму исходники с графиков. здесь, например, ссылки были. Если не найдёшь подходящего - скажи, попытаюсь свою старую прогу откопать с движением мыши и перерисовками