Вывод линии
3.5. Вывод линии
В последнем примере с помощью процедуры PutPixel и оператора FOR из отдельных точек была построена линия. Для построения отрезков прямых имеется специальная процедура Line:
Line( X1, Y1, X2, Y2 ),
где X1, Y1 – координаты начала, а X2, Y2 – координаты конца отрезка.
Примеры.
Вывод вертикальной линии зеленого цвета в середине экрана.
SetColor( Green );
x := GetMaxX div 2;
Line( x, 0, x, GetMaxY );
Вывод диагональной линии ярко-красного цвета.
SetColor( LightRed );
Line( 0, 0, 639, 479 );
Для вычерчивания линий существует еще две процедуры: LineTo и LineRel.
Процедура LineTo( X, Y ) строит отрезок прямой из точки текущего положения указателя в точку с координатами X, Y. Процедура LineRel( dX, dY )
проводит линию от точки текущего положения указателя в точку со смещением dX, dY.
