1.3. Екран і вікно в графічному режимі.

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

За замовчуванням вікно займає весь екран, значення координат його лівого верхнього і правого нижнього кута встановлюються автоматично процедурою ініціалізації InitGraph.

Якщо вимагається створити вікно, слід скористатися процедурою

SetViewPort (x1, y1, x2, y2:integer, Clip:boolean);

де x1, y1 – координати лівого верхнього кута, x2, y2 – координати правого нижнього кута вікна. Параметр Clip визначає, чи малюнок відсікатиметься при виході за межі вікна (Clip:=True) чи ні (Clip:=False). Після створення вікна за точку відліку приймається верхній лівий кут вікна, що має координати (0,0).

Координатну систему повного екрану можна відновити, зокрема, за допомогою ClearDevice або задавши в процедурі установки вікна максимально можливі значення:

SetViewPort( 0, 0, GetMaxX, GetMaxY, true);

Необхідно пам'ятати, що на відміну від текстових вікон графічні вікна після команди установки фону SetBkColor і очищення за допомогою ClearViewPort міняють фон разом із загальним фоном екрану. Тому фон (точніше «зафарбовування») графічного вікна слід встановлювати за допомогою процедур SetFillStyle і SetFillPattern.

1.4. Виведення найпростіших фігур.

1.4.1. Виведення точки.

Які б зображення не виводилися на екран, всі вони побудовані з точок, теоретично можна створити будь-яке зображення шляхом побудови точок певного кольору в потрібному місці екрану. В бібліотеці Graph виведення точки здійснюється процедурою

PutPixel (X, у: integer, color:word);

де x, у: координати розташування точки, color – колір.

Можливі значення Color приведені в таблиці:

Таблиця 7.3

Шкала кольорів

Колір	Код	Колір	Код
Black – чорний	0	Darkgray – темно-сірий	8
Blue – синій	1	Lightblue – голубий	9
Green - зелений	2	Lightgreen – яскраво-зелений	10
Gyan – бірюзовий	3	Lightgyan – яскраво-бірюзовий	11
Red – червоний	4	Lightred – яскраво-червоний	12
Magenta – малиновий	5	Lightmagenta – яскраво-малиновий	13
Brown – коричневий	6	Yellow – жовтий	14
Lightgray – світло-сірий	7	White – білий	15

Приклад.

PutPixel(320, 240, 4);

PutPixel(320,240, Red); виводить в центрі екрану точку червоного кольору.

1.4.2. Виведення лінії.

З точок будуються лінії (відрізки прямих). Це можна зробити за допомогою процедури

Line (x1, y1, x2,y2 :integer);

де x1, y1 – координати початку, x2,y2 - координати кінця лінії, наприклад Line(1,1,600,1).

В процедурі Line немає параметра для установки кольору. В цьому випадку колір задається процедурою SetColor (колір: word); де колір з таблиці 7.3.

Приклад.