Getarccoords/6 Графика

Назначение Получает координаты из последнего вызова arc

Обращение getarccoords(X,Y,Xстарт,Yстарт,Xкон,Yкон)

Домены (integer,integer,integer,integer,integer,integer)

Шаблоны описания (вых,вых,вых,вых,вых,вых)

аргументов

Описание getarccoords связывает аргументы со значениями

последнего вызова arc. Используемые переменные

описаны точкой центра (X,Y), начальной позицией

(Xстарт,Yстарт) и конечной позицией (Xкон,Yкон)

сектора. Эти значения полезны, если Вам необходимо

соединить концы сектора линией.

Смотри arc

Getaspectratio/2 Графика

Назначение Определяет отношение горизонтального и

вертикального масштабов графического режима

Обращение getaspectratio(Xотн,Yотн)

Домены (integer,integer)

Шаблоны описания (вых,вых)

аргументов

Описание getaspectratio возвращает значения Xотн и Yотн.

Коэффициент масштаба по оси Y, Yотн, ограничен 10000;

для всех графических адаптеров, исключая VGA,

коэффициент масштаба Xотн меньше чем Yотн потому, что

высота пиксела больше чем ширина. В VGA, где пиксел

"квадратный", Xотн равен Yотн. В общем случае,

ограничения на коэффициент масштаба выглядят так:

Yотн = 10000

Xотн <= 10000

Смотри arc

getbacktrack/1

Назначение Производит динамическое отсечение совместно с

cutbacktrack

Обращение getbacktrack(Точк)

Домены (integer)

Шаблоны описания (вых)

аргументов

Описание Предикат getbacktrack возвращает текущий указатель

вершины стека поиска с возвратом. В этой точке можно

удалить все вышерасположенные (созданные позже) точки

поиска с возвратом посредством передачи старого

указателя предикату cutbacktrack. Это можно

использовать в локальном отсечении.

Пример

/* Эта программа выдает всех, кто имеет минимум

одного друга */

database

person(string)

friends(string,string)

goal

person(P),

getbacktrack(Btop),

friends(P,Friend),

write(Friend),nl,

cutbacktrack(Btop).

clauses

person("Иван Иванов").

person("Сидор Сидоров").

person("Игорь Савин").

friends("Игорь Савин","Петр Петров").

friends("Сидор Сидоров","Лева Задов").

friends("Сидор Сидоров","Иван Иванов").

Getbkcolor/1 Графика

Назначение Возвращает текущий цвет фона

Обращение getbkcolor(ЦветФона)

Домены (integer)

Шаблоны описания (вых)

аргументов

Описание getbkcolor связывает ЦветФона с текущим цветом фона

Замечание: Для CGA с разрешающей способностью

(640x200) цвет фона всегда черный. Фактически, в CGA

цвет фона отсутствует.

Смотри getcolor,getpalette,setbkcolor

Пример

include "GRAPDECL.PRO"

goal

/* Инициализация гpафики c автоматическим

определением драйвера */

initgraph(detect, 0, GraphDriver,GraphMode, ""),

getbkcolor(Svcolor),

/* сохранить старый цвет экрана */

bitxor(Svcolor,1,Xcolor),

setbkcolor(Xcolor),

/* установить новый цвет экрана */

readchar(_),

Setbkcolor(Svcolor),

/* восстановить старый цвет экрана */

closegraph.