Turbo Pascal Documentation

Процедура Ellipse

Модуль Graph

     Функция: Рисует эллиптическую дугу от  начального  угла
до конечного угла, используя (Х,Y) в качестве точки центра.
     Описание: Еllipsе(Х, Y : integer; нач_угол, кон_угол  :
word; радХ, радУ : word)
     Примечания: Процедура рисует  эллиптическую  дугу,  ис-
пользуя  (Х,Y), как точку центра, а "радХ", "радУ" - как го-
ризонтальную и вертикальную оси. Дуга эллипса  вычерчивается
от  начального  угла (параметр "нач_угол") до конечного угла
(параметр "кон_угол") текущим цветом.
     Значение начального угла, равное 0, и  конечного  угла,
равное  359,  приведут  к вычерчиванию полного эллипса. Углы
для процедур Arc, Ellipse и PieSlice задаются по направлению
часовой стрелки. При этом значение (в градусах) 0 соответст-
вует 3 часам, 90 градусом - 12 часам  и  т.д.  Информацию  о
последнам  вызове процедуры Ellipse можно получить с помощью
процедуры GetArcCoords.
     Аналогичная процедура имеется в версии 2.0 Турбо-си.
     Ограничения: Должен использоваться графический режим.
     Прочее: См. также Circle, Arc, PieSlice,  GetArcCoords,
GetAspectRatio.
     Пример:

  Uses Graph;
  var
    Gd, Gm: integer;
  begin
     Gd := Detect;
    InitGraph(Gd, Gm, '');
    If GraphResult <> grOk then
    Halt(1);
Ellipse(100,100,0,20,30,50);
Ellipse(100,100,90,180,50,30);
Readln;
CloseGraph;
end.