Цвета, палитры, заполнения

Вывод изображений на экран в Turbo Pascal может осуществляться с использованием различных цветов. Набор цветов, доступных в том или ином режиме, называется палитрой. Кроме того, если речь идёт о заполнении экрана или какой-либо замкнутой фигуры, то это можно осуществить как сплошным фоном, так и некоторым узором. Рассмотри процедуры и функции, предназначенные для выше описанных видов действий.

Установить текущий цвет позволяет процедура SetColor.

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

Procedure SetColor (Color: Word)

Данная процедура устанавливает текущий цвет - один из цветов использу-емой палитры. Color - новый текущий цвет. Значения, которые может принимать параметр Color, определяется набором определённых в модуле Graph констант. Перечень этих констант, а также соответствующих кодов можно посмотреть в таблице 6.

Таблица 6 Константы и коды цветов в графическом режме.

Имя константы	код	цвет
Black		Чёрный
Blue		Синий
Green		Зелёный
Cyan		Голубой
Red		Красный
Magenta		Фиолетовый
Brown		Коричневый
LightGray		Светло-серый
DarkGray		Тёмно-серый
LightBlue		Светло-синий
LightGreen		Светло-зелёный
LightCyan		Светло-голубой
LightRed		Розовый
LightMagenta		Малиновый
Yellow		Жёлтый
White		Белый
Blink	color + 128	Мерцание символа

Например, обращение SetColor(Yellow) сделает текущим цвет жёлтый, или SetColor(2) сделает текущим цвет зелёный. Обращение можно осуществлять как через имя константы, так и через код.

Для того чтобы установить цвет фона для своего изображения необходимо применить процедуру SetBkColor.

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

Procedure SetBkColor (Color: Word)

Данная процедура устанавливает цвет фона изображения - один из цветов используемой палитры. Параметр Color - определяет новый цвет фона.

Цвет фона определяется не для окна, а для всего экрана. Коды цветов фона могут находиться в диапазоне от 0 до 15, в зависимости от используемых драйвера и графического режима. Напомним, что в текстовом режиме для фона можно использовать только первую половину набора доступных цветов. Например, обращение SetBkColor(red) окрасит фон в красный цвет, или SetBkColor(5) - окрасит фон в фиолетовый цвет. Допускается использование в качестве параметра Color как имя константы, так и код.

В ряде случаев порядок следования цветов в стандартных палитрах может не удовлетворять программиста. Если требуется изменить расположение одного или нескольких цветов, можно воспользоваться процедурой SetPalette.

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

Procedure SetPalette (Cut: Word; Paste: Shortint)

Данная процедура заменяет один из цветов в палитре новым цветом. Параметр Cut - код цвета в палитре (т.е. тот цвет, который будем менять), Paste - код нового цвета (т.е. тот цвет, на который меняют старый).

Процедура заменяет цвет, ассоциированный с кодом Cut, на цвет, код которого Paste. Например, обращение SetPalette(9,11) (или SetPalette(9,LightCyan), что то же самое) меняет цвет в палитре с кодом 9 (синий) на цвет с кодом 11 (светло - бирюзовый). После этого все, что было изображено на экране синим цветом, изменит свой цвет на светло-бирюзовый.

При построении изображения различные замкнутые области можно закрасить либо сплошным цветом, либо некоторым узором. Для этого используют процедуру SetFillStyle.

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

Procedure SetFillStyle (Pattern: Word; Color: Word)

Данная процедура определяет шаблон и цвет заполнения. Параметр Pattern - определяет шаблон заполнения (см. таблицу), Color - цвет заполнения.

Заполнение - операция, позволяющая некоторый замкнутый контур закрасить сплошным цветом (например, цветом фона или текущим цветом) либо заполнить его некоторым узором. В модуле Graph имеется несколько готовых (стандартных) шаблонов заполнения, с каждым их которых ассоциирована мнемоническая константа. Перечень этих шаблонов представлен в таблице 7.

Таблица 7 Константы, коды и образцы заполнений

Имя константы	код	Заполнение
EmptyFill		Сплошное заполнение цветом фона (без узора)
SolidFill		Сплошное заполнение текущим цветом
LineFill		Заполнение символами --, цвет - color
LtSlashFill		Заполнение символами // нормальной толщины, цвет - color
SlashFill		Заполнение символами // удвоенной толщины, цвет - color
BkSlashFill		Заполнение символами \\ удвоенной толщины, цвет - color
LtBkSlashFill		Заполнение символами \\ нормальной толщины, цвет - color
HatchFill		Заполнение вертикально-горизонтальной штриховкой тонкими линиями, цвет - color
XHatchFill		Заполнение штриховкой крест-накрест по диагонали "редкими" тонкими линиями, цвет -color
InterLeaveFill		Заполнение штриховкой крест-накрест по диагонали "частыми" тонкими линиями, цвет -color
WideDotFill		Заполнение "редкими" точками
CloseDotFill		Заполнение "частыми" точками
UserFill		Шаблон заполнения, определённый пользователем

По умолчанию используются константа SolidFill(код 1) и цвет с максимальным номером из текущей палитры. Шаблон и цвет, определённые процедурой SetFillStyle, применяется всеми процедурами и функциями, в которых используется операция заполнения

Дата добавления: 2014-01-11