Процедура Circle

Модуль GRAPH

Рисует окружность текущим цветом, используя точку (X, Y) как центр и параметром Radius как радиус данной окружности.

Объявление:

Procedure Circle(X, Y : Integer; Radius : Word);

Режим:

Real, Protected

Замечание:

Рисует окружность текущим цветом, установленным обращением к SetColor и радиусом равным Radius (в пикселах), используя точку с координатами (X, Y) как центр. Каждый графический драйвер содержит коэффициент сжатия, используемый процедурами Circle, Arc и PieSlice.

Ограничения:

Нужно быть в графическом режиме.

Пример:

{Пример программы для процедуры Circle}

Uses Graph;

Var Gd, Gm : Integer;
    Radius : Integer;
Begin
 Gd:=Detect;
 InitGraph(Gd, Gm, '');
 If GraphResult<>grOk Then Halt(1);
 For Radius:=1 To 5 Do Circle(100, 100, Radius * 10);
 ReadLn;
 CloseGraph;
End.