zalivka [Fill Tool v graph. editor-ax]

z0mbie · 22.01.2002, 00:29

я тут написал, работает, но наверняка есть алгоритм лучше, может кто знает ?

void Fill(int array[MAX_X][MAX_Y],int x,int y,int color) { if(x<0||y<0||x>MAX_X||y>MAX_Y) return; if(array[x][y]==color) return;

array[x][y]=c;

Fill(array,x+1,y,c); Fill(array,x-1,y,c); Fill(array,x,y+1,c); Fill(array,x,y-1,c); }

acid · 22.01.2002, 01:24

Заливка замкнутой области Пример показывает один из самых простых и эффективных способов заливки. Использовать его в таком варианте не рекомендую, рисовать на TImage->Canvas довольно медленно, но в качестве примера очень удобно.

Процедура последовательно просматривает соседние точки, и если они не залиты, то заливает и добавляет 4 соседние точки в очередь, на рассмотрение. И так пока очередь не кончится.

На рисунке черными стрелками показаны точки, которые будут добавлены в очередь для просмотра, а красными, которые не будут добавлены, так как уже залиты.

Теперь собственно - исходник. (Borland C++ Builder). На форме достаточно иметь TImage - Image1.

<BLOCKQUOTE>code:<HR><pre> void ImageFill(short x, short y, TColor color) { // Получим размеры изображения int imw=Form1->Image1->Width; int imh=Form1->Image1->Height; // Выделим памяти для складирования координат, которые еще предстоит залить int STACK_SIZE=(imw+2)*(imh+2); short *floodfill_stackx=(short*)malloc(STACK_SIZE*sizeof(short)); short *floodfill_stacky=(short*)malloc(STACK_SIZE*sizeof(short)); if (floodfill_stacky==NULL || floodfill_stackx==NULL) return; int stack_head=0; int stack_tail=0; TColor clr=Form1->Image1->Canvas->Pixels[x][y]; floodfill_stackx[stack_head]=x; floodfill_stacky[stack_head]=y; Form1->Image1->Canvas->Pixels[x][y]=color; stack_head++; // Пока не кончится память или точки на изображении while (stack_head<STACK_SIZE && stack_head>stack_tail) { x=floodfill_stackx[stack_tail]; y=floodfill_stacky[stack_tail]; stack_tail++; if (x>=0 && y>=0 && x<imw && y<imh) { // Проверим точку справа, если она не залита, то зальем if (Form1->Image1->Canvas->Pixels[x+1][y]==clr) { floodfill_stackx[stack_head]=x+1; floodfill_stacky[stack_head]=y; Form1->Image1->Canvas->Pixels[x+1][y]=color; stack_head++; } // Проверим точку слева, если она не залита, то зальем if (Form1->Image1->Canvas->Pixels[x-1][y]==clr) { floodfill_stackx[stack_head]=x-1; floodfill_stacky[stack_head]=y; Form1->Image1->Canvas->Pixels[x-1][y]=color; stack_head++; } // Проверим точку снизу, если она не залита, то зальем if (Form1->Image1->Canvas->Pixels[x][y+1]==clr) { floodfill_stackx[stack_head]=x; floodfill_stacky[stack_head]=y+1; Form1->Image1->Canvas->Pixels[x][y+1]=color; stack_head++; } // Проверим точку сверху, если она не залита, то зальем if (Form1->Image1->Canvas->Pixels[x][y-1]==clr) { floodfill_stackx[stack_head]=x; floodfill_stacky[stack_head]=y-1; Form1->Image1->Canvas->Pixels[x][y-1]=color; stack_head++; } } } Form1->Image1->Canvas->TextOutA(1,1,IntToStr(stack_head)); // Освободим память free(floodfill_stacky); free(floodfill_stackx); }

void __fastcall TForm1::Button1Click(TObject *Sender) { Image1->Canvas->Ellipse(20,20,300,200); ImageFill(1,1,0xFF0000); } </pre><HR></BLOCKQUOTE>

Dark Abyss of Yerevan · 24.01.2002, 05:08

2Zomb: Hey man, ya i ne znal shto ti uje pereshel na 'pure' programming <IMG SRC="wink.gif" border="0"> tak derzhat'. Nashet algoritma. IMHO algoritm ne effectiven. Rekursiyu ispol`zovat' v dannom sluchaye ne imeyet smisla. Sovershenno neponyatno zachem vse vremya nujno peredavat' `array`.

Vtoroy algoritm v sushnosti to je samoe, no rekursiya ne ispolzuetsya. Instead, ispolzuetsya ochered'. Oba algoritma iz sebya predstavlyayut chastniy sluchay algoritma proxozhdeniya 4arnogo dereva. Algoritm zomba - pryamoy poryadok proxozhdeniya (recursive).

Ispol`zovanie ocheredi(stacka) est' ne shto inoye kak implementaciya rekursii na bolee nizkom urovne. Ved' esli vspomnit', pri vizove funkcii vsya infa zapixivaetsya ne kuda to a imenno v stack.

 2Acid: Slushay, ti eto sam napisal? esli net skaji pojaluysta otkuda u tebya eti doci.

acid · 24.01.2002, 16:39

2DAY

Ne-a, ja ne pishu na Borland-e. A istochnik vot zdes': <A HREF="http://www.codenet.ru" TARGET=_blank>Istochnik</A>

Dark Abyss of Yerevan · 25.01.2002, 02:14

thanks