Алгоритмические языки и программирование. Часть 3. Модули в Турбо Паскале. Игошина Л.В. - 28 стр.

                                                                             28




экрана определяются с помощью двух функций: GetMaxX - по горизонтали и
GetMaxY - по вертикали. Обе функции выдают результат типа Integer.
      Все координаты в графическом режиме задаются в пикселях и имеют тип
Integer.
      Для перемещения графического курсора используются две процедуры:
      MoveTo(X,Y) - перемещение в точку с координатами X и Y;
      MoveRel(dx,dy) - перемещение курсора на dx - пикселей по горизонтали
                       dy - пикселей по вертикали.
      Кроме того, курсор перемещается также во время выполнения некоторых
процедур, например при рисовании линий, выводе текстовой информации.

                       2.2.3 Управление цветом пера и фона

      Различные адаптеры поддерживают разное количество цветов, выводимых
одновременно на экран в графическом режиме. Но для всех драйверов фирмы
Borland (т.е. BGI - драйверов) число цветов ограничено диапазоном от 0 до 15.
Нумерация и имена констант, задающих цвета, такие же как в текстовом режиме.
      Максимальный номер цвета, воспринимаемый данным адаптером в
текущем графическом режиме, может быть определен с помощью функции
GetMaxColor, тип ее результата Word.
      На экране в графическом режиме различают цвет фона и цвет пера. Все
процедуры, рисующие фигуры, линии, выводящие текст делают это цветом пера
(кроме тех случаев, когда в этих процедурах есть явная установка цвета).
      Цвет пера устанавливается процедурой             SetColor(Color), Color -
переменная типа Word, выбираемая из диапазона от 0 до GetMaxColor (для
адаптера VGA от 0 до 15).
      Цвет фона устанавливается процедурой SetBkColor(Color), Color -
переменная типа Word, выбираемая из диапазона от 0 до GetMaxColor.
      При инициализации графики по умолчанию цвет фона равен 0 (черный -
Black), а цвет пера равен значению GetMaxColor ( для VGA равен 15 - White -
белый).
      Установка нового цвета фона немедленно изменяет цвет графического
экрана. Это означает, что нельзя создать изображение два участка которого имели
бы разный цвет фона.
      Для определения текущих значений цвета фона и пера используются
функции GetBkColor и GetColor, выдающие результат типа Word.
      Следующая программа демонстрирует назначение цветов фона и пера.
    Uses graph;
      Var xmax,ymax:word;
           sc,scc,sx,sy:string; c,cc:word;
{Здесь должна располагаться процедура инициализации графического режима}

Procedure Ris;
begin
 xmax:=getmaxx; ymax:=getmaxy; { Определение размеров экрана}
                                                                             28