Суцільне кольором зображення SolidFill
Горизонтальними лiнiями LineFill
Похилими лiнiями LtslashFill
Похилими товстими лiнiями SlashFill
Похилими зворотними товстими лiнiями BkslashFill
Похилими зворотними лiнiями LtbkslashFill
Прямокутною горизонтальною штриховкою HatchFill
Косою штриховкою XhatchFill
Косою перекриваючою штриховкою InterleaveFill
Рiдкими крапками WideDotFill
Щiльне заповнення крапками CloseDotFill
SetLineStyle(тип, зразок, товщина); - процедура встановлює поточну товщину і тип лінії:
тип лінії: 0 –суцільна; 1 – крапчаста; 3 – штрихова; зразок: 0 – стандартна; товщина: 1 – тонка, 3 – товста.
SetTextStyle (шрифт, напрям, розм.) - процедура встановлює стиль тексту6 шрифт символів: 0 – звичайний, 1 – жирний,…, 4 – готика при наявності файлів шрифтів у бібліотеці; напрямок виведення: 0 – горизонтально чи 1 – вертикально, а також розміри символів: 1,2,…,10.
Задача 1. Нарисувати різними кольорами 10 концентричних кіл, які мають спільний центр у центрі екрана, тобто в точці з графічними координатами (320;240) і описати навколо кіл червоний трикутник.
program Circle10;
uses crt,graph;
var driver,mode,r:integer;
begin clrscr;
driver:=detect;
initgraph(driver,mode,’’);
r:=10;
while r<=10 do
begin
setcolor(r div 10);
circle(320,240,r);
r:=r+10
end;
setcolor(red);
rectangle(220,140,420,340)
end.
Для імітації руху зображення на екрані використовують чергування засвічень і гасінь цього зображення. Перед наступним засвічуванням об’єкт треба змістити в напрямку переміщення. Рух зображення на екрані називають анімацією. Для імітації руху зображень на екрані потрібно виконати такий алгоритм:
1. Нарисувати об’єкт у потрібній точці і зробити паузу.
2. Знищити об’єкт, замалювавши його кольором тла.
3. Змінити кординати об’єкта.
Перейти до пункту 1
Задача 2. Зобразити рух Сонця на блакитному небі в горизонтальному напрямку.
program Sun;
uses crt,graph;
var driver,mode,i :integer;
begin clrscr;
driver:=detect;
initgraph(driver,mode,’’);
i:=0;
while i<=750 do
begin
setcolor(14); setbkcolor(3);
setfillstyle(1,14);
circle(i,100,50);
floodfill(I,100,14);
delay(200); {пауза 0,2с}
setfillstyle(1,3); setcolor(3);
circle(i,100,50);
floodfill(I,100,3);
i:=i+5
end;
end.
