Линии и точки, Многоугольники - Работа с языком Турбо Паскаль

Процедура PutPixel. Выводит заданным цветом точку по указанным координатам. Заголовок:

Procedure PutPixel(X, Y: Inteder; Color: word);

Здесь X, Y - координаты точки; Color - цвет точки.

Процедура Line. Вычерчивает линию с указанными координатами начала и конца.

Заголовок:

Procedure Line(X1, Y1, X2, Y2: Integer);

Здесь X1..Y1 - координаты начала(X1,Y1) и конца(X2,Y2) линии. Линия вычерчивается текущем стилем и текущим цветом.

Процедура SetLineStyle. Устанавливает новый стиль вычерчиваемых линий.

Заголовок:

Procedure SetLineStyle(Type, Pattern, Thick: Word);

Здесь Type, Pattern, Thick - соответственно тип, образец и толщина линии. Тип линии может быть создан с помощью одной из следующих констант:

Const

SolidLn= 0; (Сплошная линия)

DottedLn= 1; (Точечная линия)

CenterLn= 2; (Штрих-пунктирная линия)

DashedLn= 3; (Пунктирная линия)

UserBitLn= 4; (Узор линии определяемый пользователем)

Многоугольники

Процедура Rectangle. Вычерчивает прямоугольник с указанными координатами углов.

Заголовок:

Procedure Rectangle(X1, Y1, X2, Y2: Integer);

Здесь X1..Y2 - координаты левого верхнего угла(X1,Y1) и правого нижнего(X2,Y2) углов прямоугольника. Прямоугольник вычерчивается с использованием текущего цвета и текущего стиля линий.

Похожие статьи




Линии и точки, Многоугольники - Работа с языком Турбо Паскаль

Предыдущая | Следующая