c: bp bgi');
...
{Тут побудова зображення}
...;;.
Шлях c: bp bgi вказує розташування файлу egavga. bgi (драйвер графічного адаптера). На різний комп'ютерах цей шлях може бути різним. Якщо файл egavga. bgi помістити в каталог з програмою, то шлях можна не вказувати.
Основні графічні процедури та функції:
Побудова фігур (x, y, c) - відображає на екрані точку з координатами (x, y) і кольором c (x1, y1, x2, y2) - малює лінію з початком у точці (x1 , y1) і кінцем - (x2, y2) (x1, y1, x2, y2) - малює контур прямокутника з діагоналлю (x1, y1) - (x2, y2) (x1, y1, x2, y2) - малює зафарбований прямокутник з діагоналлю (x1, y1) - (x2, y2) (x, y, r) - малює коло з центром (x, y) і радіусом r (x, y, ba, ea, xr, yr) - малює дугу еліпса з центром в (x, y), горизонтальним і вертикальним радіусом xr і yr, і початковим і кінцевим кутом ba і ea (x, y, xr, yr) - малює зафарбований еліпс з центром в (x, y), горизонтальним і вертикальним радіусом xr і yr
Визначення кольорів і стилів (x, y) - повертає колір пікселя з координатами (x, y) (c) - встановлює колір зображення (для ліній) (p, c) - встановлює поточний стиль p і колір c (для "зафарбованих" фігур) (x, y, b) - зафарбовує закриту область з внутрішньою точкою (x, y) і кольором контуру b
Робота з текстом (x, y, st) - виводить на екран рядок st з позиції (x, y) (f, d, s) - встановлює шрифт f, його напрямок d і розмір p>
Повідомлень про ошібкахGraphErrorMsg (ErrorCode: integer): String; Повертає рядок повідомлення про помилку для заданого кода ErrorCode.GraphResult: integer; Повертає код помилки для останньої графічної операції.
Визначення адаптера, ініціалізація і перехід між текстом і графікойDetectGraph (var GraphDriver, GraphMode: integer); Перевіряє апаратуру і визначає який графічний драйвер і в якому режимі використовується (тип адаптера - в GraphDriver, режим - GraphMode) . GetDriverName: string; oзвращает рядок з ім'ям поточного драйвера.InitGraph (var GraphDriver: integer; var GraphMode: integer; PathToDriver: String); Ініціалізує графічну систему і встановлює пристрій в графічний режим. PathToDriver - повний шлях до драйвера. bgi, зазвичай 'c: tp bgi'. Якщо шлях опущений (''), то драйвер повинен знаходиться в поточному каталозі. p> function RegisterBGIfont (Font: pointer): integer; Реєструє шрифт BGI для графічної системи. Зареєстрований фонт може використовуватися у виклику SetTextStyle. Він може бути завантажений з диска в купу або перетворений в. obj файл (за допомогою binobj. exe) і пов'язаний у файл. exe. У випадку помилки функція повертає від'ємне значення. <# "Justify"> 3. Площинна графіка
Мова програмування володіє багатими графічними можливостями, що до...