Реферат: Закраска гранично-заданной области с затравкой, Машинная графика, C Builder 4.0

{

tx=xl;

ty=ty+j;

while(tx<=xr)

{

c=0;

while((Form1->PaintBox1->Canvas->Pixels[tx][ty]!=bcolor)&&

(Form1->PaintBox1->Canvas->Pixels[tx][ty]!=kraska)&&(tx<xr))

{tx++;c=1;}

if(c==1){

raz=raz+1;

while((Form1->PaintBox1->Canvas->Pixels[tx][ty]==bcolor)||

(Form1->PaintBox1->Canvas->Pixels[tx][ty]==kraska)) tx--;

pont[raz]->x=tx;

pont[raz]->y=ty;

}

tx=tx+1;

while(((Form1->PaintBox1->Canvas->Pixels[tx][ty]==bcolor)||

(Form1->PaintBox1->Canvas->Pixels[tx][ty]==kraska))&&(tx<xr)&&(tx>xl))

{tx=tx+1;}

}

}

Zaliv()

{

raz=1;

pont[raz]->x=x0;

pont[raz]->y=y0;

while(raz>0)

{