gd:=0;
initgraph(gd,gm,'');
setcolor(0);
setbkcolor(15);
line(0,0,100,100);
{ничего не видно, т. к. рисуем цветом фона}
readln;
setpalette(l,0);
setcolor(1);
setbkcolor(15);
line(0,0,100,100); {хорошая черная линия на белом фоне}
readln;
closegraph; end.
Стирание ранее нарисованных отрезков можно осуществить путем повторного построения такого же отрезка в режиме X0R_PUT. BGI-пакет позволяет на некоторое время установить один из двух режимов вывода — CОPY_PUT или X0R_PUT с помощью процедуры setwritemode:
setwritemode(C0PY_PUT);
setwritemode(X0R_PUT);
В первом режиме точки очередного отрезка или окружности будут затирать встречающиеся на их пути пикселы, а во втором — старый и новый цвета взаимодействующих точек будут поразрядно складываться по модулю 2.
Специфика построения залитых фигур рассматривается в одном из следующих разделов.