Графика в Паскал

Създаване на външния вид на движение на екрана по два начина. Първият начин е, че имитацията на движение на обекта на екрана ще се изгради електронна tsya за SCH д м многократно извършване на главата на Програма за действие:

изготвят - пауза - за изтриване на тираж (това се направи в т о място с цвета на фона) - промяна на координатите на изображението.

Преди стартиране на програмата е необходимо да се помисли за описанието на "преместване" на обекта; промяната на координати, определящи текущото положение на обекта; промени и стъпка диапазон.

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

Използва CRT, графика;
Var ф, г, GD: цяло число;
ЗАПОЧНЕТЕ
GD: = откриване;
initgraph (GD, г, '');
ако graphresult<>0 след спиране (1);
setviewport (1,1,600,450, вярно);
setbkcolor (lightgray);
setcolor (кафяво);
линия (1401700401);
U: = 1;
а ф<=600 do begin setcolor(darkgray);
правоъгълник (40 + U, 315,90 + U, 350);
setfillstyle (1, darkgray);
лента (5 + U, 350,120 + U, 390);
setfillstyle (един, жълто); setcolor (жълто);
линия (121 + U, 360,160 + U, 400);
линия (160 + U, 400,200 + U, 400);
линия (200 + U, 400,121 + U, 360);
floodfill (180 + U, 399, жълто);
pieslice (40 + U, 385,0,360,15); <>
pieslice (90 + U, 385,0,360,15); забавяне (5000);
setfillstyle (1, lightgray);
лента (5 + U, 300,210 + U, 400);
ф: = ф + 3 на изтичане; readln; closegraph END.

Вторият метод за симулиране на модела на движение или част от него и включва запаметяването в отделна област от паметта в ред. да продължи да се възстанови бързо тази река изображения и chnical във всеки от електромерите на екрана.

За съхранение Фра gmenta най-удобно да се използва динамична памет. Вземи размерът на паметта в байтове, необходими, за да следите на изображението позволява да функционират ImageSize (X1, ил, X2, Y2: число): дума. Тук (X1, YI) и (X2, Y2) - координатите на горния ляв ъгъл и долния десен ъгъл на правоъгълник. Ако получената размер на паметта е по-голяма от 64K, след ImageSize стойност = 0, а GraphResult = -1. За да се избегне това, трябва да запишете изображението на парчета.

Получава се от функция резолюция ImageSize памет се използва като вход за процедура GetMem (р, размер), която определя размера на паметта в динамичния региона. Тук р - указател към зоната на паметта, Size - неговия размер.

процедура GetImage (XI, ил, X2, Y2: число; Var Bitmap: дума); фрагмент запазва изображението в паметта, където XI, Y1, X2, Y2 - координира фрагмент, Bitmap - повторно нология което показва, където се съхраняват графични изображения изрази.

Putlmage Процедура (X, Y: число; Var Bitmap, Mo-де: дума); възстановява записва в буфер правоъгълник Bit-Map горния ляв ъгъл е посочено Е tsya координати (X, Y). Параметърът режим определя режима на дисплея.

Демонстрирайте симулация на движение с помощта на описаните по-горе процедури по следния проблем.

Задача 2: Изграждане на кула на екрана на компютъра, симулиране на процеса на строителството му от дъното нагоре.