Процедура GetAspectRatio

Возвращает два числа, позволяющие оценить соотношение сторон экрана.

Заголовок:

Procedure GetAspectRatio (var X,Y:Word);

Здесь, X и Y –переменные типа Word. Значения, возвращаемые в этих переменных позволяют вычислить отношение сторон графического экрана в пикселах. Найденный с их помощью коэффициент может использоваться при построении правильных геометрических фигур, таких как окружности, квадраты и т.п. Например, если необходимо построить квадрат со стороной L-пиксел по вертикали, необходимо использовать конструкции:

GetAspectRatio (Xap, Yap);

Rectangle (X1,Y1,X1+L,*round (Yap/Xap),Y1+L);

Если L определяет длину квадрата по горизонтали, то используется оператор:

Rectangle (X1,Y1,X1+L,Y1+L*round (Xap/Yap));

Процедура SetAspectRatio

Устанавливает масштабный коэффициент отношения сторон графического экрана.

Заголовок:

Procedure SetAspectRatio (X,Y:Word);

Здесь, X и Y – устанавливаемые соотношения сторон.

Пример:

Построить 20 окружностей с разными соотношениями сторон экрана.

Program DemoRatio;

Uses Graph;

Var

GrDriver, GrMode: integer; k,X1,Y1:Word

Begin

GrDriver:= Detect;

InitGraph (GrDriver, GrMode, 'C: |Bp|BGI');

SetBkColor (Blue);

GetAspectRatio (X1, Y1);

For k:=1 to 20 do

begin

SetAspectRatio (X1*10*k, Y1);

Circle(GetMax div 2, GetMaxY div 2,50);

readln;

End.