HOME ПРИМЕРЫ THANKS НОВИЧКАМ ДОКИ LINKS JavaScript Mail


 
В этот день много лет назад...
20 января. В 1714 году (305 лет назад) - Петр I издает указ, уникальный в русской истории, согласно которому дворянину, не постигшему основ знаний, необходимых для службы, запрещается жениться... Под вопли родителей дворянские отроки станут отправляться за счет государства за границу, где будут обучаться различным специальностям.
 
 

Turbo Pascal Documentation

Процедура Sector

Модуль Graph


     Функция: Вычерчивает и заполняет эллиптический сектор.
     Описание: Sector(x, y  :  integer;  нач_угол,  кон_угол
XРадиус, YРадиус : word)
     Примечания: Процедура использует (X,Y), как точку  цен-
тра, парметры "XРадиус", "YРадиус" определяют, соответствен-
но, горизонтальный и вертикальный радиусы. Сектор вычерчива-
ется   от  начального  угла  "нач_угол"  до  конечного  угла
"кон_угол". Сектор рисуется текущим цветом и закрашивается с
использованием  образца закразки и цвета, заданных с помощью
процедур SetFillStyle или SetFillPattern.
     Если задан начальный угол 0 и конечный угол 360, то бу-
дет  нарисован  и  закрашен полный эллипс. Углы для процедур
Arc, Ellipse, FillEllipse, PieSlice задаются против  часовой
стрелки, при этом углу 0 соответствует 3 часа, 90 градусов -
12 часов и т.д.
     Если при заполении сектора происходит ошибка, то  функ-
ция GraphResult возвращает значение -6 (grNoScanMem).
     Аналогичная процедура имеется в версии 2.0 Турбо-Си.
     Ограничения: Должен использоваться графический режим.
     Пример:

  uses
     Graph;
  const
    R = 50;
  var
    Driver, Mode : integer;
    Xasp, Yasp : word;
  begin
    Driver := Detect;   { перевести в графический режим }
    InitGraph(Driver, Mode, '');
    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.




HOME