Bar процедурасы экранның тікбұрышты аймағын бояйды.
Тақырыбы:
Procedure Bar (X1,Y1,X2,Y2: Integer);
мұндағы X1…Y2 – боялатын ауданның сол жақ жоғарғы (X1, Y1) жəне оң жақ төменгі (X2, Y2) бұрыштарының координатасы.
Процедура тікбұрышты SetFillStyle процедурасында тағайын-далған ағымдағы өрнек үлгісімен жəне түспен бояйды (шекара-сын сызбайды).
Келесі программа əдемі түстер эффектін көрсетеді (кездей соқ тікбұрыштарды бояу).
211
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(GetMaxColor))); Bar(Random(Ge tMaxX),Random(Ge tMaxY),
Random(Ge tMaxX),Random(Ge tMaxY)); until KeyPressed;
if ReadKey=#0 then d:=ord(ReadKey); CloseGraph
end
end.
Достарыңызбен бөлісу: |
