Процедура вывода отрезка прямой на экран определена следующим образом:
Line(x 1,y1, x 2,y2: integer) |
В ней задаются координаты начальной (х 1,у1) и конечной точек (х 2,у2) линии.
Для построения отрезков применяются еще две процедуры LineTo и LineRel.
Процедура
LineTo(x,y: integer) |
строит отрезок из точки текущего положения указателя до точки с координатами (х,у).
Процедура
LineRel(d x,dy: integer) |
проводит отрезок от точки текущего положения указателя до точки (CPX+d x, CPY+dy), где CPX и CPY – текущие координаты СР.
Паскаль позволяет вычерчивать линии самых различных стилей, тонкие, широкие, штриховые, пунктирные и т.д. Установка стиля производится процедурой
SetLineStyle(LineStyle:word;Pattern:word;Thickness:word) |
Параметром LineStyle задается тип строки, Pattern – шаблон, Thickness – толщина линии. Их значения приведены в таблице: