Program MoveCircle;

1.1.Инициировать графический режим.

1.2. Если Ошибка = GrOk, то

1.2.1.Очистить экран, закрасив его цветом фона.

1.2.2. Нарисовать рис. 31, а).

1.2.3. Определить размер прямоугольника, который охватывает этот рисунок.

1.2.4. Выделить память для сохранения первого рисунка, начиная от адр. Р1.

1.2.5. Сохранить первый рисунок по адресу Р1.

1.2.6. Нарисовать рис. 31, б).

1.2.7. Определить размер прямоугольника, который охватывает этот рисунок.

1.2.8. Выделить память для сохранения второго рисунка, начиная от адр. Р2.

1.2.9. Сохранить второй рисунок по адресу Р2.

1.2.10. Задать значения координат x и y для вывода первого рисунка

1.2.11. Очистить экран.

1.2.12. Повторять

а) Вывести первый рисунок (из адреса Р1), начиная от координат (х, у).

б) Задержать вывод.

в) Стереть изображение (вывести рис. в том же месте с опер. XorPut).

г) Изменить координату х: x: =x+step.

д) Вывести второй рисунок (из адреса Р2), начиная от координат (х, у).

е) Задержать вывод.

ж) Стереть изображение.

з) Изменить координату х: x: =x+step.

Пока не будет нажата клавиша Или координата х не выйдет за экран.

1.2.13. Закрыть графический режим.

Иначе

Вывести ошибку графики.

2. Закончить.

Программа, реализующая этот алгоритм с использованием процедур, которые изображают тело колобка (kolob) и два положения его ног (noga1 и noga2), приведена ниже. Две фазы движения колобка воспроизводятся процедурами kolob1 и kolob2. Они же сохраняют эти изображения в видеопамяти, т.е. выполняют пункты 1.2.2 – 1.2.9 алгоритма.

Uses

Crt, Graph;

Var

Gd, Gm, Er: integer;

step: integer;

X, Y: integer;

Size1, Size2: Word;

p1, p2: Pointer;

Procedure kolob;

{ Рисует колобок в виде закрашенного круга }

Begin

SetColor(White);

Circle(70, 269, 50);

SetFillStyle(1, Yellow);

FloodFill(70, 259, White);

FloodFill(80, 249, White);

End; { Kolob}

Procedure noga1; { Рисует одну ногу }

Begin

SetLineStyle(0, 0, 3); { Жирная сплошная }

SetColor(Yellow); { Рисовать желтым }

Line(70, 289, 70, 329);

Line(70, 329, 90, 329);

Arc(80, 329, 0, 180, 10);

SetFillStyle(1, Yellow); {Сплошное заполнение желтым}

FloodFill(80, 326, Yellow);

End; { Noga1 }

Procedure noga2; { Рисует две ноги }

Begin

SetLineStyle(0, 0, 3);

SetColor(Yellow);

SetFillStyle(1, Yellow);

Line(90, 294, 100, 324);

Line(98, 324, 117, 324);

Arc(108, 324, 15, 190, 9);

FloodFill(108, 321, Yellow);

Line(50, 294, 40, 324);

Line(40, 324, 56, 324);

Arc(49, 324, 350, 160, 9);

FloodFill(49, 321, Yellow);

End; { noga2 }

Procedure kolob1;

{ Рисует и запоминает одну фазу движения - }

{ колобок с одной ногой }

begin

kolob;

noga1;

size1: =ImageSize(15, 219, 128, 331);

GetMem(p1, size1);

GetImage(15, 219, 128, 331, p1^);

ClearDevice;

end; { kolob1 }

Procedure kolob2;

{ Рисует и запоминает другую фазу движения - }

{ колобок с двумя ногами }

begin

kolob;

noga2;

size2: =ImageSize(15, 219, 128, 331);

GetMem(p2, size2);

GetImage(15, 219, 128, 331, p2^);

ClearDevice;

end; { kolob2 }

Begin

Gd: =Vga;

Gm: =VgaMed;

InitGraph(Gd, Gm, 'D: \Bp\Bgi');

Er: =GraphResult;

If Er=GrOK then

Begin

SetBkColor(blue);

kolob1;

kolob2;

{ Начальные координаты и шаг перемещения}

x: = 55;

y: = 100;

step: = 10;

Repeat

PutImage(X, Y, p1^, NormalPut);

Delay(150);

PutImage(X, Y, p1^, XORPut);

X: =X+step;

PutImage(X, Y, p2^, NormalPut);

Delay(150);

PutImage(X, Y, p2^, XorPut);

X: =X+step;

Until X> 469;

CloseGraph;

End

else

Writeln('Ошибка графики: ', Er, '. ', GraphErrorMsg(Er));

WriteLn('Нажмите Enter...');

Readln;

End.