Многоугольники
Rectangle (x1,y1,x2,y2) – процедура вычерчивает прямоугольник с заданными координатами углов. Здесь (x1,y1) – координаты левого верхнего, (x2,y2) – правого нижнего углов прямоугольника. Прямоугольник вычерчивается с использованием текущего цвета и стиля линий.
DrawPoly (n,Points) – процедура вычерчивает произвольную ломаную линию, заданную координатами точек излома. Здесь n – количество точек излома, включая обе крайние точки, Points – переменная типа PointType, содержащая координаты точек излома. Координаты точек излома задаются парой значений типа Word: первое определяет горизонтальную, второе – вертикальную координаты. Для них можно использовать следующий определенный в модуле тип:
Type
PoitType=record
x,y:Word
end;
При вычерчивании используется текущий цвет и стиль линий.
Пример. С помощью ломаной линии нарисовать заданную фигуру.
Uses Graph,Crt; Type Tmas=array [1..10] of PointType; {определяем массив записей, содержащий координаты вершин фигуры} Const mas:Tmas=((x:150;y:200), (x:50;y:100), (x:100;y:50), (x:150;y:100), (x:50;y:200), (x:50;y:100), (x:150;y:100), (x:150;y:200), (x:50;y:200), (x:150;y:200)); Var Driver, Mode:Integer; Begin Driver:=Detect; InitGraph(Driver,Mode,''); SetLineStyle(0,0,3); {рисуем фигуру} DrawPoly(10,mas); ReadLn; CloseGraph; End. | Стрелками указан начальный порядок обхода вершин |
Дата добавления: 2015-04-15; просмотров: 551;