Thick-parametri quyidagi qiymatlarni qabul qiladi: - Thick-parametri quyidagi qiymatlarni qabul qiladi:
- const
- NormWidth =1; {chiziq qalinligi 1 pixel}
- ThickWidth =3; {chiziq qalinligi 3 pixel} dastur tarkibida kattaliklar-doimiylikalr nomini o‘zgartirishimiz mumkinligini hisobga olgan holda, SetLineSstyle protsedurasidan foydalanishga misol keltiramiz:
- Misol:
- uses graph;
- const uzluksiz=0; nuqtali=1;Shtrix_punktir=2; punktir=3;foychiz=4;
- chizqal=1;
- var
- gd,gm, i:integer;
- begin
- gd:=detect;initgraph(gd,gm,'');
- setlineStyle(nuqtali,0,chizqal);moveto(100,100);Lineto(400,100);
- setlineStyle(uzluksiz,0,chizqal);moveto(100,110);Lineto(400,110);
- setlineStyle(Shtrix_punktir,0,chizqal);moveto(100,120);Lineto(400,120);
- setlineStyle (punktir,0,chizqal);moveto(100,130);Lineto(400,130);
- setlineStyle (foychiz,80,chizqal);moveto(100,140);Lineto(400,140);
- readln;
- end.
Izoh: domiyliklar nomi o‘rniga ularning qiymatidan ham foydalanishimiz mumkin. - Izoh: domiyliklar nomi o‘rniga ularning qiymatidan ham foydalanishimiz mumkin.
- SetLineStyle- protsedurasi yordamida o‘rnatilgan chiziqning shakli yordamida to‘rtburchak, ko‘pburchak va boshqa shakllarni chizishda foydalanish mumkin.
- rectangle(x1,y1,x2,y2:integer);-protsedurasi chap yuqori burchagi ( x1,y1) va o‘ng quyi burchagi (x2,y2) nuqtalarda joylashgan to‘gri to‘rtburchak chizish uchun ishlatiladi.
- masalan:
- uses graph;
- var gd,gm:integer;
- begin
- gd:=detect;
- initgraph(gd,gm,'c:\tp\bgi');
- on rangi faqat “qora” rangda emas,
- rectangle(5,5,getmaxx-5,getmaxy-5);
- readln;
- end.
- SetColor (color:word);- protsedurasi chizilishi va chop etilishi zarur bo‘lgan chiziqlar va simvollar rangini belilaydi. Graph modulida ranglarni ifodalash uchun Srt modulidagi doimiyliklardan foydalaniladi.
- GetColor :word- funksiyasidan joriy rang kodini aniqlashda foydalaniladi.
- GetMaxColor :word- funksiyasi SetColor protsedurasida foydalanishi mumkin bo‘lgan maksimal kodni aniqlashda ishlatiladi.
- Matnli holatdan farqli f ixtiyoriy bo‘la oladi. Grafikali ekranda rangni aniqlash orqali butun ekran rangini o‘zgartirish mumkin, ya’ni bu ekranni turli sohalarini turli ranglar bilan “bo‘yash”ning iloji yo‘q.
Do'stlaringiz bilan baham: |