Какие бы изображения не выводились на экран, все они построены из точек.
Процедура 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.