Процедура GetAspectRatio

Модуль GRAPH

Возвращает два числа, из которых может быть вычислен коэффициент сжатия.

Объявление:

Procedure GetAspectRatio(Var XAsp, YAsp : Word);

Режим:

Real, Protected

Замечание:

Коэффициент сжатия равен XAsp:YAsp.

Пример:

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

Uses Graph;

Var
 Gd, Gm: Integer;
 Xasp, Yasp: Word;
 XSideLength: Integer;
 YSideLength: Integer;

Begin
 Gd:=Detect;
 InitGraph(Gd, Gm, '');
 If GraphResult <> grOk Then Halt(1);
 GetAspectRatio(Xasp, Yasp);
 XSideLength := 20;

 { Просчитываем значение Y }
 YSideLength:=Round( (Xasp / Yasp) * XSideLength);

 { Рисуем квадрат }
 Rectangle(0, 0, XSideLength, YSideLength);
 ReadLn;
 CloseGraph;
End.