|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
03.01.2011, 14:53 | #1 |
Пользователь
Регистрация: 06.10.2010
Сообщений: 17
|
Рисование в GraphABC
Помогите пожалуйста написать код рисования вот этой штуки
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. только чтобы после того как мы ее нарисовали, она исчезла, потом появилась и начала передвигаться по полю в любом направлении.Заранее благодарна. |
05.01.2011, 14:49 | #2 |
Форумчанин
Регистрация: 19.03.2010
Сообщений: 409
|
Нарисуйте эту штуку цветом фона и она закрасится, потом задайте смещение по нужной координате, и постоянно ее изменяйте на эту величину в цикле.
Есть вопросы, пишите в ЛС.
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Модуль GraphABC | Димтрий | Помощь студентам | 0 | 06.12.2010 16:18 |
GraphABC что это? | Squane | Помощь студентам | 2 | 16.11.2010 19:29 |
Рисование | Granus | Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM | 32 | 30.06.2009 23:23 |
Рисование... | HunterMan | Win Api | 10 | 30.04.2008 23:46 |