Решение задач машиностроения средствами Turbo Pascal. Крупенников О.Г - 79 стр.

UptoLike

ВУЗ: 

УлГТУ | Ульяновск

Составители: 

Рубрика: 

78
NORMWIDTH=1;{один пиксел}
THICKWIDTH=3;{три пиксела}.
8. Процедура RECTANGLE – вычерчивает прямоугольник с указанными
координатами углов.
Заголовок процедуры:
PROCEDURE RECTANGLE(X1,Y1,X2,Y2:INTEGER); ,
где X1, Y1; X2, Y2 – соответственно координаты левого верхнего и правого
нижнего углов прямоугольника.
9. Процедура CIRCLE – вычерчивает окружность.
Заголовок процедуры:
PROCEDURE CIRCLE(X,Y:INTEGER;R:WORD); ,
где X, Y – координаты центра окружности; R – радиус окружности.
10. Процедура ARC – чертит дугу окружности.
Заголовок процедуры:
PROCEDURE ARC(X,Y:INTEGER;BEGA,ENDA,R:WORD); ,
где X, Y – координаты центра дуги окружности
; BEGA, ENDA – начальный и
конечный углы дуги окружности (отсчитываются против часовой стрелки, ука-
зываются в градусах, нулевой угол соответствует горизонтальному направле-
нию радиуса-вектора слева направо); R – радиус дуги окружности.
11. Процедура ELLIPSE – вычерчивает эллипсную дугу.
Заголовок процедуры:
PROCEDURE ELLIPSE(X,Y:INTEGER;BEGA,ENDA,RX,RY:WORD); ,
где X, Y – координаты центра дуги эллипса; BEGA, ENDA – соответственно
начальный и конечный углы дуги эллипса, град; RX, RY – горизонтальный и
вертикальный
радиусы эллипса.
12. Процедура SETCOLOR – устанавливает текущий цвет для выводимых
линий и символов.
Заголовок процедуры:
PROCEDURE SETCOLOR(COLOR:WORD); ,
где COLOR – код текущего цвета (см. подраздел 11.1).
13. Процедура SETBKCOLOR – устанавливает цвет фона.
Заголовок процедуры:
PROCEDURE SETBKCOLOR(COLOR:WORD); ,
где COLOR – код цвета фона (см. подраздел 11.1).
14. Процедура SETFILLSTYLE – устанавливает стиль (тип и цвет) запол-
нения.
Заголовок процедуры:
PROCEDURE SETFILLSTYLE(FILL,COLOR:WORD); ,
где FILL – тип заполнения. Задается с
помощью одной из следующих констант,
например:
CONST

Страницы