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("Сидор Сидоров","Иван Иванов").