Друзья
Друзья


Модуль Graph

Circle(X, Y, Radius) - Рисует окружность текущим цветом, используя точку (X, Y) как центр и параметром Radius как радиус данной окружности.
Объявление:
Procedure Circle(X, Y : Integer; Radius : Word);
Режим:
Real, Protected
Замечания:

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

Нужно быть в графическом режиме.
Пример: 01 {Пример программы для процедуры Circle}
02
03 Uses Graph;
04
05 Var Gd, Gm : Integer;
06 Radius : Integer;
07 Begin
08 Gd:=Detect;
09 InitGraph(Gd, Gm, '');
10 If GraphResultgrOk Then Halt(1);
11 For Radius:=1 To 5 Do Circle(100, 100, Radius * 10);
12 ReadLn;
13 CloseGraph;
14 End.