Курсовая работа: Побудова динамічної графіки

Процедура Put Image.

Виводить в задане місце екрану копію фрагмента зображення, раніше поміщену в пам'ять процедурою Getlmage.

Заголовок:

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

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

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

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

const

NormalPut= 0;{Заміна існуючого зображення на копію}

XorPut = 1;{Виняткове АБО}

OrPut = 2;{Об'єднувальне АБО}

AndPut = 3;{Логічне І}

NotPut = 4;{Інверсія зображення}

Найбільш часто використовуються операції NormalPut, XORPut і NotPut. Перша з них просто стирає частину екрану і на це місце поміщає копію з пам'яті в тому вигляді, як вона там зберігається. Операція NotPut робить те ж саме, але копія виводиться в інверсному вигляді. Для монохромного режиму це означає заміну пікселів, що світяться, на темні і навпаки. В кольоровому режимі операція NotPut застосовується до коду кольору кожного пікселя. Наприклад, для White (код 15 або в двійковому вигляді 1111) ця операція дасть код 0000 = 0 = Black, для Red = 4 = 0100 одержимо 1011 = 11 = LightCyan і т.д. Операція XORPut, застосована до того ж місця екрану, звідки була одержана копія, зітре цю частину екрану. Якщо операцію застосувати двічі до однієї і тієї ж ділянки, вид зображення на екрані не зміниться. У такий спосіб можна досить просто переміщати зображення по екрану, створюючи ілюзію руху.

· Виведення тексту

Описувані нижче стандартні процедури і функції підтримують виведення текстових повідомлень в графічному режимі. Це не одне і те ж, що використовування процедур Write або WriteLn. Річ у тому, що спеціально для графічного режиму розроблені процедури, що забезпечують виведення повідомлень різними шрифтами в горизонтальному або вертикальному напрямі, із зміною розмірів і т.д. Проте в стандартних шрифтах, розроблених для цих цілей фірмою Borland, відсутня кирилиця, що виключає виведення російськомовних повідомлень.

З другого боку, процедури Write і WriteLn після завантаження в пам'ять другої половини таблиці знакогенератора (а ця операція легко реалізується в адаптерах EGA і VGA) здатні виводити повідомлення з використанням національного алфавіту, але не володіють могутніми можливостями спеціальних процедур.

Нижче описуються стандартні засоби модуля Graph для виведення тексту.

Процедура OutText.

Виводить текстовий рядок, починаючи з поточним положенням покажчика. Заголовок:

Procedure OutText(Txt: String);

Тут Txt - рядок, що виводиться.

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

Процедура OutTextXY.

Виводить рядок, починаючи із заданого місця.

Заголовок:

Procedure OutTextXY (X,Y: Integer; Txt: String);

Тут X, У - координати точки виведення; Txt - рядок, що виводиться. Відрізняється від процедури OutText тільки координатами виведення. Покажчик не міняє свого положення.

Процедура SetTextStyle.