Turbo Pascal Documentation

Процедура PieSlice

Модуль Graph

     Функция: Рисует и заполняет цветом сектор круга.  Точка
(Х,Y)  при этом используется в качестве центра окружности, а
сектор рисуется от начального угла до конечного угла.
     Описание: PieSlice(х, у : integer; нач_угол,  кон_угол,
радиус : word)
     Примечания: Контур сектора вычерчивается  текущим  цве-
том,  а  при  закрашивании используются тип и цвет закраски,
заданные процедурами SetFillStyle и SetFillPattern.
     В каждом графическом  драйвере  содержится  коэффициент
относительного удлиннения, который используется в процедурах
Сircle, Аrс и РieSlice. Начальный угол, равный 0 и  конечный
угол, равный 359, задают вычерчивание полной окружности.
     Ограничения: Должен использоваться графический режим.
     Прочее:  См.  также  процедуры  Arc,  Circle,  Ellipse,
GetArcCoods, GetAspectRatio, SetFillStyle, SetFillPatern.
     Пример:

uses Graph;
const
   Radius = 30;
  var
   Gr, Gm : integer;
begin
   Gd := Detect;
   InitGraph(Gd, Gm, '');
   if GraphResult <> grOk then
      Halt(1);
PieSlice(100, 100, 0, 270, Radius);
Readln;
CloseGraph;
end.