Getviesettings/5

getviesettings возвращает информацию о текущем поле вывода.

getviesettings(Left,Top,Right,Bottom,ClipFlag) /*(o,o,o,o,o)*/

(integer, integer, integer, integer, integer)

setactivepage/1

setactivepage активизирует страницу - экран для графического вывода.

setactivepage(Page) /*(i)*/

(integer)

setvisualpage/1

setvisualpage устанавливает номер графической страницы, которую не-

обходимо отобразить на экране дисплея.

setvisualpage(Page) /*(i)*/

(integer)

clearviewport/0 и cleardevice/0

clearviewport очищает текущее поле вывода и перемещает текущую пози-

цию (ТП) в положение (0,0) относительно поля. cleardevice очищает весь

экран и перемещает текущую позицию в положение (0,0).

Пример

/* Program CH17EX06.PRO */

include "GRAPDECL.PRO"

predicates

makeViewPort

goal

initGraph(G_Driver, G_Mode, New_Driver, New_Mode, ""),

makeViewPort,

closegraph().

clauses

makeViewPort :-

detectGraph(_, G_Mode),

getMaxX(MaxX), getMaxY(MaxY),

setViewPort(0, 0, MaxX, MaxY, 1),

clearViewPort,

writef("Default Mode is %, resolution is % by %",

G_Mode, MaxX, MaxY), nl,

write("Press key"), readchar(_), nl, fail.

makeViewPort :-

detectGraph(G_Driver, _),

getModeRange(G_Driver, Low, _),

setGraphMode(Low),

getMaxX(MaxX), getMaxY(MaxY),

setViewPort(0, 0, MaxX, MaxY, 1),

clearViewPort,

writef("Default Mode is %, resolution is % by %",

G_Mode, MaxX, MaxY), nl,

write("Press key"), readchar(_), nl, fail.