Ткани Работа для женщин Ателье Уход за лицом Плетение кос Новости

Процедура Sector в Turbo Pascal 7

Опубликовано: 02.09.2018

16.4.39. Процедура Sector

procedure Sector(X, Y: Integer; StAngle, EndAngle, XRadius, YRadius: Word);

Строит сектор эллипса, закрашенный текущим орнаментом и цветом заполнения. Орнамент и цвет заполнения задаются процедурой SetFillStyle или SetFillPattern. Текущий цвет контура задается процедурой SetColor, текущие параметры линии - процедурой SetLineStyle. Изменение относительных масштабов изображения по вертикали и горизонтали осуществляется процедурой SetAspectRatio.

Создание модулей на языке Pascal

X, Y - координаты центра сектора эллипса;

StAngle - начальный угол эллипса, отсчитываемый против часовой стрелки от горизонтальной оси, направленной вправо;

EndAngle - конечный угол эллипса, отсчитываемый против часовой стрелки от горизонтальной оси, направленной вправо;

Assembler - простая программа

XRadius,YRadius - горизонтальная и вертикальная полуоси эллипса.

В случае аварийной ситуации (во время закрашивания фигуры) процедура устанавливает код ошибки -6. Применяется только в графическом режиме.