const ClipOn = True ; {Қиып тастауды қосу} ClipOff = False ; { Қиып тастауды қоспау }
Келесі мысал СlipОn параметрінің қызметін көрсетеді. Про-грамма СlipОn параметрінің мəні əртүрлі, екі тікбұрышты тере-зе жəне олардың ішіне бірнеше дөңгелек салады. Көрнекі болуы үшін терезелер жақтауларға алынады (7.1-сурет).
Uses Graph,CRT;
var
x,y,e: Integer;
x11, y11, x12, y12, {1-ші терезе координа-тасы}
x21, x22, {2-ші терезенің сол жақ жоғарғы бұрышы}
R, {Бастапқы радиус} k: Integer; begin
DirectVideo:=False; {CRT модулінде бейнежадыға тікелей қол жеткізуді алып тастай-мыз}
{Графикалық режимді іске қосамыз}
х:= Detect;
InitGraph(x, у, ' ');
{Нəтижені тексереміз}
е:= GraphResult;
if e <> grOk then
WnteLn (GraphErrorMsg (e)) {Қате} else
begin {Қате жоқ}
{Экран мүмкіндіктеріне байланысты координата-ларды есептейміз}
x11:= GetMaxX div 60;
х12:= GetMaxX div 3;
y11:= GetMaxY div 4;
y12:= 2*y11;
R:= (x12-x11) div 4;
x21:= x12*2;
x22:= x21+x12-x11; {Тезезе саламыз}
172
WriteLn('ClipOn:':10,'ClipOff:':40); Rectangle(x11, y11, x12, y12); Rectangle(x21, y11, x22, y12);
{1-терезені белгілеп, оның ішіне төрт дөңгелек саламыз}
SetViewPort{x11, y11, x12, y12,
ClipOn);
for k := 1 to 4 do
Circle(0,y11,R*k) ;
{2-терезені белгілеп, оның ішіне дөңгелек са-
ламыз}
SetViewPort(x21, y11, x22, y12,
ClipOff);
for k := 1 to 4 do
Circle(0,y11,R*k);
{кез келген перненің басылуын күтеміз}
if ReadKey=#0 then k := ord(ReadKey); CloseGraph
end
