SetFillStyle.
PutPixelfX, Y: integer; ел_зображ : word) - процедура зафарбовує точку з координатами (X, Y) у колір, що визначається параметром «ел_зображ».
RectanglefXl, Yl, Х2, Y2: integer) - процедура вичерчує прямокутник, використовуючи поточний колір і тип лінії. (X1, Y1) та (Х2, Y2) - координати діагонально протилежних вершин прямокутника.
Sector (X, У: integer; поч_кут, кін_кут,Х_Радіус, Y_Padiyc: word)— процедура вичерчує і заповнює еліптичний сектор. (X, У) - центр кола, «ХРадіус», «YPaдiyc» - горизонтальний і вертикальний радіуси. Сектор креслиться від початкового «поч_кут» до кінцевого кута «кін_кут». Сектор малюється поточним кольором і зафарбовується з використанням зразка зафарбування і кольорів, заданих за допомогою процедури SetFillStyle.
SetBkColor (колір: word) - процедура встановлює поточний колір тла.
SelColor(Koлip: word) - встановлює поточний колір малювання.
SetFillStyle( зразок : word; колір :р word) - процедура встановлює зразок і колір зафарбування для всіх типів зафарбування, виконуваних процедурами Bar, Bar3D, FillEllipse, FloodFill та PieSlice. Можна використовувати кілька типів зафарбування (наприклад, 1 - суцільне фарбування, 2 - штрихування лініями, 7 - штрихування символом «+», 11 - штрихування крапками тощо).
SetLineStyle(mun_pHdKa :word; зразок: word; товщина : word) - процедура встановлює поточну товщину і тип лінії.
SetTextJustify(ropu3, верт : word) - процедура встановлює значення вирівнювання тексту, що використовуються процедурами OutText і OutTextXY.
SetTextStyle (шрифт: word; направл: word; розм_символу: CharSize-турі) - процедура встановлює поточний шрифт символу.
SetViewport(XI, Yl, XI, Х2 word, clip: boolean) - процедура встановлює для графічного поточного виведення чи перегляду вікно, де (X1,Y1) -верхній лівий кут області перегляду, (Х2, Y2) - нижній правий кут. Процедура переміщує поточний покажчик у точку з координатами (0,0). Clip - булівська змінна.
УРОК 31. Побудова графічних зображень
Мета уроку: показати можливості роботи в графічному режимі на прикладах розв’язання задач.
На цьому уроці пропонується розв ‘язати цікаві задачі із застосуванням графічного режиму роботи монітору.
ЗАДАЧА № 604
Умова: Скласти програму, яка при натисканні клавіші Д (день) малює сонце, а при натисканні клавіші Н (ніч) малює місяць.
Розв’язування: По-перше, для вибору малюнку (день чи ніч) введемо символьну змінну Ch, залежно від значення якої і будемо малювати сонце чи місяць. По-друге, малювання сонця складається з малювання зафарбованого кола процедурою FillEllipse (ця процедура малює зафарбований еліпс, але, якщо еліпс має однакові радіуси по осям, то він перетворюється на коло) та кількох прямих (променів), а місяць можна отримати, якщо накласти одне на одне два кола різних кольорів (жовтого та чорного) з деяким зміщенням. Програма має вигляд:
Program Example_604;
Uses graph,crt; {Підключення бібліотек}
Var GraphDriver,GraphMode:integer;
Ch:char;
Begin
Clrscr;
Writeln(‘Введіть Ваш вибір: Д - день, Н - ніч.’);
Readln(ch);
GraphDriver:=VGA; {Ініціалізація графічного режиму)
GraphMode:=VGAHi;
InitGraph(GraphDriver,GraphMode,’’);
if (Сh=’Д’) or (Ch=’д’) then
begin
setfillstyle(l,yellow);
