Процедура GetAspectRatio
Модуль Graph
Возвращает два числа, из которых может быть вычислен коэффициент сжатия.
Объявление:
Procedure GetAspectRatio(Var XAsp, YAsp : Word);
Режим:
Замечания:
Коэффициент сжатия равен XAsp:YAsp.
Пример:
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.
См. также: