HOME ПРИМЕРЫ THANKS НОВИЧКАМ ДОКИ LINKS JavaScript Mail


 
В этот день много лет назад...
23 ноября. В 1942 году (75 лет назад) - Завершается окружение 330-тысячной немецкой группировки под Сталинградом. Гитлер отдает приказ немецким армиям под Сталинградом любой ценой удерживать свои позиции.
 
 

Turbo Pascal Documentation

Процедура SetAspectRatio

Модуль Graph


     Функция: Изменяет принятое по умолчанию значение  коэф-
фициента относительного удлиннения.
     Описание: SetAspectRatio(Xasp, Yasp, : word)
     Тип результата: Слово (word).
     Примечания: Процедура  SetAspectRatio  применяется  для
изменения  принятого  по умолчанию для текущего графического
режима коэффициента относительного  удлиннения.  Коэффициент
относительного  удлиннения используется при вычерчивании ок-
ружностей. Если окружность  выглядит  эллиптической,  значит
монитор  не  настроен должным образом. Его можно настроить с
помощью аппратных средств или программным путем,  изменив  с
помощью  процедуры SetAspectRatio коэффициент относительного
удлиннения. Для получения текущего коэффициента  относитель-
ного удлиннения можно использовать процедуру GetAspectRatio.
     Аналогичная процедура имеется в версии 2.0 Турбо-Си.
      Ограничения: Должен использоваться графический режим.
     Прочее: См. также процедуру GetAspectRatio.
     Пример:

  uses
    Crt, Graph;
  const
    R = 50;
  var
    Driver, Mode: integer;
    Xasp, Yasp: word;
  begin
    DirectVideo := false;
    Driver := Detect; { перевести в графический режим }
    InitGraph(Driver, Mode, '');
    if GraphResult <> 0 then
       Halt(1)
    GetAspectRatio(Xasp, Yasp); { получить используемый по
                                 умолчанию коэффициент
                                 относительного удлиннения }
    { Настроить на VGA и 8514. При этом коэффициент
      относительного удлиннения = 1.1 }
    if Xasp = Yasp then
       Xasp := 5 * Xasp;
    { Продолжить изменение значения коэффициента
      относительного удлиннения до получения 1:1 или пока
      не будет нажата клавиша }
     while (Xasp < Yasp) and not KeyPreaaed do
     begin
       GetAspectRatio(Xasp, Yasp);
       Circle(GatMaxX div 2, GetMaxY div 2, R);
       Inc(Xasp, 20);
     end;
     SetTextJustify(CenterText, CenterText);
     OutTextXY(GetMaxX div 2, GetMaxY div 2, 'Выполнено!');
     Readln;
     CloseGraph;
   end.




HOME