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

Функція GetBkColor.

Повертає значення типу Word, що містить поточний колір фону. Заголовок:

Function GetBkColor: Word;

Процедура SetPalette.

Замінює один з кольорів палітри на новий колір.

Заголовок:

Procedure SetPalette(N: Word; Color: Shortlnt);

Тут N - номер кольору в палітрі; Color - номер знов встановлюваного кольору.

Дана процедура може працювати тільки з адаптерами EGA або VGA. Вона не повинна використовуватися з IBM8514 або 256-кольоровим варіантом VGA - для цих адаптерів призначена особлива процедура SetRGBPalette (див. нижче). Первинне розміщення кольорів в палітрах EGA/VGA відповідає послідовності їх опису константами Black....White, тобто колір з індексом 0 - чорний, 1 - синій, 2 - зелений і т.д. Після звернення до процедури всі фрагменти зображення, виконані кольором з індексом N з палітри кольорів, одержать колір Color. Наприклад, якщо виконати оператор

SetPalette(2,White);

то колір з індексом 2 (первинно це - бірюзовий колір Cyan) буде замінений на білий. Колір з індексом 0 ототожнюється з кольором фону і може змінюватися разом з будь-яким іншим кольором.

Процедура GetPalette.

Повертає розмір і кольори поточної палітри.

Заголовок:

Procedure GetPalette(var Palettelnfo: PaletteType);

Тут Palettelnfo - змінна типа PaletteType, що повертає розмір і кольори палітри.

В модулі Graph визначена константа

const

MaxColors =15;

і тип

type

PaletteType = record

Size : Word; {Кількість кольорів в палітрі}

Colors : array [0..MaxColors] Shortlnt

{Номери вхідних в палітру кольорів}

end;

Процедура SetAllPalette.

Змінює одночасно декілька кольорів палітри.

Заголовок процедури: