Getpixel/3 Графика

Назначение Возвращает цвет описанного пиксела

Обращение getpixel(X,Y,Цвет)

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

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

аргументов

Описание getpixel связывает Цвет с цветом пиксела

в точке (X,Y).

Смотри getimage,putpixel

Пример

include "GRAPDECL.PRO"

PREDICATES

Changecolors(Integer,Integer)

CLAUSES

Changecolors(200,_):-!.

Changecolors(I,Max):-

GetPixel(I,I,Color),

bitxor(Color,I,ColorX),

NewColor = ColorX mod Max,

PutPixel(I,I,NewColor),

I2=I+1,

Changecolors(I2,Max).

goal

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

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

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

Getmaxcolor(Maxcolor),

Max = Maxcolor + 1,

/* Изменить цвет пикселов на диагональной линии */

changecolors(1,Max),

readchar(_),

closegraph.