Программирование на языке Турбо-Пролог 2.0. Николаев В.Г - 48 стр.

UptoLike

- 48 -
USERBIT_LINE = 4 определяемая пользователем, через
аргумент Upattern.
Upattern задает шаблон линии. Это целое число, каждый бит
которого, равный 1, определяет рисование пиксела, равный 0, -
нет. Толщина задается двумя значениями:
NORM_WIDTH = 1 в один пиксел,
THICK_WIDTH = 3 в 3 пиксела.
getlinesettings(LineStyle,Upattern,Thickness)
(integer,integer,integer) - (o,o,o)
Определение текущих характеристик линии.
bar(Left,Top,Right,Bottom)
(integer,integer,integer,integer) - (i,i,i,i)
Построение закрашенного плоского прямоугольника по двум точ-
кам.
bar3d(Left,Top,Right,Bottom,Depth,Topflag)
(integer,integer,integer,integer,integer,integer) - (i,i,i,i,i,i)
Построение закрашенного объемного прямоугольника по двум
точкам (прямоугольник), Depth - глубина проекции 3-го измерения,
Topflag определяет прорисовку (=1) верхних ребер параллелепипеда.
fillpoly(PolyPointsList) (bgi_ilist) - (i)
Построение закрашенного многоугольника (см. drawpoly).
fillellipse(X,Y,Xradius,YRadius)
(integer,integer,integer,integer) - (i,i,i,i)
Построение закрашенного эллипса.
pieslice(X,Y,Stangle,Endangle,Radius)
(integer,integer,integer,integer,integer) - (i,i,i,i,i)
Построение закрашенного кругового сектора.
floodfill(X,Y,Border) (integer,integer,integer) - (i,i,i)
Закрашивание области внутри существующего замкнутого конту-
ра. Точка (X,Y) должна находится внутри контура. Border определя-
ет цвет пикселов ограничивающего область закраски контура.