Вывод точки, линии
Изображение в графическом режиме
формируется из графических примитивов:
точка, линия, прямоугольник, эллипс,
сектор.
Точка (пиксель) выводится следующим
образом:
PutPixel (X, Y: integer; color : word),
где X и Y – координаты точки,
Color – ее цвет.
Узнать цвет точки в позиции экрана
(x,y)можно функцией GetPixel(x,y:integer):word.
Из точек строятся отрезки прямых. Прямые
строит процедура Line (x1, y1, x2, y2 : integer),
где (х1, у1) - координаты начала, а (х2,
у2) - координаты конца отрезка. В этой
процедуре нет параметра для установки
цвета. В этом и других аналогичных
случаях перед вызовом процедуры
необходимо задать цвет процедурой
SetColor.
Для черчения линий применяются еще две
процедуры:
LineTo (x,y : integer) – процедура, рисующая
линию от текущего указателя до точки с
координатами (x,y);
LineRel (dX,dY)- проводит линию от точки
текущего расположения указателя в точку
приращения координат (dX,dY).
Пример Нарисовать “случайную”
ломаную линию процедурой LineTo, каждый
отрезок “случайного” цвета. Начало
рисования – от центра экрана. Окончание
рисования – по нажатии любой клавиши.
Uses crt,graph;
Begin . . . {инициализация
графики}
Randomize; {инициализация
генератора случайных чисел}
MoveTo(Getmaxx div 2,Getmaxy div
2);
Repeat
SetColor(Random(GetMaxColor));
{установим цвет}
LineTo(Random(Getmaxx),Random(Getmaxy));
Delay(1000); {задержка
изображения}
Until Keypressed;
Closegraph;
End.
