Главная страница | Контакты | Случайная страница Автомобили Астрономия Биология География Дом и сад Другие языки Другое Информатика История Культура Литература Логика Математика Медицина Металлургия Механика Образование Охрана труда Педагогика Политика Право Психология Религия Риторика Социология Спорт Строительство Технология Туризм Физика Философия Финансы Химия Черчение Экология Экономика Электроника

Определение графического драйвера;

Установка графического режима;

Инициализация графического режима;

Построения;

Закрытие графического режима.

Напишем заготовку типовой программы работы с графикой:

Program primer;

Uses graph;

var

D,m: integer: {переменные для установки драйвера, режима}

Begin

D:= detect;

InirGraph(d,m, ‘путь к драйверу’);

If GrapfResult=0 then {если инициализация прошла успешно}

begin

<описание всех ваших построений>

closeGraph;

end

else writeln (‘произошла ошибка при инициализации графики’);

end.

Некоторые процедуры для работы с графикой

Установка цвета. Драйвер EGAVGA.BGI позволяет использовать 16 цветов. Каждому цвету присвоен код – целое число, которое используется процедурами и функциями.

Таблица 2. Константы цветов

Цвет выводимых в графическом режиме на экран линий и символов можно задать процедурой

SetColor (color: word);

аргумент которой – целое число от 0 до 15 или имя одной из приведенных выше констант.

Установка цвета действует на те линии и тексты, которые выводятся после ее вызова, но не меняет цвет линий и символов, выведенных на экран ранее. Таким образом, процедуру SetColor следует вызывать каждый раз перед выбором нового цвета. Если цвет не установлен, то используется белый цвет.

Установка цвета фона

Чтобы установить цвет фона для всего экрана, используется процедура:

SetBkColor (color: word);

Если процедура установки цвета фона не вызвана, экран будет черным.

Установка указателя вывода

Процедура MoveTo (x,y: integer) перемещает указатель в точку с координатами x,y.

Процедура MoveRel (dx,dy: integer) перемещает указатель на dx, dy пикселей относительно последнего положения.

Функции GetX и GetY возвращают координаты x, y указателя вывода.

Установка точки

Процедура PutPixel (x,y: integer; color: word) устанавливает точку с координатами (x,y) и закрашивает ее указанным цветом color.

Функция GetPixel (x,y: integer): word возвращает значение цвета, в который окрашена точка с координатами (x,y).