Sector (процедура) (модуль Graph)

Язык:
Русский
English

 Sector (процедура)   (модуль Graph)


Рисует и закрашивает сектор эллипса.

Объявление

 Procedure Sector(X, Y : Integer; StAngle, EndAngle, XRadius, YRadius : Word);

Режим

Real, Protected

Замечания

Использует (X, Y) как координаты центра, XRadius и YRadius определяют горизонтальный и вертикальный радиусы соответственно. Sector рисует сектор от StAngle до EndAngle, с внешней границей текущего цвета и закрашивает его стилем и цветом определенными SetFillStyle и SetFillPattern.

При начальном угле равном 0 и конечном равном 360 Sector будет рисовать и закрашивать полный эллипс. Углы для процедур Arc, Ellips, FillEllipse, PieSlice и Sector отсчитываются против часовой стрелки. Например, 0 градусов в 3 часах, 90 градусов в 12 часах, 180 градусов в 9 часах и так далее.

Если при заполнении сектора происходит ошибка, то GraphResult возвращает значение grNoScanMem.

Ограничения

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

Смотри также

Пример

Язык:
Русский
English


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

uses Graph;

const R = 50;

var
  Driver, Mode : Integer;
  Xasp, Yasp   : Word;
begin
 { Инициализируем графику }
  Driver := Detect;
  InitGraph(Driver, Mode, 'X:\BP');
 if GraphResult < 0 then
   Halt(1);
  Sector(GetMaxX div 2, GetMaxY div 2, 0, 45, R, R);
 { Рисуем эллипс в виде окружности }
  GetAspectRatio(Xasp, Yasp);
  Sector(GetMaxX div 2, GetMaxY div 2, 180,
        135, R, R * LongInt(Xasp) div Yasp);
 ReadLn;
  CloseGraph;
end.
Тэги: Sector
| G+
Код для вставки: :: :: :: ::
Поделиться: // //