Правила форума
Arc (процедура) (модуль Graph)Язык:
Русский
English
Arc (процедура) (модуль Graph)
Рисует дугу окружности.
Объявление
Procedure Arc(X, Y : Integer; StAngle, EndAngle, Radius : Word);
Режим
Real, Protected
Замечания
Дуга идет из угла StAngle к EndAngle, с радиусом Radius, используя точку с координатами (X, Y), как центр окружности.
Ограничения
Нужно быть в графическом режиме.
Смотри также
Пример
Язык:
Русский
English
{Arc.PAS}
{ Пример программы для процедуры Arc }
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
Arc(100, 100, 0, 90, Radius * 10);
ReadLn;
CloseGraph;
end.
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
Arc(100, 100, 0, 90, Radius * 10);
ReadLn;
CloseGraph;
end.
::
::
::
