Создание движущихся изображений

Общим принципом создания движущихся изображений является рисование какого-либо объекта, закраска его цветом фона (стирание) и последующее рисование уже с новыми координатами. При этом необходимо отметить, что эффект движения возникает не всегда. Если частота появления

картинки на экране мала, то наблюдается перемещение мигающего объекта. Если объект перемещается слишком быстро, то человеческий глаз не способен воспринять всей траектории движения. На восприятие еще накладывается частота обновления кадра монитора. Может возникать ситуация, когда мерцание наблюдается по этой причине. Продолжительность нахождения на экране прорисованного объекта должна быть максимальна, а продолжительность нахождения стертого минимальна.

Ниже приведена программа, в которой организовано перемещение по экрану окружности, В данном случае частоту обновления изображения можно регулировать варьированием продолжительности задержки (time) и величины перемещения (delta), а также размером объекта – переменная radius (чем меньше радиус окружности, тем меньше времени необходимо на ее прорисовку). Перед выполнением примера скопируйте в свой каталог драйвер egavga. bgi;

Program Multik;

Uses Graph, Crt;

Var

X,у,dy,dx,time,delta,radius,Gd,Gm: integer;

Begin

Gd:= Detect;

InitGraph(Gd,Gm,11)? {Включаем графический режим}

i f QraphReault <> grOk then Halt(l);

Rectangle(0,0,GetMaxX,GetMaxY); (Рисуем рамку вокруг экрана}

Xi=100; ys=100; { Начальные координаты центра окружности}

deltas«1 0; { Зеличина перемещения }

dxssdelta; { Зеличина перемещения по х }

dy:=delta; { Величина перемещения по у }

radiusJ=15; { Радиус окружности }

timetHlOOOO; { Продолжительность задержки }

Repeat

SetColor(1 5); { Задание белого цвета ДЛИ ЛИНИЙ }

Circle (зс,у, radius); { Рисование белой окружности}

{ Смена направления гьижения при достижении края экрана }

{ и включение звукового сигнала }

i f y>=GetMaxY-radius then { Нижний край }

begin dy:=-delta; Sound(2000); end;

it y<=radiua then { Верхний край }

begin dy: = delta; flound(30Q0) j end;

i f x>»GetMaxX-radius then ( Правый край }

begin dx:=-delta; Sound(5000); end;

i f x<;=radiue then { Л ЕВЫЙ край }

begin dx:= delta; Sound(4000); end;

Delay(timet; { Задержка выполнения программы }

NoSound;

SetColor(0); { Задание черного цвета }

Circle(x,y,radius); { Рисование черной окружности }

xs^x+dx; y:=y+dy; { Расчет новых координат }

{ Цыход иэ программы при нажатта любой к.лаэии:и }

Ontil KeyPreased;

CloaseGraph; { Выход из г-рафическогс режима }

End.

Следующая программа рисует окружности, координаты которых, радиус и цвет определяются значениями функции синуса или косинуса. Параметры синусоид задаются случайными числами, поэтому образующаяся на экране фигура каждый раз будет отличаться от предыдущих. В первом цикле For присходиг прорисовка 200 окружностей различными цветами, а во втором закраска их черным цветом. Внутри первого цикла организована задержка с помощью процедуры Delay, для того чтобы между прорисовкой окружностей проходило некоторое время. Также задержка доставлена перед затиранием фигуры черным цветом. Завершение работы программы произойдет при нажатии любой клавиши.

Program Salut;

Uses Graph, Crt;

Var

n. j y,x, а,Ь, c, f, e, i, Gd, Gm: integer;

Begin

Randomize; { Инициируем генератор случайных чисел }

Gd:= Detect;

InitGraph (Gd, ara, 1 1); {Вклкчасм графический режим}

i f GraphSeault <> grOk then Halt(l);

y:=round(GetMaxY72); { Координаты центра экрана }

xi=round(GetMaxX/2),-

n:=200; { Количество повторов }

c:=50;

Repeat

a:=random(с)+10;

b: =randoni(c) + 10;

e:=5+random(20);

f:=random(12 0)г

For i:=l to n do

Begin

Delay(50);

SetColor<round(i/10)+1);

Circle(round!(y-i/e)*sin <i/a))+x,

round((у/2-i/e)*coa(i/b))+y,

f-round(c*ein(i/e)));