Procedure ClearDevice;
ClearViewPort процедурасы графикалық терезені тазалайды, ал егер осы уақытқа дейін терезе анықталмаса, онда экранды тазалайды. Терезе тазаланғанда, ол ағымдағы палитраның 0 нөміріне боялады. Курсор сол жақ жоғарғы бұрышқа орналасады. Процедура тақырыбы:
Procedure ClearViewPort;
Келесі мысалда экранда терезе салынады да, ол кездейсоқ дөңгелектермен толтырылады (7.2-сурет). Кез келген пернені
174
басқан кезде терезе тазаланады. Программадан шығу үшін Enter пернесін басыңыз.
Uses CRT,Graph;
var
x1,y1,x2,y2,Err: Integer; begin
{Графикалық режимді іске қосамыз}
xl := Detect;
InitGraph(xl,x2,'');
Err:= GraphResult;
if ErrOgrOk then
WriteLn (GraphErrorMsg(Err))
else
begin
{Экран мүмкіндігіне байланысты терезе коорди-натасын анықтаймыз}
x1:= GetMaxX div 4;
y1:= GetMaxY div 4;
x2:= 3*x1;
y2:= 3*y1;
{Терезе саламыз}
Rectangle(x1,y1,x2,y2);
SetViewPort(xl+l,yl+l,x2-l,y2-
1,ClipOn);
{Терезені кездейсоқ дөңгелектермен толтырамыз} repeat
Circle (Random (GetMaxX)), Random (GetMaxX),
Random (GetMaxX div 5)); until KeyPressed;
{Терезені тазалап, Enter пернесінің басылуын күтеміз}
ClearViewPort;
OutTextXY (0,0, 'Press Enter …' )
ReadLn
CloseGraph
end
end.
