FillEllipse процедурасы эллипс шекарасын салып бояйды.
Тақырыбы:
Procedure FillEllipse(X, У,RX,RY: Integer);
мұндағы X, Y – центр координатасы; RX, RY – эллипстің пикселмен берілген көлденең жəне тік радиусы.
Эллипс SetLineStyle жəне SetColor процедураларында берілген сызықпен сызылып, SetFillStyle процедурасында орнатылған па-раметрлер көмегімен боялады.
Sector процедурасы эллипстің секторын сызып, ішін бояйды.
Тақырыбы:
Procedure Sector (X,Y: Integer; BegA,EndA,RX,RY: Word); мұндағы BegA, EndA – сəйкесінше эллипстік сектордың бас-
215
тапқы жəне соңғы бұрыштары. Басқа параметрлер FillEllipse про-цедурасының параметрлеріне сəйкес.
Келесі программада кездейсоқ боялған эллипстер мен сек-торлар салады. Программадан шығу үшін кез келген пернені басыңыз.
uses Graph, CRT;
var
d,r,e: Integer;
begin
{Графиканы іске қосамыз} d:=Detect; InitGraph(d,r,''); e:=GraphResult;
if e <> grOk then WriteLn(GraphErrorMsg(e));
else
begin
{Экран ортасында терезе саламыз}
d:=GetMaxX div 4;
r:=GetMaxY div 4;
Rectangle(d,r,3*d,3*r);
SetViewPort(d+1,r+1,3*d-1,3*r-
1,ClipOn);
{Шығару циклы}
repeat
SetFillStyle(Random(12),Random(succ(GetMaxCol
or)));
SetColor(Random(succ(GetMaxColor)));
Sector(Random(GetMaxX div),Random(GetMaxY div 2),
Random(360),Random(360),Random(GetMaxX div 5),Random(GetMaxY div 5));
FillEl.lipse (Random (GetMaxX div 2), Random(GetMaxY div 2),Random(GetMaxX
div 5),
Random(GetMaxY div 5))
until KeyPressed;
Достарыңызбен бөлісу: |
