Реферат Графіка в Турбо Паскалі

ize. Повертає розмір пам'яті в байтах, необхідний для розміщення прямокутного фрагмента зображення. Тема:

Function ImageSize (X1, Y2, X2, Y2: Integer): Word;

Тут X1 .. Y2 - координати лівого верхнього (X1, Y1) і правого нижнього (X2, Y2) кутів фрагмента зображення.

Процедура GetImage. Поміщає в пам'ять копію прямокутного фрагмента зображення. Тема:

Procedure GetImage (X1, Y1, X2, Y2: Integer; var Buf);

Тут X1 .. Y2 - координати кутів фрагмента зображення; Buf - змінна або ділянка купи, куди будуть поміщена копія відеопам'яті з фрагментом зображення.

Розмір Buf повинен бути не менше значення, що повертається функцією ImageSize з темі ж координатами X1 .. Y2. p> Процедура PutImage. Виводить в задане місце екрану копію фрагмента зображення, раніше поміщену в пам'ять процедурою GetImage. Тема:

Procedure PutImage (X, Y: Integer; var Buf; Mode: Word);

Тут X, Y-координати лівого верхнього кута того місця на екрані, куди буде скопійований фрагмент зображення; Buf - змінна або ділянка купи, звідки береться зображення; Mode - спосіб копіювання.

Як бачимо, координати правого нижнього кута не вказуються, оскільки вони повністю визначаються розмірами знову виведеної на екран копії зображення. Координати лівого верхнього кута можуть бути якими завгодно, аби тільки виводиться копія вмістилася в межах екрану (якщо копія не зможе розміститися на екрані, вона не виводиться і екран залишається без змін).

Параметр Mode визначає спосіб взаємодії знову розміщується копії вже наявними на екрані зображенням. Взаємодія здійснюється шляхом застосування кодованих цим параметром логічних операцій до кожного біту копії та зображення. <В 

2. Лістинг ПРОГРАМИ

Program Brodvey;

Uses Graph, Crt;

Var i, a, y, x: integer;

В 

procedure init;

var gD, gM, EC: integer;

begin gD: = detect;

InitGraph (gD, gM,'');

end;

begin init;

SetColor (1);

Line (520,0,0,192);

Line (530,0,0,210);

SetFillStyle (1,8);

FloodFill (525,0,1);

Line (550,0,0,450);

Line (565,0,0,600);

SetFillStyle (1,0);

FloodFill (540,0,1);

SetFillStyle (1,10);

FloodFill (555,0,1);

Line (800,0,0,1700);

SetFillStyle (9,10);

FloodFill (555,0,1);

SetFillStyle (1,8);

FloodFill (570,0,1);

SetFillStyle (9,2);

FloodFill (630,400,1);

Line (0,100,90,100);

LIne (90,100,90,158);

SetFillStyle (1,4);

FloodFill (2,120,1);

Line (5,105,20,105);

Line (5,105,5,115);

Line (20,105,20,115);

Line (5,115,20,115);

SetFillStyle (1,14);

FloodFill (7,110,1);

Line (40,105,55,105);

Line (40,105,40,115);

Line (55...