03.01.2011, 15:48 | #1 (permalink) |
Member
Регистрация: 05.12.2010
Сообщений: 25
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Модуль Graph
program kkk; uses crt,graphABC; type ColorType=integer; var x,y,r:integer; begin ClearWindow; SetPenWidth(4); circle(160,150,50); SetBrushColor(4); circle(145,140,5); circle(175,140,5); SetPenWidth(4); Arc(160,185,30,20,160); end. только чтобы после того как мы ее нарисовали, она исчезла, потом появилась и начала передвигаться по полю в любом направлении.Пожалуйста, очень срочно,помогите!Заранее благодарна) |
03.01.2011, 15:48 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Вам будет очень полезна информация которая находится тут АМ/ЧМ модуль YTS920 Оптосимисторный модуль Как закрыть модуль ABCObjects в Паскале? Модуль в Паскале Модуль Graph в TurboPascal |
10.01.2011, 11:04 | #2 (permalink) |
Студент БГПУ
Регистрация: 06.02.2010
Сообщений: 420
Записей в дневнике: 3
Сказал(а) спасибо: 1
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 470
|
В цикле отслеживайте направление и изменяйте соответствующие координаты, причём старые координаты сохраняйте в отдельные переменные они нужны для предварительного стирания рисунка на старом месте, новые координаты вычисляйте относительно старых. Перед выводом рисунка произведите установку цвета (на старом месте цвета равные фону, на новом - требуемый)
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|