Сабақтың тақырыбы: "Графикалық фигуралардың атрибуттері"

1. Графикалық фигуралардың атрибуттері

   1. Тҥсті және стильді қою

Графикалық фигуралардың сыртқы және ішкі аймақтарын толтыру ҥшін, алдын ала анықталған (стандартты) толтыру- символдар комбинацияларын –маска деп атайық.

Пайдаланушыларға ыңғайлы болу ҥшін, GRAPH модуліне, осындай маскалардың бір тобы енгізілген. Маска, қойылған палитра ҥшін мҥмкін болатын, тҥстерге боялады. Мысалы, экран әртҥрлі тҥсті және бағытты штрихпен, әртҥрлі тығызды нҥктелермен және т.б. толтырылуы мҥмкін.

Толтыру стилі – деп, маска – түс комбинациясын атайды. Алдын ала анықталған стандартты толтыру стильдермен (16.4-

кесте) жҧмыс жасау ҥшін GetFillSettings және SetFillStyle функциялары қолданылады.

SetFillStyle (Pattern: word; Color: word) – функциясы Pattern – маскасын және оның тҥсін – Color қояды, яғни толтыру стилін анықтайды.

Pattern-ң мәнін 16.10-кестеде келтірілген тұрақты немесе цифр

тҥрінде ҧсынуға болады, ал Color қойылған палитрадан алынады.

Келесі мысалда EGA/VGA адаптері ҥшін 16–тҥстік палитра қолданылған:

SetFillStyle(SlashFill,Yellow);

Bar(10,10,50,150); {Баған сары түсті // маскасымен толтырылған}

1. -кесте

GetFillSettings (var Inf: FillSettingsType) – процедурасы,

масканың және түстің коды (стиль) туралы ақпарат береді.

Қайтарылған ақпарат (масканың және түстің коды) Inf

айнымалысында тҧрады, ол мына типті болады:

FillSettingsType = record Pattern word;

Color word

end;

Дәл осы сәтте қойылған стандартты маска және оның тҥсі туралы ақпаратты шығару мысалы:

program DemoGetFillSetting;

uses Crt, Graph;

begin

DriverVar, ModeVar: integer; Inf : FillSettingsType;

DriverVar:=Detect; : InitGraph(DriverVar,ModeVar,'c:\bp\bgi'); GetFillSettings(Inf);

CloseGraph; with Inf do begin

Writeln('Маска =', Pattern); Writeln(‗Цвет =', Color) end;

Readln;