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


 
В этот день много лет назад...
19 апреля. В 1915 году (103 года назад) - Начинается Горлицкий прорыв. Русские отступают из Галиции, неся значительные потери (150000 человек убитыми и 700000 ранеными). Литва, Галиция и Польша переходят под контроль государств германо-австрийского блока.
 
 

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