Procedure FillPoly (N: Word; var Coords);
мұндағы N – тұйық көпбұрыштың төбелерінің саны; Coords – төбелер координатасы жазылған, PointType типті айнымалы.
Төбелер координатасы Integer типті екі мəн арқылы беріледі: біріншісі көлденең, екіншісі тік координатасы. Олар үшін мо-дульде анықталған келесі типтерді қолдануға болады:
type
PointType = record
х,у: Integer
end;
Шекара сызығының стилі жəне түсі SetLineStyle жəне SetColor процедураларында беріледі, бояу типі жəне түсі – SetFillStyle про-цедурасымен.
Келесі мысалда экранға кездейсоқ боялған көпбұрыштар са-лынады.
uses Graph, CRT;
var
d,r,e: Integer;
array [1..6] of PointType; n,k: Word;
begin
{Графиканы іске қосамыз} d:=Detect; InitGraph(d,r,’’); e:=GraphResult;
if e <> grOk then WriteLn(GraphErrorMsg(e))
else begin
{Экран ортасында терезе саламыз} d:=GetMaxX div 4;
214
r:=GetMaxY div 4; Rectangle(d,r,3*d,3*r); SetViewPort(d+l,r+l,3*d-l,3*r-
l,ClipOn);
{Боялған кездейсоқ көпбұрыштарды шығару циклі} repeat
{Кездейсоқ түс пен өрнекті таңдаймыз} SetFillStyle(Random(12),Random(succ(GetMaxCol or)));
SetColor
(Random(succ(GetMaxColor)));
{Кездейсоқ координаталарды белгілейміз}
n:=Random (4) + 3;
for k:=1 to n do with p[k] do begin
x:=Random (GetMaxX div 2); у:=Random (GetMaxY div 2)
end;
FillPoly (n, p)
{Шығарып бояймыз}
until KeyPressed;
if ReadKey=#0 then k:=ord(ReadKey); CloseGraph
end
end.
Достарыңызбен бөлісу: |
