Turbo Pascal Documentation

Процедура DrawPoly

Модуль Graph

     Функция: Используя текущий тип прямой  и  текущий  цвет
рисует контур многоугольника.
     Описание: DrawPoly(числ_коорд : word; var коорд_верш)
     Примечания: Параметр "коорд_верш" является нетипизован-
ным  параметром, который содержит координаты каждого пересе-
чения в многоугольнике. Параметр "числ_коорд"  задает  число
координат  в  "коорд_верш". Координата состоит из двух слов:
значения x и значения y.
     Данная процедура использует текущий тип линии и текущий
цвет.
     Если при вычерчивании многоугольника происходит ошибка,
то функция GraphResult будет возвращать значение -6.
     Заметим, что для вычерчивания замкнутой фигуры с n вер-
шинами вы должны передать при обращении к процедуре DrawPoly
n + 1 координату, где координата вершины с номером  n  будет
равна  координате  вершины с номером 1 (см. приведенный ниже
пример).
     Аналогичная процедура имеется в версии 2.0 Турбо-Си.
     Ограничения: Должен использоваться графический режим.
     Прочее: См. также процедуры FillPoly,  GetLineSettings,
SetColor, SetLineStyle, GraphResult.
     Пример:

const Triangle : array[1..4] of PolyPoint =
   ((x: 10; y: 100),
    (x: 100; y: 100),
    (x: 150; y: 150),
    (x: 50; y: 100);
  begin
    ...
    DrawPoly(SizeOf(Triangle)
             div SizeOf(PolyPoint),             { 4 }
             Triangle);
    ...
    end.