Многоугольник

Процедура FillPoly (N: integer; Var PolyPoints) рисует и штрихует многоугольник, содержащий N вершин с координатами в поле PolyPoints

Допустим, нам надо нарисовать многоугольник с пятью вершинами (N=5), для этого надо все вершины записать по порядку в массив:

 

Пример 1. Одномерный массив типа PointType с координатами вершин многоугольника задается в разделе const. Фрагмент программы представлен на рис.3.

Рис.3. Закрашенный многоугольник

 

Пример 2. Координаты вершин многоугольника задаются в самой программе, а одномерный массив, содержащий координаты вершин – это переменная типа PointType. Фрагмент программы представлен на рис.4.

Рис.4. Закрашенный многоугольник

Рис.5. Пример закрашенного многоугольника