на дисплеї, що не тільки визначає ступінь розбірливості та привабливості зображення, але і в кінцевому підсумку може впливати на фізіологічний стан користувача. <В
Завдання типу заливки
У модулі Graph передбачені процедури, за допомогою яких можна заповнити (залити) певним В«візерункомВ» будь-яку замкнуту область зображення. Вид В«візерункаВ» задається так званим шаблоном заливки. У Турбо Паскалі зумовлений ряд стандартних шаблонів, але крім того, є можливість конструювати власні.
Призначення шаблону заповнення (заливки) проводиться процедурою
SetFillStyle (Pattern: Word; Color: Word)
де параметр Pattern визначає вид шаблону заливки, a Color - його колір. Всі дозволені значення параметра Pattern зумовлені в модулі Graph у вигляді констант:
CONST
EmptyFill
= 0
{суцільна заливка кольором фону}
SolidFill
= 1
{суцільна заливка поточним кольором}
LineFill
= 2
{заливка типу ===}
LtSlashFill
= 3
{заливка типу// /}
SlashFill
= 4
{заливка жирними лініями типу// /}
BkSlashFill
= 5
{заливка жирними лініями типу }
LtBkSlashFill
= 6
{заливка типу }
HatchFill
= 7
{заливка рідкісної штрихуванням}
XHatchFill
= 8
{заливка частою штрихуванням}
InterleaveFill
= 9
{заливка переривчастою лінією}
WideDotFill
= 10
{заливка рідкісними точками}
CloseDotFill
= 11
{заливка частими точками}
UserFill
= 12
{заливка, певна програмістом}
Константа UserFill використовується для визначення типу заливки, який попередньо був заданий в програмі. Для завдання свого нового шаблону необхідно скористатися процедурою
SetFillPattern ( PattMatrix : FillPatternType ; Color : Word )
передавши їй в параметрі PattMatrix матрицю шаблону заливки і вказавши колір параметром Color. Ця процедура по дії аналогічна SetFillStyle, але встановлює тільки В«СаморобніВ» шаблони. Процедура SetFillStyle зручніше, особливо в додатках ділової графіки (Гістограми, кругові діаграми і т.п.). Задаючи хоча б раз новий шаблон, ми автоматично пов'язуємо його із значенням UserFill і далі можемо маніпулювати всіма тринадцятьма шаблонами. Якщо ж задати UserFill, не визначивши перед цим новий шаблон, то функція GraphResult поверне значення -11 (grError) і всі установки виду шаблону і кольору залишаться колишніми. За замовчуванням встановлюється шаблон SolidFill і колір с. номером, максимальним для поточного графічного режиму.
В обох процедурах призначення шаблону мінлива Color визначає колір, яким виповнюється шаблон. Колір фону при цьому залишається незмінним. p> {Демонстрація стандартних типів штрихування}
Program FillStDem;
Uses CRT, Graph;
Var
d, r, e, i, j, x, y: integer;
Begin
d: = Detect;
InitGraph (d, r,'');
e: = GraphResult;
if e <> grOk then
writeln (GraphErrorMsg (e))
else
begin
SetGraphMode (0);
x: = GetMaxX div 9;
y: = GetMaxY div 7;
for j: = 0 to 2 do
for i: = 0 to 3 do
begin
Rectangle ((2 * i) * x, (2 * j +1) * y,
(2 * i +1) * x, (2 * j +2) * y);
SetFillStyle (i + j * 4, j +1);
Bar ((2 * i) * x +1, (2 * j +1) * y +1,
(2 * i +1) * x-1, (2 * j +2) * y-1);
end;
<...
