1.6. Краски, Палитры, Заполнения

Процедура SetColor

Устанавливает текущий цвет для выводимых линий и символов.

Заголовок:

Procedure SetColor (Color: word);

Здесь, Color – текущий цвет.

В модуле Graph определены точно такие же константы для задания цвета, как и в модуле CRT.

Процедура SetBkColor

Устанавливает цвет фона.

Заголовок:

Procedure SetBkColor (Color: word);

Здесь, Color – цвет фона.

В отличии от текстового режима, в котором цвет фона может быть только темного оттенка, в графическом режиме он может быть любым. Установка нового цвета фона немедленно изменяет цвет графического экрана. Это означает, что нельзя создать изображение, два участка которого имели бы разный цвет фона.

Процедура SetPalette

Заголовок:

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

Первоначальное размещение цветов в палитре EGA/VGA соответствует последовательности их описания константами Black, …, White, … и т.д., т.е. цвет с индексом 0 – черный, 1 – синий, 2 – зеленый, …. После обращения к процедуре все фрагменты изображения, выполненные цветом с индексом N из палитры цветов, получат цвет Color.

Например, если выполнить оператор

SetPalette (2, White);

То цвет с индексом 2 (первоначально это бирюзовый цвет Cyan), будет заменен на белый.

Что касается цвета с индексом 0, то он отождествляется с цветом фона и может изменяться наряду с любым другим цветом.

Пример:

Разработать программу, которая выводит на экране ряд прямых разного цвета текущей цветовой палитры, затем изменяет случайным образом цветовую палитру и выводит ряд линий разного цвета новой цветовой палитры

Program DemoSetPalette;

Uses CRT, Graph;

Var

GrDriver, GrMode, i: integer;

pal: array [0..15] of integer;

Begin

GrDriver: =Detect;

InitGraph (GrDriver, GrMode, 'C: |Bp| BGI');

For i:=1 to 15 do

begin

SetColor(i);

Line (10, 10+10*i, 300, 10+10*i);

end;

randomize;

for i:=0 to 15 do

Pal [i]:= Random(16);

for i:=0 to 15 do

SetPalette (i, Pal[i]);

readln;

CloseGraph;

End.

Процедура SetAllPalette

Изменяет одновременно несколько цветов палитры.

Заголовок:

Procedure SetAllPalette (var Palette)

Параметр Palette в заголовке процедуры описан как нетипизированный параметр. Первый байт этого параметра должен содержать длину N палитры, остальные n байты –номера вновь устанавливаемых цветов в диапазоне от 1 до MaxColors. Код «1» означает, что соответствующий цвет исходной палитры не меняется.

Рассмотрим реализацию предыдущей задачи с использованием процедуры SetAllPalette.

Program DemoSetPalette 2;

Uses CRT, Graph;

Var

GrDriver, GrMode, i: integer;

pal: array [0..16] of integer;

Begin

GrDriver: =Detect;

InitGraph (GrDriver, GrMode, 'C: |Bp| BGI');

randomize;

for i:=0 to 16 do

Pal [i]:= Random(16);

Pal [0]:= 15;

SetAllPalette (Pal);

SetBkColor (1);

for i:= 1 to 15 do

begin

SetColor(i);

Line (10, 10+10*i, 300, 10+10*i);

end;

readln;

CloseGraph;

End.

Особенностью использования процедуры SetAllPalette в таких конструкциях является то, что 0-цвет (по умолчанию) – цвет фона как бы выпадает из поля зрения. В программе используется строка SetBkColor (1) для лучшей демонстрации, поскольку по умолчанию цвет фона всегда 0 (черный) и линии с темными оттенками становятся невидимыми.

В модуле Graph определена константа

const

MaxColors= 15;

и тип

tupe

PalettePupe= record

Size: word; {количество цветов в палитре}

Colors: array [0..MaxColors] of ShortInt

{номера входящих в палитру цветов}.

end;

С помощью следующей программы можно вывести на экран номера всех возможных цветов из текущей палитры.

Program DemoSetPalette ;

Uses CRT, Graph;

Var

GrDriver, GrMode, i: integer;

pal: PaletteTupe;

Begin

GrDriver: =Detect;

InitGraph (GrDriver, GrMode, 'C: |Bp| BGI');

GetDefaultPalette (Pal);

GetPalette (Pal);

CloseGraph;

for i:= 1 to 16 do

writeln (pal.colors[i]);

End.

В этой программе процедура SetPalette возвращает размер и цвета текущей палитры.

Ее заголовок:

Procedure GetPalette (var PaletteInfo: PaletteTupe);