Одесский колледж компьютерных технологий “СЕРВЕР”

FillPoly(Numpionts,Polypoints) Построение закрашенно-

го многоугольника

GetMaxX Возвращает максимальную горизонтальную координату графического экрана.

GetMaxY Возвращает максимальную вертикальную координату графического экрана.

Sector(x,y, Stangle,Endangle, Xradius,Yradius) Рисует и закрашивает сектор эллипса радиусами Xradius,Yradius, с центром в x,y, от начального угла Stangle к конечному Endangle.

SetLineStyle (Linestyle, Pattern, Thickness) Устанавлива-

ет стиль линии

Linestyle

0Сплошная

1Точечная

2Штрихпунктирная

3Пунктирная

4Тип определяется пользователем

Thickness

1 Нормальная толщина

3 Тройная толщина

Пример: построить случайные многоугольники с пятью вершинами.

Var …

Points : Array [1..6,1..2] of Integer;

Begin

…

Randomize;

ClearDevice;

{определение случайных координат вершин} for i : = 1 to 5 do begin

Points[i,1]: =Random (GetMaxX);

Points[i,2]: =Random (GetMaxY);

end;

12