Правила форума
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. Сделав небольшие прикидки, получаем координаты:
Теперь воплощаем это в программном коде:
uses Graph, Crt;
var Gd, Gm : Integer;
begin
InitGraph(Gd, Gm, '');
Circle(360, 280, 80);
ReadKey;
CloseGraph;
end.
Вуаля, получается окружность:
Смотри также
Пример
Язык:
Русский
English
{ Пример программы для процедуры Circle }
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.
::
::
::
