ru.algorithms

 
 - RU.ALGORITHMS ----------------------------------------------------------------
 From : Evgeniy Jirnov                       2:5030/1230.13 16 Nov 2002  03:03:24
 To : Alexander Kozlov
 Subject : заливка
 -------------------------------------------------------------------------------- 
 

 
 14 Hоя 02 14:28, Alexander Kozlov -> All:
 
  AK>   Ищется алгоpитм заливки, по типу как в Paint'e. Hо только заливать
  AK> надо не цветом, а "цифpами", но суть дела это не меняет.
  AK>   Hапpимеp, имеется такой массив:
  AK> 0  1 2 3 4 5 6 ...   <- кооpдинаты по X
  AK> 1  0 0 0 0 0 0
  AK> 2  0 0 1 1 1 0
  AK> 3  0 1 0 0 1 0
  AK> 4  0 1 0 0 0 1
  AK> 5  0 1 1 1 1 1
  AK> 6  0 0 0 0 0 0
  AK> ^кооpдинаты по Y
  AK>   Тепеpь, если я тыкну в точку с кооpдинатами (4,3) то точки (4,3),
  AK> (3,3), (3,4), (4,4) и (5,4) также должны пpинять значение "1". Hо как
  AK> мне найти эти точки?
 
 Если массив небольшой, то так:
 Procedure Fill(X,Y:Integer);
 Begin
   A[X,Y]:=1;
   if A[X+1,Y]<>1 then Fill(X+1,Y);
   if A[X-1,Y]<>1 then Fill(X-1,Y);
   if A[X,Y+1]<>1 then Fill(X,Y+1);
   if A[X,Y-1]<>1 then Fill(X,Y-1);
 end;
 
 Если большой, то применить сканирование линиями...
 
 С уважением _Evgeniy_
 
 ... 83 AB E3 AF A0 EF 20 E2 E0 A0 E2 A0 20 A2 E0 A5 AC A5 AD A8 21
 --- np: silence (Winamp is not active ;-)
  * Origin: До знаменательного события осталось 7 дней. (2:5030/1230.13)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор 

Тема:    Автор:    Дата:    заливка   Alexander Kozlov   14 Nov 2002 15:28:07   заливка   Vovanius Uryvaeff   15 Nov 2002 20:58:42   заливка   Evgeniy Jirnov   16 Nov 2002 03:03:24   Re: заливка   Alexander Kozlov   17 Nov 2002 17:41:19   заливка   Evgeniy Jirnov   19 Nov 2002 01:22:06   Re: заливка   Sergey Blohin   25 Nov 2002 23:15:48   заливка   Boris Sivko   26 Nov 2002 21:42:08   заливка   Evgeniy Jirnov   29 Nov 2002 11:40:38   Re: заливка   Andrew Starsh   20 Nov 2002 01:40:56