Процедура Sector

Вычерчивает и заполняет эллипсный сектор.

Заголовок:

Procedure Sector (X, Y: integer; BegA, EndA, RX, RY: Word);

Здесь, BegA и EndA – начальный конечный углы эллипсного сектора соответственно.

Остальные параметры обращения аналогичны параметрам процедуры FillEllipse.

Пример:

Program ZvezdaEllipse;

Uses Graph;

Type Cs= array [1..6, 1..2] of integer;

Const ass:cs= ((300, 70),

(200, 300),

(450, 150),

(150, 150),

(400, 300),

(300, 70));

Var

GrDriver, GrMode: integer;

Begin

GrDriver:= Detect;

InitGraph (GrDriver, GrMode, 'C: |Bp|BGI');

SetBkColor (Blue);

SetLineStyle (1, 2, 3);

SetColor (White);

SetFillStyle (1, Green);

FillEllipse (300, 200, 180, 200);

SetLineStyle (1, 2, 1);

SetColor (Magenta);

SetFillStyle (2, Magenta);

Sector (300, 200, 50, 54, 180, 200);

Sector (300, 200, 125, 129, 180, 200);

Sector (300, 200, 184, 188, 180, 200);

Sector (300, 200, 270, 274, 180, 200);

Sector (300, 200, 352, 356, 180, 200);

SetLineStyle (2, 2, 1);

SetColor (Yellow);

SetFillStyle (1, Red);

FillPoly (6, ass);

readln;

CloseGraph;

End.

Результатом выполнения этой программы является рисунок: