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

Procedure ...

Circle ( x, y : Integer; Radius : Word ) ;
—	строит окружность текущим цветом с учетом масштабов по осям. x, y — координаты центра окружности. Radius — радиус окружности (в пикселях). Цвет задается процедурой SetColor, текущие параметры линии — процедуройSetLineStyle, изменение относительных масштабов изображения по вертикали и горизонтали — процедуройSetAspectRatio.
Arc ( x, y : Integer; StAngle, EndAngle, Radius : Word ) ;
—	строит дугу окружности текущим цветом с учетом масштабов по осям (если StAngle=0,EndAngle=359, то результат работы будет таким же, как и результат процедурыCircle). x, y — координаты центра дуги. StAngle— угол до начальной точки дуги, отсчитываемый против часовой стрелки от горизонтальной оси, направленной слева направо. EndAngle— угол до конечной точки дуги, отсчитываемый так же. Radius — радиус дуги (в пикселях). Цвет задается процедурой SetColor, текущие параметры линии — процедуройSetLineStyle, изменение относительных масштабов изображения по вертикали и горизонтали — процедуройSetAspectRatio.
Ellipse ( x, y : Integer; StAngle, EndAngle, XRadius, YRadius : Word ) ;
—	строит дугу эллипса текущим цветом (если StAngle=0,EndAngle=359, то будет построен эллипс). x, y — координаты центра эллипса. StAngle— угол до начальной точки эллипса, отсчитываемый против часовой стрелки от горизонтальной оси, направленной слева направо. EndAngle— угол до конечной точки эллипса, отсчитываемый так же. XRadius, YRadius — горизонтальная и вертикальная полуоси эллипса (в пикселях). Цвет задается процедурой SetColor, текущие параметры линии — процедуройSetLineStyle, изменение относительных масштабов изображения по вертикали и горизонтали — процедуройSetAspectRatio.
FillEllips ( x, y : Integer; XRadius, YRadius : Word ) ;
—	строит эллипс, закрашенный текущим орнаментом и цветом заполнения. x, y — координаты центра эллипса. XRadius, YRadius — горизонтальная и вертикальная полуоси эллипса (в пикселях). Цвет контура задается процедурой SetColor, текущие параметры линии — процедуройSetLineStyle, изменение относительных масштабов изображения по вертикали и горизонтали — процедуройSetAspectRatio, орнамент и цвет заполнения задаются процедуройSetFillStyleилиSetFillPattern.
PieSlice ( x, y : Integer; StAngle, EndAngle, Radius : Word ) ;
—	строит сектор круга, закрашенный текущим орнаментом и цветом заполнения, с учетом масштабов по осям. x, y — координаты центра сектора круга. StAngle— начальный угол сектора, отсчитываемый против часовой стрелки от горизонтальной оси, направленной слева направо. EndAngle— конечный угол сектора, отсчитываемый так же. Radius — радиус сектора (в пикселях). Цвет контура задается процедурой SetColor, текущие параметры линии — процедуройSetLineStyle, изменение относительных масштабов изображения по вертикали и горизонтали — процедуройSetAspectRatio, орнамент и цвет заполнения задаются процедуройSetFillStyleилиSetFillPattern. В случае аварийной ситуации (во время закрашивания фигуры) процедура устанавливает код ошибки: -6.
Sector ( x, y : Integer; StAngle, EndAngle, XRadius, YRadius : Word ) ;
—	строит сектор эллипса, закрашенный текущим орнаментом и цветом заполнения. x, y — координаты центра сектора эллипса. StAngle— начальный угол сектора, отсчитываемый против часовой стрелки от горизонтальной оси, направленной слева направо. EndAngle— конечный угол сектора, отсчитываемый так же. XRadius, YRadius — горизонтальная и вертикальная полуоси эллипса (в пикселях). Цвет контура задается процедурой SetColor, текущие параметры линии — процедуройSetLineStyle, изменение относительных масштабов изображения по вертикали и горизонтали — процедуройSetAspectRatio, орнамент и цвет заполнения задаются процедуройSetFillStyleилиSetFillPattern. В случае аварийной ситуации (во время закрашивания фигуры) процедура устанавливает код ошибки: -6.