Добавил:
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Программирование на Pascal / Delphi / Лекции по Паскалю2 / Иллюстрации к Лекции 8 по информатике.doc
Скачиваний:
33
Добавлен:
02.05.2014
Размер:
1.4 Mб
Скачать

Процедуры построения фигур из линий

Ваr(Х1, Yl, X2, Y2: integer) - рисует столбец, заданный координатами (XI,Y1) и (X2,Y2), используя стандартный тип и цвет закраски.

Bar3D (XI, Yl, X2, Y2: integer; L: word; S: boolean); - используя текущий тип и цвет закраски, рисует трехмерный параллелепипед (столбец), заданный координатами (X1,Y1), (X2,Y2) и глубиной L. S — признак отображения верхней плоскости.

DrawPoly (N : word; var S); - используя текущий тип линии и текущий цвет, рисует контур многоугольника. Параметр S является нетипизованным параметром, который содержит координаты каждого пересечения в многоугольнике. Параметр N задает число координат в S. Координата состоит из двух слов: значения Х и значения У.

FillPoly (N : word; var S); - рисует закрашенный многоугольник.

Параметр S является нетипизованным параметром, который содержит координаты каждого пересечения сторон в многоугольнике (координаты вершин). Параметр N задает число координат в S. Координата состоит из двух слов: значения X и значения Y.

FloodFill (X, Y: integer; S: word); - закрашивает ограниченную область, используя текущий заполнитель. Точка (X,Y) является произвольной внутренней точкой заполняемой области. Для заполнения области, ограниченной цветом, которую определяет параметр S, используется текущий образец закраски.

GetFillPattern (var Pattern: FiUPatternType); - возвращает текущий образец заполнителя, заданный последним обращением к процедуре SetFillPattern. Параметр Pattern — это образец заполнителя.

GetFillSetings (var Inf: FillSettingsType); - позволяет выдавать запрос о текущем типе заполнителя и его цвете, которые установлены процедурами SetFillStyl или SetFillPattern.

Rectangle (XI, Yl, X2, Y2: integer); - рисует прямоугольник, используя текущий цвет и тип линии. Точка с координатами (X1, Y1) определяет верхний левый угол прямоугольника, а точка с координатами (X2,Y2) определяет нижний правый угол (0 <= X1 < Х2 <= GetMaxX и 0 <= Yl< Y2 <= GetMaxY).

SetFillPattern (Pattern:FfflPatternType; Color: word); - выбирает заданный пользователем образец закраски.

SetFillStyle (Pattern: word; Color: word); - устанавливает тип закраски и ее цвет.

Процедуры построения криволинейных фигур

Arc(X, Y: integer; Angle1, Angle2, R: Word) - вычерчивает дугу окружности от начального угла Angle1 до конечного угла Angle2 с радиусом R, точка (X,Y) используется как центр окружности.

Circle (X, Y: integer; R: word); - рисует окружность с радиусом R, точка (X,Y) считается центром окружности

Ellipse (X, Y: integer; SStart, SEnd: word; RadX, RadY: word); - рисует эллиптическую дугу от начального угла SStart до конечного угла SEnd, используя (X,Y) в качестве точки центра, а RadX, RadY - как горизонтальную и вертикальную оси.

FillEllipse (X, Y: integer; XRad, YRad: word); - рисует закрашенный эллипс, используя точку с координатами (X,Y) в качестве центра, a XRad и YRad - в качестве горизонтальной и вертикальной осей.

GetArcCoords(var Coords: ArcCoordsType); - получение координат последней дуги.

PieSlice (X, Y: integer; SStart, SEnd, R:word); - рисует и заполняет цветом сектор круга. Точка (X,Y) при этом используется в качестве центра окружности, а сектор рисуется от начального угла (SStart) до конечного угла (Send) с радиусом R.

Sector (X, Y: integer; SStart, SEnd, XRad, YRad: word); - вычерчивает и заполняет эллиптический сектор. Процедура использует (X,Y) как точку центра, параметры XRad, YRad определяют, соответственно, горизонтальный и вертикальный радиусы. Сектор вычерчивается от начального угла SStart до конечного угла SEnd. Сектор рисуется текущим цветом и закрашивается с использованием образца закраски и цвета, заданных с помощью процедур SetFillStyle или SetFillPattern.