Построение дуг и окружностей

Построение многоугольников

Построение прямоугольников

ПОСТРОЕНИЕ ГРАФИЧЕСКИХ ФИГУР

Цвет, стиль и толщина линии для вычерчивания берутся по умолчанию или устанавливаются соответственно процедурами SetColor и SetFillPattern, SetFillStyle (ниже).

Процедура вычерчивания одномерного прямоугольника:

Rectangle(Xl, Y1, Х2, Y2:integer),

где XI, Y1 — координаты левого верхнего угла,

Х2, Y2 — координаты правого нижнего угла прямоугольника. Область внутри прямоугольника не закрашена и совпадает по цвету с фоном.

Фрагмент 5. В качестве примера приведем фрагмент, который выводит на экран 100 вычерченных разным цветом динамически изменяющихся по высоте прямоугольников:

for I:= I to 100 do begin

SetColor(Green); {Установка цвета}

Rectangle(200,Random(300),250,300); {I-й прямоугольник}

Delay(50); {Задержка}

ClearDevice {Очистка экрана}

end;

Более эффектные для восприятия прямоугольники можно строить с помощью процедуры

Bar(xl,yl,x2,y2:integer), которая рисует закрашенный (SetFillStyle) столбец

Фрагмент 6. Пример использования:

SetFillStyle(1,3);

Bar(10,10,50,100);

Bar3D(xl, yl, x2, y2:integer; Depth: word; Top: boolean)

вычерчивает трехмерный закрашенный прямоугольник. Тип и цвет закраски – SetFillStyle. Depth – число пикселей, задающих глубину трехмерного контура, чаще Depth:= (X2-X1) DIV 4; параметр Тор определяет, строить над прямоугольником вершину (Тор:= True) или нет (Тор:= False).

Например:

SetFillStyle(1,3);

Bar3D(10,10,50,100,10,True);

DrawPoly(NumPointst: word; var PolyPoints)

Параметр PolyPoints является нетипизированным параметром, который содержит координаты каждого пересечения в многоугольнике. Параметр NumPoints задает число координат в PolyPoints. Необходимо помнить, что для вычерчивания замкнутой фигуры с N вершинами нужно передать при обращении к процедуре DrawPoly N+1 координату, где координата вершины с номером n будет равна координате вершины с номером 1.

Окружность:

Circle (X, Y, Radius: word);

где X и Y — координаты центра окружности,

Radius — ее радиус.

Пример вывода ярко-зеленой окружности с радиусом 50 пикселей и центром в точке 450,100:

SetColor(LightGreen);

Circle(450,100,50)

Дуга:

Arc (X,Y: integer; StAngle, EndAngle, Radius: word);

где X, Y — центр окружности,

StAngle и EndAngle начальный и конечный yгол в градусах,

Radius — радиус.

Пример:

SetColor(Red);

Arc(450,100,0,90,50);

Эллиптическая дуга:

Ellipse (X,Y:integer; StAngle,EndAngle:word; xR,yR:word);

где X, Y — центр эллипса в дисплейных координатах,

xR и yR — горизонтальная и вертикальная оси.

Фон внутри эллипса совпадает с фоном экрана.

Закрашенный эллипс

FillEllipse (X, Y:integer; xR, yR:word);

где X, Y — центр эллипса в дисплейных координатах,

xR и yR — горизонтальная и вертикальная оси.

Заполнитель устанавливается соответствующими процедурами (см.ранее).

Сектор:

PieSlice (X,Y:integer;StAngle,EndAngle,Radius:word);

точка X, Y — центр окружности,

сектор рисуется от начального угла StAngle до конечного угла EndAngle.

Контур сектора вычерчивается текущим цветом, а при закрашивании используются тип и цвет закраски, заданные процедурами SetFillStyle и SetFillPattern.

Сектор в эллипса

Sector(X, Y:integer; StAngle, EndAngle, xR, yR:word);

где X, Y — центр,

xR, yR — горизонтальный и вертикальный радиусы.

сектор вычерчивается от начального угла StAngle до конечного угла EndAngle текущим цветом и заполняется стилем, заданным процедурами SetFillStyle или SetFillPattern.

Дата добавления: 2014-01-05