sector.pas
Пример программы для процедуры Sector.
Код примера
{Sector.PAS}
{ Пример программы для процедуры Sector }
Uses Graph;
Const R = 50;
Var Driver, Mode : Integer;
Xasp, Yasp : Word;
Begin
{ Инициализируем графику }
Driver:=Detect;
InitGraph(Driver, Mode, '');
If GraphResult < 0 Then Halt(1);
Sector(GetMaxX Div 2, GetMaxY Div 2, 0, 45, R, R);
{ Рисуем эллипс в виде окружности }
GetAspectRatio(Xasp, Yasp);
Sector(GetMaxX div 2, GetMaxY div 2, 180,
135, R, R * LongInt(Xasp) Div Yasp);
ReadLn;
CloseGraph;
End.
Скачать sector.pas