logo search
TurboProlog / Документация / TOM_2

Getcolor/1 Графика

Назначение Возвращает текущий основной цвет

Обращение getcolor(Цвет)

Домены (integer)

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

аргументов

Описание getcolor связывает переменную Цвет с текущим основным

цветом.

Текущий цвет есть значение пиксела, который рисует

линии и другие фигуры на экране. Например, для CGAC0

палитра содержит 4 цвета фон(= 0), светло-зеленый(=1

), светло-красный(=2), и желтый (=3). В этом режиме,

если getcolor связывает Цвет с 1, то тогда текущий

цвет будет светло-зеленым.

Смотри getbkcolor,getmaxcolor,getpalette,setcolor

Пример

include"GRAPDECL.PRO"

goal

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

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

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

getcolor(Svcolor), /* сохранить старый цвет */

setcolor(3), /* установить новый цвет

в палитре номер 3 */

circle(100,100,5),

setcolor(Svcolor), /* восстановить старый цвет */

readchar(_),

closegraph.