Реферат: Відображення на екрані дисплея графічної інформації

Для визначення поточного розташування графічного курсору СР використовують функції:

GET X : integer;

GET Y : integer;

які повертають значення поточних координат показчика.

Приклад 1: позиціонування графічного курсору та визначення його координат:

Uses GRAPH;

Var Driver, Mode : integer;

Begin

Driver := Detect;

InitGraph (Drive, Mode, ‘’);

If GraphResult <> 0 then

Begin

WriteLn (‘ошибка’);

Halt (1);

End;

Move To (GetMax X div 2, GetMax Y div);

OutTextXY (GET X, GET Y, ‘курсор по центру’);

MoveRel (-GET X div 2, -GET Y div 2);

OutTextXY (‘курсор переміщений’);

ReadLn;

CloseGraph;

End.

Установка кольору та стилю

1) процедура Set Color ( Color : word); встановлює поточний колір для ліній та символів. Параметр Color позначає номер кольору від 0 до 15:

Таблиця 1

Black = 0	Light Gray = 7
Blue = 1	Darc Gray = 8
Green 2	Light Blue = 9
Cyan =3	Light Green = 10
Red = 4	Light Cyan = 11
Magente = 5	Light Red = 12
Brown = 6	Light Magente = 13 Yellow = 14 White = 15 Blink = 128

2)процедура SetBKColor (Color : word); встановлює колір фону, який визначається параметром Color .

3) процедура SetFillStyle ( Fill, Color : word); встановлює стиль (тип і колір) заповнення фрагментів зображення.

Геометричні побудови.

1) Відображення точки: