N. N. Zaripov kompyuter grafikasi

3.2. Ko`pburchak va murakkab sohalarni bo`yash (Rendering)

Kompyuter grafikasida soha 2 ta usul bilan berilishi mumkin:

1. 
   Sohani tashkil etuvchi tashqi nuqtalari bilan, ya’ni sohani ichida yotuvchi har bir piksel biror bir rang (oldcolor) bilan beriladi (chegaradagi piksellar bu qiymatga ega emas).
   

2. 
   Soha chegarasi bilan berilishi mumkin , ya’ni chegaradagi piksellar biror bir rang bilan (bcolor) beriladi (chegara ichidagi piksellar bu qiymatga ega emas). Shu sababli sohani bo`yash, algoritmlari ikki turga bo`linadi. Bundan tashqari 4 va 8 bog`lanishlik sohalar uchun algoritmlar mavjud. Ichki oldcolor rang bilan berilgan yangi newcolor rang bilan 4-bog`lanishlik sohani bo`yash oddiy rekursiya algoritmini keltiramiz:
   

Procedure fill4(x, y: integer;

Newcolor, oldcolor: word);

Begin if (GetpPixel(x,y)=oldcolor)

Then begin

PutPixel (x,y,newcolor);

Fill4(x, y-1, newcolor, oldcolor);

fll4(x, y+1, newcolor, oldcolor);

Fill4(x-1, y, newcolor, oldcolor);

Fill4(x+1, y, newcolor, oldcolor);

End;

End;

{fill}
46

Bu yerda, (x,y) ixtiyoriy sohani ichida yotuvchi nuqta, oldcolor qiymatiga ega piksel. Chegaradagi rangi bilan berilgan (bcolor) sohani bo`yash algoritmi quyidagicha:

Procedure

bfill4(x, y: integer; Bcolor, newcolor: word); Begin

If GetPixel(x, y)<>bcolor and

GetPixel(x, y)<>newcolor

Then begin

PutPixel (x, y, newcolor);

Bfill4(x, y-1, bcolor, newcolor);

Bfill4(x, y+1, bcolor, newcolor);

Bfill4(x-1, y, bcolor, newcolor);

Bfill4(x+1, y, bcolor, newcolor);

End;

End;

{bfill4}

Bu yerda, (x,y) - sohani ichida yotuvchi biror bir nuqta (piksel), newcolor bo`yash rangi. Keltirilgan algoritmlarni 8-bog`lanishlik sohalarga 4-ta yo`nalishni 8-ta yo`nalishga almashtirish orqali osongina o`tkazish mumkin.