7. Предикаты работы с графикой.

Графические возможности Турбо-Пролога реализованы для двух уровней: пунк­тирной графики, когда используются команды вида "начертить линию, проходящую через указанные точки" и графики построения "от руки", с помощью цветного пера. Перед тем как использовать команды графики Турбо-Пролога, Вы должны установить экран в графический режим, а по его окончании очистить экран и вернуться к тексто­вому режиму. Заметим, что текст и графика могут вместе использоваться внутри окна и на полном экране. Графический предикат имеет форму:

graphics( Режим , Палитра, ЦветФона ) ( integer , integer , integer ) -- (i,i,i)

Этот предикат инициализирует экран на среднюю, высокую или сверхвысокую степень разрешения графики. Возможные значения режима и результирующего форма­та экрана указаны в следующей таблице.

Режим	Кол-во столбцов	Кол-во строк	Описание
1	320	200	Среднее разрешение, 4 цвета
2	640	200	Высокое разрешение, черно-белый экран
3	320	200	Среднее разрешение, 16 цветов
4	640	200	Высокое разрешение, 16 цветов
5	640	350	Сверхвысокое разрешение

Во всех случаях графика начинается с очистки экрана и установки курсора в левом верхнем углу. Цвет фона выбирается из условий:

Черный	0	Серый	8
Синий	1	Ярко-синий	9
Зеленый	2	Ярко-зеленый	10
Голубой	3	Ярко-голубой	11
Красный	4	Ярко-красный	12
Сиреневый	5	Ярко-сиреневый	13
Коричневый	6	Желтый	14
Белый	7	Ярко-белый	15

Имеются два основных графических предиката- dot u line (точка и линия). dot( Строка , Столбец , Цвет ) (integer,integer,integer) -- (i,i,io)

Предикат dot(...) помещает точку цвета, указанного третьим параметром, в пози­цию определяемую первыми двумя параметрами, которые являются целыми от 0 до 31999 и не зависят от текущего режима экрана.

line( Строка1 , Столбец1 , Строка2 , Столбец2 , Цвет ) (integer,integer,integer,integer,integer) -- (i,i,i,i,i)

Предикат line(...) чертит линию через точки, позиции которых указаны параметра­ми строки и столбца, цвет линии определятся последним аргументом.

В Турбо-Прологе есть предикаты, которые реализуют графику построения "от ру­

ки", с помощью цветного пера. Основными элементами графики этого уровня являют­ся: изображенное на экране треугольное перо, так называемая "черепаха" и простые направляющие команды типа "вперед", "вправо" и т.п. При входе в графический режим экран очищается, появляется "черепаха", "перо" находится в хвосте. Направляется "че­репаха" при помощи стандартных предикатов, а "перо" оставляет след на экране. Дей­ствие этих предикатов зависит от позиции "черепахи", направления, включено "перо" или нет, от цвета "пера". Основные предикаты черепашьей графики:

pendown - активизирует "перо"

penup - дезактивизирует "перо"

репсо1ог(Дведа) (integer) -- (i) - определяет цвет следа

for\\ard(///dr) (integer) -- (i) - указывает число шагов "черепашки" из текущей

позиции в текущем направлении.

Ьаск(Шаг) (integer) -- (i) - действует противоположным образом

пдЫ(Угол) (integer) -- (i) - поворачивает "черепашку" направо. Если "Угол" -

связанная переменная, то "черепашка" поворачивается на указанное чис­ло градусов, если свободная, то она связывается с текущим направлени­ем.

left( Угол) (integer) -- (i) - аналогично поворачивает "черепашку" налево.