O‗zbekiston respublikasi oliy va o‘rta maxsus ta‘limi vazirligi a. Qodiriy nomidagi jizzax davlat pedagogika instituti ta‘limda axborot texnologiyalari kafedrasi

 
 
 
Grafik
shakllar
yasash
 
 
 
Grafik shakllar yasash uchun 13 ta protsedura 
va bitta funksiya yaratilgan.
Bu protseduralar yordamida tasvirning ixtiyoriy joyidagi nuqtani ixtiyoriy rangga 
bo‗yash, to‗g‗ri chiziq kesmasini bir necha usulda yaratish, aylana, ellips, oddiy va uchlari 
yumaloqlangan to‗g‗ri to‗rtburchak, aylana yoyi, doira sektori va segmenti kabi shakl va 
chiziqlarni yasash, to‗g‗ri to‗rtburchak shaklidagi yoki biron yopiq chiziq bilan 
chegaralangan sohani joriy rangda bo‗yash kabi amallarni bajarish mumkin.
Bu bo‗limdagi yagona funksiya tasvirning ixtiyoriy joyidagi piksel rangini 
aniqlash uchun xizmat qiladi.

---

 
1.procedure
SetPixel(x,y,color: integer); 
(x,y) koordinatali pikselni color nomerli rangga bo‗yaydi.
Misol.
uses graphABC;
var x,y:integer;
begin
setwindowsize(401,201);
centerwindow;
for x:=0 to 100 do
for y:=0 to 50 do
setpixel(4*x,4*y,x*10+y*1000)
end.
 
2.function
GetPixel(x,y): integer;
(x,y) koordinatali pikselning rangini aniqlab butun son sifatida qaytaradi.
Misol.
uses graphABC;
var x:integer;
begin
setwindowsize(401,201);
centerwindow;
for x:=1 to 200 do
setpixel(2*x,x,getpixel(2*x-2,x-1)+1000);
end.
3.procedure
MoveTo(x,y: integer); 
Ko‗rinmas qalamni (x,y)koordinatali nuqtaga o‗tkazadi. Bu protsedura

---

LineTo(x,y)bilan birga ishlatiladi.
Misol.
uses graphABC;
var x:integer;
begin
setwindowsize(400,400);
centerwindow;
moveto(100,100);
lineto(300,100);
lineto(100,300);
lineto(300,300)
end.
4. procedure
FloodFill(x,y,color: integer); 
(x,y)nuqtadan boshlab, biron bir chiziq bilan chegaralangan sohani color
nomerli rangga bo‗yaydi.
Misol.
uses graphABC;
var x:integer;
begin
setwindowsize(400,400);
centerwindow;
for x:=20 downto 1 do
begin
pie(100+5*x,200,10*x,30,330);
FloodFill(100+4*x,200,255500+x*10);
end;
end.
5. procedure
FillRect(x1,y1,x2,y2: integer); 
Qarama-qarshi uchlari (x1,y1) va 
(x2,y2) nuqtalarda 
bo‗lgan to‗g‗ri 
to‗rtburchakni cho‗tkaning joriy rangiga 
bo‗yaydi.
Misol.
uses graphABC;
var x,y:integer;
begin
setwindowsize(400,400);
centerwindow;
floodfill(100,100,0);
for x:=0 to 7 do
for y:=0 to 7 do
if (x+y) mod 2=0 then
fillrect(x*50,y*50,50+x*50,50+50*y)
end.

---