Правила форума
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 }
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.
::
::
::
