После перехода в графический режим перед началом вывода нового рисунка или графической зависимости следует очистить экран от предыдущего изображения. Эту операцию выполняет процедура ClearDevice. Она очищает графический экран, перемещает указатель в верхний левый угол экрана и затем заливает всю видимую область экрана цветом фона.
Основную часть модуля Graph составляют процедуры вывода базовых графических элементов, таких как точка, отрезок прямой линии, дуги окружности и эллипса, окружность, прямоугольник и др.
Рассмотрим основные процедуры вывода базовых графических элементов на примере программы вывода на экран дисплея вспыхивающих и гаснущих точек.
Program Dots;
Uses Crt, Graph;
const N = 500;
var
d, m, k, x, y: integer;
px, py: array [1..N] of integer;
begin
{Инициализация графического режима}
d := detect; m := VGAMed;
InitGraph (d, m, ' ');
{Создание и запоминание координат точек в массивах px и py}
for k := 1 to N do
Begin
px [k] := Random (GetMaxX);
py [k] := Random (GetMaxY)
end;
{Вывод точек в цикле с постусловием}
Repeat
for k := 1 to N do
Begin
x := px [k]; y := py [k];
PutPixel (x, y, white); {Высвечивание очередной точки белым цветом}
end;
if not KeyPressed then
for k := N downto 1 do
Begin
x := px [k]; y := py [k];
PutPixel (x, y, black); {Гашение очередной точки – цвет чёрный}
end;
until KeyPressed;
while KeyPressed do k := ord (ReadKey);
