Лабораторна робота №11

ТЕМА: Складання, налагодження та введення програми з графічними примітивами у мові програмування Pascal.

МЕТА: Придбати практичні навичкі з складання програм на мові Pascal з використанням процедур та функцій модулю Graph. Навчитись основним прийомам роботи з графічними зображеннями: малювання фігур довільної форми, анімація малюнку.

МЕТОДІЧНІ ВКАЗІВКИ:

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

ОБЛАДНАННЯ ТА ПРОГРАМНЕ ЗАБЕЗПЕЧЕННЯ:

IBM сумісні комп’ютери класу Intel Pentium, система програмування Borland Pascal 7.0

ЛІТЕРАТУРА:

1. А.Н. Вальвачов, в.С. Крисевич «Программирование на языке Паскаль для персональных эвм»,Минск, вш. – 1989

2. Н.Д. Васюкова, в.В.Тюляева «Практикум по основам программирования на языке Паскаль»,Москва, вш.-1991

ТЕОРЕТИЧНИЙ МАТЕРІАЛ, НЕОБХІДНИЙ ДЛЯ ВИКОАННЯ РОБОТИ

Основні процедури та функції для роботи з графікою умовно можна поділяти на наступні групи

1. Службові – вмикання, вимикання графічного режиму, зміна відео режиму, очистка екрану

2. Керування кольором – зміна кольорів палітри, встановлення поточного кольору, стиля заливки

3. Виведення примитівів – точек, ліній, окружностей, багатокутників, заповнення областей екрану

Всі процедури і функції розташовані в модулі Graph, який входить до стандартної поставки середи програмування Pascal

Розглянемо ці типи процедур та функції послідовно.

1) . Службові процедури та функції

Графічний режим У цьому режимі зображення формується з ряду світних крапок - пікселів. Кожний піксель задається парою координат - х та у. Для різних графічних режимів координатні сітки можуть бути різними. Колірне значення кожного пікселя зберігається у вигляді бітів у відеобуфері й переноситься на екран.

Робота із графікою в Турбо-Паскале. Після включення комп'ютера відео термінал перебуває в текстовому режимі. Для переходу в графічний режим у своїй програмі необхідно реалізувати виклик графічного драйвера.

Для цього використається процедура InitGraf (Driver, Mode, ‘C:\TP7\BGI’), де

• Driver - тип драйвера (константи, найпоширеніша 9 - VGA );

• Mode - режим роботи відеоадаптера. Кожний драйвер забезпечує кілька режимів роботи.

• ‘C:\TP7\BGI’ - адреса директорії (шлях), у якій перебуває шукана програма - драйвер. У нашому випадку це шлях до драйвера EGAVGA.BGI.

Якщо тип використовуваного в комп'ютері адаптера невідомий, можна розпізнати його автоматично:

DetectGraph (Driver, Mode);

InitGraf (Driver, Mode, 'C:\TP7\BGI')

Функція GraphResult повертає код результату виконання останньої графічної підпрограми. Якщо помилки не відбулося, то код буде дорівнює 0. Інакше функція поверне негативне число від -1 до -14, що вказує на код помилки. Після виклику GraphResult автоматично скидається в нуль.

Після того як адаптер переведений у графічний режим роботи, можна використати набір графічних підпрограм, що входять до складу модуля Graph (graph.tpu ).

Після закінчення роботи в графічному режимі необхідно перевести адаптер у текстовий режим за допомогою процедури CloseGraph.

Зауваження: у графічному режимі курсор на екрані не высвечивается.

2) Керування кольором

Встановлення поточного кольору або фону здійснюється процедурами

SetColor (Color:Word) та SetBkColor (Color:Word) відповідно. Color кольорова константа змінюється від 0..15.

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

SetLineStyle (LineStyle, Pattern, Thickness: Word).

Константи LineStyle задає визначені заздалагеть стилі лінії SolidLn (0) – сплошна, DottedLn (1) – з точек, CenterLn (2) – штрих-пунктирна, DashedLn (3) – штрихова, UserBitLn (4) – визначена користувачем. В цьому випадку други параметр визначає взаємне положення заповнених та пустих ділянок на протязі лінії. Константа Pattern уявляє собою послідовність біт з 0 та 1. Нули відображають пусте місце 1 – заповнені участки. Параметр Thickness задає товщину лінії. Значення 1 – тонка лінія, значення 3 – товста.

Зміна стилю заповнення області (сполошне, штрихове) здійснюється процедурою

SetFillStyle(Pattern: Word; Color: Word). Параметр Color задає кольор, параметр Pattern номер шаблона заповнення. Значення параметру приведені в таблице. Дана процедура здійснюється разом з процедурою заповнення області FloodFill(X,Y:Integer; Border:Word).

3. Виведення примитівів

В мові Pascal визначені процедури для малювання основних графічних примитівів. В таблиці надані основні процедури з описом параметрів.