Процедура DrawPoly

Модуль GRAPH

Рисует контур многоугольника, используя текущий цвет и тип линии.

Объявление:

Procedure DrawPoly(NumPoints : Word; Var PolyPoints);

Режим:

Real, Protected

Замечание:

Параметр NumPoints определяет число элементов в параметре PolyPoints. Каждый элемент состоит из двух значений - X и Y. Заметьте, что для рисования замкнутой фигуры с N гранями, в параметре PolyPoints должно содержаться N+1 компонентов (координаты начальной и конечной точек должны совпадать).

Ограничения:

Нужно быть в графическом режиме.

Пример:

{Пример программы для процедуры Drawpoly}

Uses Graph;

Const Triangle:Array[1..4] Of PointType=((X: 50; Y: 100),
                                         (X: 100; Y:100),
                                         (X: 150; Y: 150),
                                         (X:  50; Y: 100));
Var Gd, Gm : Integer;

Begin
 Gd:=Detect;
 InitGraph(Gd, Gm, '');
 If GraphResult <> grOk Then Halt(1);
 DrawPoly(SizeOf(Triangle) Div SizeOf(PointType), Triangle);
 ReadLn;
 CloseGraph;
End.