Turbo Pascal Documentation

Функция FillEllipse

Модуль Dos

     Функция: Рисует эллипс.
     Описание: FillEllipse(X, Y: integer; Храдиус,  Yрадиус:
word)
     Примечания: Используя точку с координатами (X,Y) в  ка-
честве центра, а Храдиус и Yрадиус - в качестве горизонталь-
ной и вертикальной осей, рисует закрашенный эллипс.
     Аналогичная программа имеется в версии 2.0 Турбо-Си.
     Ограничения: Должен использоваться графический режим.
     Прочее:  См. также   процедуры  Arc,  Circle,  Ellipse,
GetArcCoords, GetAspectRatio, PieSlice.
     Пример:

  uses
    Graph;
  const
    R = 30;
  var
     Driver, Mode: integer;
    Xasp, Yasp : word;
  begin
    Driver := Detect;      { переводит в графический режим }
    InitGraph(Driver, Mode, '');
    if GraphResult < 0 then
       Halt(1);
    { нарисовать эллипс }
    FillEllipse(GetMaxX div 2, GetMaxY div 2, 50, 50);
    GetAspectRatio(Xasp, Yasp);
    { "круглый" эллипс }
    FillEllipse(R, R, R, R, * LongInt(Xasp) div Yasp);
   readLn;
   CloseGraph;
  end.