Правила форума
GetAspectRatio (процедура) (Модуль Graph)Язык:
Русский
English
GetAspectRatio (процедура) (Модуль Graph)
Возвращает два числа, из которых может быть вычислен коэффициент сжатия.
Объявление
Procedure GetAspectRatio(Var XAsp, YAsp : Word);
Режим
Real, Protected
Замечания
Коэффициент сжатия равен XAsp:YAsp.
Смотри также
Пример
Язык:
Русский
English
{ Пример программы для процедуры GetAspectRatio }
uses Graph;
var
Gd, Gm : Integer;
Xasp, Yasp : Word;
XSideLength : Integer;
YSideLength : Integer;
begin
Gd := Detect;
InitGraph(Gd, Gm, 'X:\BP');
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.
var
Gd, Gm : Integer;
Xasp, Yasp : Word;
XSideLength : Integer;
YSideLength : Integer;
begin
Gd := Detect;
InitGraph(Gd, Gm, 'X:\BP');
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.
::
::
::
