Drawpoly/1 Графика

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

Обращение drawpoly(СписокВершин)

Домены (bgi_ilist)

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

аргументов

Описание drawpoly рисует многоугольник с координатами вершин

в списке СписокВершин, используя текущий стиль линии

и цвет.

СписокВершин принадлежит новому стандартному типу

bgi_ilist, определенному как bgi_ilist = integer*.

СписокВершин содержит последовательность целых чисел.

Каждая пара чисел дает координаты X и Y одной вершины

многоугольника.

Замечание: Для того, чтобы нарисовать фигуру из N

вершин, необходимо в списке СписокВершин определить N

+1 точку, в котором последняя должна совпадать с

первой.

Ошибки Если ошибки случаются во время, когда рисуется

многоугольник, то система генерирует ошибку с кодом

6005.

Смотри fillpoly

Пример

include "GRAPDECL.PRO"

goal

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

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

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

/* Нарисовать треугольник */

drawpoly([50,100, 100,100, 150,150, 50,100]),

/* Нарисовать ромб */

drawpoly([50,10, 90,50, 50,90, 10,50, 50,10]),

readchar(_),

closegraph.

edit/2

Назначение Вызывает редактор

Обращение edit(СтрокаВход,СтрокаВыход)

Домены (string,string)

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

аргументов

Описание edit вызывает редактор Турбо Пролога. СтрокаВход

может быть отредактирована в текущем окне. В

результате получается СтрокаВыход. Конец

редактирования - клавиша Ф10; нажатие клавиши КЛЮЧ

прекращает редактирование и edit/2 завершается

неудачно.

Неудачное Если редактирование прекращено клавишей КЛЮЧ.

завершение

Ошибки Отсутствуют.

Пример

goal

file_str("dd.txt",X),

edit(X,X1),

X1><X,

file_str("dd.txt",X1).

edit/13

Назначение Вызывает редактор с полным контролем всех аргументов

Обращение edit(СтрокаВход,СтрокаВыход,Заг,ИмФл,Сообщ,Поз,ФПодс,

РежРед,Отст,Вст,ТекстРеж,КонПоз,ВыхРеж)

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

integer,integer,integer,integer,integer,integer)

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

аргументов

Описание Это вызов редактора Турбо Пролога с расширенными

возможностями. Этот предикат позволяет пользователю

устанавливать опции редактора. edit/13 имеет такие

аргументы:

СтрокаВход Исходная строка, которая должна быть

отредактирована.

СтрокаВыход Строка, получаемая в результате

редактирования.

Заг Текст, размещаемый в левом верхнем углу.

ИмФл Строка, которая будет использована как

имя файла, если отредактированный текст

будет записываться на диск.

Сообщ Текст, появляющийся на нижней строке при

входе в редактор и пропадающий при

нажатии любой клавиши. Это может

использоваться для указания ошибок.

Поз Число, показывающее на какую позицию в

тексте должен быть выставлен курсор.

ФПодс Строка, содержащая имя файла, содержание

которого должно быть выведено на экран

при нажатии клавиши подсказки.

РежРед Число, устанавливающее один из двух

режимов редактора - просмотр или

чтение/замена

0 = Просмотр

1 = Чтение/Замена

Отст Число, определяющее режим автоотступа

0 = Выключен

1 = Включен

Вст Число, определяющее режим вставки

набираемого текста в месте, где находится

курсор, или замены существующего текста

набираемым.

ТекстРеж Число, определяющее включение "режима

текста" (автоматический переход на новую

строку, если слово выходит за пределы

экрана) или его выключения (отсутствие

переноса слова).

0 = Выключен

1 = Включен

КонПоз Число, связанное с позицией, занимаемой

курсором относительно СтрокаВыход при

выходе из редактора (нажатием клавиши

ВВОД)

ВыхРеж Число, определяющее, каким образом

пользователь вышел из редактора.

0 = Выход клавишей Ф10

1 = Сброс клавишей КЛЮЧ

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

завершение

Ошибки Отсутствуют.

Пример

goal

clearwindow,

EditMode=0, Indent=0, Insert=1, TextMode=0,

dir("", "*.*", File),

file_str(File, Str),

edit(Str, Out, "", "", "Prolog.hlp", 1,

"Prolog.hlp",

EditMode, Indent, Insert, TextMode, RetPos,

RetStatus),

write("тип выхода: ", RetStatus), nl,

write("позиция выхода: ", RetPos), readchar(_),

edit(Out, _, "", "", "Prolog.hlp", 1, "Prolog.hlp",

1, Indent, Insert, 1, _, _).

editmsg/8

Назначение Форма редактора с восьмью аргументами.

Обращение editmsg(СтрокаВход,СтрокаВыход,ЛевЗаг,ИмФл,Сообщ,

Поз,ФПодс,ВыхРеж)

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

integer)

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

аргументов

Описание Эта восьмиаргументная версия редактора присутствует

только потому, что она включена в Турбо Пролог версии

1.x. Рекомендуется пользоваться версией edit/13.

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

завершение

Ошибки Отсутствуют.

Пример

goal

file_str("dd.txt", Str),

editmsg(Str, Out, "Левый заголовок",

"Правый заголовок",

"Нажмите РЕГИСТР Ф1 для подсказки", 399,

"Prolog.hlp", Code),

Code=0,

write("Была нажата Ф10");

write("Была нажата КЛЮЧ, - или файл не найден").