Rectangle/4 Графика

Назначение Рисует прямоугольник

Обращение rectangle(Лев,Верх,Прав,Низ)

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

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

аргументов

Описание rectangle рисует и заполняет прямоугольник,

используя текущий стиль линии, толщину и цвет.

Верхний левый и нижний правый углы прямоугольника

задаются как (Лев,Верх) и (Прав,Низ), соответственно.

Смотри bar,setcolor,setlinestyle

Пример

rectangle(20,20,100,100)

removewindow/0

Назначение Удаляет текущее окно

Обращение removewindow

Описание removewindow/0 удаляет текущее окно с экрана и

переходит к предшествующему окну.

Неудачное Никогда не дает.

завершение

Ошибки 5101 Системное окно (номокн>127) не может быть

удалено.

Пример

goal

makewindow(1,7,7,"Проверка окна",5,5,15,70),

write("\nНажмите любую клавишу - удалить окно"),

readchar(_),

removewindow.

removewindow/2

Назначение Удаляет определенное окно

Обращение removewindow(НомОкна,Регенер)

Домены (integer,integer)

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

аргументов

Описание removewindow/2 удаляет текущее окно, определенное

параметром НомОкна, которое может быть не только

текущим. Значение параметра Регенер определяет,

удалять ли следующие окна, как только они будут вновь

созданы на экране.

Регенер = 0 Не создавать другие окна, следующие за

удаляемым окном.

= 1 Создавать их.

Неудачное Никогда не дает.

завершение

Ошибки 5101 Системное окно (НомОкн>127) не может быть

удалено.

Пример

goal

makewindow(1,7,7,"Проверка окна",5,5,15,70),

write("\nНажмите любую клавишу - удалить окно"),

readchar(_),

removewindow(1,0).

renamefile/2

Назначение Переименовывает файл

Обращение renamefile(СтароеИмФДос,НовоеИмФДос)

Домены (string,string)

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

аргументов

Описание renamefile изменяет СтароеИмФДос (на текущем диске)

на НовоеИмФДос.

Неудачное Никогда не дает.

завершение

Ошибки 1073 Невозможно переименовать файл.

Пример

goal

file_str("dd.txt", "Где Петя Петров ?"),

renamefile("dd.txt", "dd1.txt"),

file_str("dd1.txt", X),

deletefile("dd1.txt"),

write(X),nl.

resizewindow/0

Назначение Вызывает процедуру изменения размера текущего окна

Обращение resizewindow

Описание Изменяет размер окон в вашей программе, в этом

случае программа установления среды Турбо Пролога

изменит размеры ваших окон.

Неудачное Никогда не дает.

завершение

Ошибки 1017 Неверные аргументы в изменяемом окне.

Пример

goal

makewindow(1,7,7,"тест окна",5,5,15,70),

write("\nизмените размер окна\n"),

resizewindow,

makewindow(Wno,Wattr,Fattr,Text,Srow,Scol,

Rows,Cols),

write("\nНовое состояние окна:"),

writef("\nWno=%, Wattr=%, Fattr=%, Text=%,

Srow=%, Scol=%, Rows=%, Cols=%",

Wno,Wattr,Fattr,Text,Srow,Scol,Rows,Cols),

readchar(_).

resizewindow/4

Назначение Изменяет местоположение и размер текущего окна

Обращение resizewindow(НачСтр,КолСтр,НачКол,КолКол)

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

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

аргументов

Описание resizewindow изменяет размер или местоположение (или

то и другое) текущего окна; его аргументы описывают

новое местоположение (начальная строка и колонка) и

размеры (количество строк и колонок) для окна.

Пример

/* Создание увеличивающихся окон */

predicates

exp_window(integer)

clauses

exp_window(0):- !.

exp_window(N):-

makewindow(_,_,_,_,A,B,C,D),

A1=A-1, B1=B-2, C1=C+2, D1=D+4,

resizewindow(A1,B1,C1,D1),

N1 =N-1, exp_window(N1).

goal

makewindow(1,7,7,"Тест 1",10,20,3,10),

exp_window(9),

makewindow(2,7,7,"Тест 2",12,50,3,10),

exp_window(9),

makewindow(3,7,7,"Тест 3",14,16,3,10),

exp_window(8).