Процедура Arc Pascal-Паскаль
Описание
Arc - Рисует дугу окружности.
Объявление: | Procedure Arc(X, Y : Integer; StAngle, EndAngle, Radius : Word); |
---|---|
Режим: | Real, Protected |
Замечания:
Дуга идет из угла StAngle к EndAngle, с радиусом Radius, используя точку с координатами (X, Y), как центр окружности.
Ограничения:
Нужно быть в графическом режиме.
Пример программы для процедуры Arc
Uses Graph;
Var Gd, Gm : Integer;
Radius : Integer;
Begin
Gd:=Detect;
InitGraph(Gd, Gm, 'C:\BP\BGI'); { Путь к 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, 'C:\BP\BGI'); { Путь к BGI драйверам }
If GraphResult <> grOk Then Halt(1);
For Radius:=1 To 5 Do Arc(100, 100, 0, 90, Radius * 10);
ReadLn;
CloseGraph;
End.
- Circle
- Ellipse
- GetArcCoords
- GetAspectRatio
- PieSlice