Отображение точки

Какие бы изображения не выводились на экран, все они построены из точек.

Процедура PutPixel(X,Y:integer; Color:word); отображает точку на экране, где Х и Y – экранные координаты точки, Color – ее цвет.

Пример 2. Пример программы, при выполнении которой создается интересный визуальный эффект путем заполнения экрана множеством точек различных цветов.

Uses Graph;

Var Driver, Mode:integer;

Color:word;

X,Y:word;

Procedure GrInit;

Begin

Driver:=Detect; { автораспознавание драйвера }

InitGraph (Driver, Mode, ‘’);

If GraphResult<>0 then

begin

Writeln ('Ошибка инициализации!');

Writeln ('Работа программы прервана');

Halt (1) { остановить выполнение программы с кодом завершения – 1 }

End

End;

Begin

GrInit; { графические действия }

Color:=0;

Randomize;

Repeat {выберем случайным образом координаты точки}

X:=Random(GetMaxX);

Y= Random(GetMaxY);

PutPixel(X,Y,Color); {вывод точки}

Inc (Color); {изменение цвета}

If Color=GetMaxColor Then Color:=0; {не превышает ли значение цвета}

{максимального значения, которое}

{определяет функция GetMaxColor?}

Until KeyPressed; {повторять до нажатия любой клавиши}

ClearDevice;

CloseGraph

End.