const
NormWidth = 1;{Қалыңдығы бір пиксел}
ThickWidth = 3;{ Қалыңдығы үш пиксел}
183
мұндағы процедура орнатқан түзу стилі (ағымдағы стиль) тік-бұрыш, көпбұрыш жəне басқада фигураларды салғанда қолда-нылады.
Келесі мысалда барлық стандартты стилдермен түзулер салынады, сонан кейін экранда үлгі аты шығады да, экран осы үлгідегі түзумен толтырылады (7.5-сурет). Программадан шығу үшін нөлді енгізіңіз.
7.5-сурет. Түзу сызықтар түрлері
Uses CRT, Graph;
const
style:array [0..4]of String[9]=(‘SolidLn’, ‘dottedLn’,’CenterLn’,’DashedLn’,’UserBitLn’); var
d,r,e,i,j,dx,dy: Integer;
Word;
begin
{Графиканы іске қосамыз} d:=Detect;InitGraph(d, r, ‘’); e:=GraphResult;
if e <> grOk then
WriteLn (GraphErrorMsg(e)) else
begin
{Түзу ығысуын есептейміз} dx:=GetMaxX div 6; dy:=GetMaxY div 10; {стандартты түзулерді шығарамыз}
184
for j:=0 to 1 do {Екі қалыңдық үшін} begin
for i:=0 to 3 do {Түзутің төрт типі} begin
SetLineStyle(i, 0, j*2+1); Line(0,(i+j*4+l)*dy,dx,(i+j*4+l)*dy);
OutTextXY(dx+10,(i+j*4+l)*dy,style [i]) end
end;
{Үлгіні енгізіп, түзу саламыз}
j:=0;
dy:=(GetMaxY+1) div 25;
repeat
OutTextXY(320,j*dy,’Pattern:’);
GotoXY(50,j+1);
ReadLn(p);
if p<> 0 then
begin
SetLineStyle(UserBitLn,p,NormWidth); Line(440,j*dy+4, 600, j*dy+4);
inc(j)
end
until p=0;
CloseGraph;
end
end.
Достарыңызбен бөлісу: |
