Turbo Pascal Documentation

Процедура FillPoly

Модуль Graph

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

  const
  Pentagon : array[1..6] of PointType =
    ((x: 50; y: 50),
     (x: 75; y: 75),
     (x: 62; y: 100),
     (x: 48; y: 100),
     (x: 25, y: 75),
     (x: 50, y: 50));
  begin
   ...
   DrawPoly(SizeOf(Pentagon)
           div SizeOf(PointType), Pentagon);
   FillPoly(SizeOf(Pentagon)
           div SizeOf(PointType), Pentagon);
  ...
  end.