Circle (процедура) (модуль Graph)

Язык:
Русский
English

 Circle (процедура)    (модуль Graph)


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

Объявление

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

Режим

Real, Protected

Замечания

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

Окружность — это замкнутая линия без внутренней части плоскости. Круг можно нарисовать процедурой FillEllipse.

Ограничения

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

Образец

Допустим, нужно нарисовать окружность в стандартном графическом режиме 640x480. Сделав небольшие прикидки, получаем координаты:

Теперь воплощаем это в программном коде:

program DrawCir;

uses Graph, Crt;


var Gd, Gm : Integer;
begin
  InitGraph(Gd, Gm, '');
  Circle(360, 280, 80);
  ReadKey;
  CloseGraph;
end.

Вуаля, получается окружность:

Смотри также

Пример

Язык:
Русский
English


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

uses Graph;

var
  Gd, Gm : Integer;
  Radius : Integer;
begin
  Gd := Detect;
  InitGraph(Gd, Gm, 'X:\BP'); { Путь к BGI драйверам }
 if GraphResult <> grOk then
   Halt(1);
 for Radius := 1 to 5 do
    Circle(100, 100, Radius * 10);
 ReadLn;
  CloseGraph;
end.

Продвинутые примеры

Пример: Мяч в кресте

Код для вставки: :: :: :: ::
Поделиться: // //