Главная Случайная страница Контакты | Мы поможем в написании вашей работы! | ||
|
Возвращает два числа, позволяющие оценить соотношение сторон экрана.
Заголовок:
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.
Дата публикования: 2015-06-12; Прочитано: 217 | Нарушение авторского права страницы | Мы поможем в написании вашей работы!