Студопедия  
Главная страница | Контакты | Случайная страница

АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатика
ИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханика
ОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторика
СоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансы
ХимияЧерчениеЭкологияЭкономикаЭлектроника

Реализация имитации движения графических объектов

Читайте также:
  1. d) Свобода передвижения.
  2. II группа - показатели движения персонала фирмы.
  3. LINUX|| Реализация потоков в ОС Linux.
  4. O География в эпоху Великих географических открытий.
  5. А) собственно-политические (государство, политические партии и движения, оказывающие активное воздействие на политику);
  6. алгебра логики.ОСНОВНЫЕ ЛОГИЧЕСКИЕ ОПЕРАЦИИ И ИХ РЕАЛИЗАЦИЯ
  7. Алгоритм классификации объектов на основе растущих нейросетевых структур
  8. Алгоритм поиска с возвращением, их реализация с помощью рекурсий и динамических структур.
  9. Анализ движения денежных средств.
  10. Анализ потенциально опасных объектов ЧС техногенного характера, возможных на территории объекта

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

Задача 1. Организовать имитацию движения по экрану компьютера автомобиля.

Program automoto;

Uses Graph;

Var u,gm,gd:integer;

BEGIN

gd:=detect;

initgraph(gd,gm,’’);

if graphresult<>0 then halt(1);

setviewport(1,1,600,450,true);

setbkcolor(lightgray); setcolor(brown);

line(1,401,700,401);{нарисовали дорогу}

u:=1;

while u<= 600 do

begin

setcolor(darkgray);

rectangle(40+u,315,90+u,350); {кабина машины}

setfillstyle(1,darkgray);

bar(5+u,350,120+u,390); {кузов машины}

setfillstyle(1,yellow);

setcolor(yellow);

line(121+u,360,160+u,400); line(160+u,400,200+u,400); {свет от фар машины }

line(200+u,400,121+u,360); floodfill(180+u,399,yellow);

pieslice(40+u,385,0,360,15); pieslice(90+u,385,0,360,15); {нарисуем колеса}

delay(30);

setfillstyle(1,lightgray); bar(5+u,300,210+u,400); {очистка места расположения машины}

u:=u+3

end;

readln;

closegraph

END.

Второй способ имитации движения рисунка или его части состоит в его запоминании в отдельной области оперативной памяти, с тем, чтобы в дальнейшем быстро восстановить это изображение в другом месте экрана.

Для хранения фрагмента удобнее всего использовать динамическую область памяти. Получить размер памяти в байтах, необходимой для сохранения образа фрагмента, позволяет функция ImageSize(X1,Y1,X2,Y2: integer): word. Здесь X1,Y1 и X2,Y2 – координаты верхнего левого и нижнего правого углов прямоугольника. Если полученный размер памяти больше 64Кб, то значение ImageSize =0, a GraphResult = -11. Чтобы этого избежать, следует сохранять изображение по частям. Полученный с помощью функции ImageSize размер памяти применяют в качестве входной информации для процедуры GetMem(p,Size), которая выделяет указанный объем памяти в динамической области: Здесь р – указатель на область памяти, Size – ее размер.

Процедура GetImage(X1,Y1,X2,y2:integer; var BitMap:word); сохраняет образ фрагмента в памяти, где X1,Y1,X2,Y2 – координаты фрагмента, BitMap – переменная, которая указывает, где сохраняется образ изображения.

Процедура PutImage(X,Y:integer; var BitMap, Mode:word); восстанавливает сохраненный в буфере BitMap прямоугольник, левый верхний угол которого задается координатами X,Y. Параметр Mode задает режим вывода изображения.

Задача 1. Построить на экране компьютера башню, имитируя процесс ее построения снизу вверх.

Uses Graph;

Var P:pointer; {указатель на область}

Size:Word; {размер области}

X1,Y1:Word; {координаты начальной точки}

gd,gm:integer;

Begin

gd:=detect;

InitGraph(gd,gm,’’);

IF GraphResult<>0 THEN Halt(1);

SetViewPort(0,0,640,80,TRUE);

ClearViewPort;

SetBkColor(black); SetColor(yellow);

SetLineStyle(0,1,Thickwidth);

Rectangle(120,400,200,440); {рисуем первый кирпич башни}

Size:=ImageSize(120,400,200,400); {определяем размер области}

GetMem(p,Size); {выделяем память для области}

GetImage(120,400,200,440,P^); {сохраняем область в памяти}

Y1:=400;

WHILE Y1>=40 DO

begin

X1:=120;

WHILE X1<=440 DO

Begin PutImage(X1,Y1,p^,CopyPut); {строим башню}

Delay(200); X1:=X1+80; end;

Y1:=Y1-40

end;

WHILE X1<=440 DO {строим верх башни}

Begin PutImage(X1,Y1,p^,CopyPut); {CopyPut=0 – режим копирования изображений}

X1:=X1+160; end;

SetColor(black);

Line(200,120,280,120); {строим окна в башне}

Line(360,120,440,120);

Readln;

CloseGraph

End.

Контрольные вопросы:




Дата добавления: 2014-12-18; просмотров: 55 | Поможем написать вашу работу | Нарушение авторских прав




lektsii.net - Лекции.Нет - 2014-2024 год. (0.008 сек.) Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав