Закрас попиксельно.

[NSvirus]

собстно сообразил и сделал нечто - для Паскаля и без массива и стека.
Кому нужно:

program abc;
uses
 Graph;
Var
 grD,grM,res:integer;
 n,t,zv:integer;
 x1,x2,y1,y2:integer;
 a:array[1..250,1..250] of boolean;
Begin
 grD:=detect;
 initGraph (grD,grM,'');
 setcolor(5);
 line(20,20,70,80);
 line(70,80,90,20);
 line(90,20,60,60);
 line(60,60,70,40);
 line(70,40,20,20);
 putpixel(30,30,10);
  for t:=20 to 110 do
   begin
     for n:= 20 to 120  do
       begin
         zv:=getpixel(n,t);
         if ((zv=10)and(a[n,t]=false)) then
          begin
           x1:=getpixel(n-1,t);
           x2:=getpixel(n+1,t);
           y1:=getpixel(n,t-1);
           y2:=getpixel(n,t+1);
           if x1=0 then putpixel(n-1,t,10);
           if x2=0 then putpixel(n+1,t,10);
           if y1=0 then putpixel(n,t-1,10);
           if y2=0 then putpixel(n,t+1,10);
           if ((x1=0) or (x2=0) or (y1=0) or (y2=0)) then begin  a[n,t]:=true; t:=1; end;
          end;
       end;
   end;
   readln;
end.

//здесь нужно учитывать одну особенность: если в заданном интервале будет точка цвета заливки за фигурой которую нужно залить, то все что находится за фигурой, будет закрашено))


А как выполнить закраску рекурсией, что-то совсем не понял(

[Arigato]

Сообщение от NSvirus

А как выполнить закраску рекурсией, что-то совсем не понял(

В простейшем случаи:

процедура Заливка (х, у);
начало
  если Точка[х,у] = цвет_заливаемой_области тогда
  начало
    Точка[х,у] := цвет_заливки;
    Заливка (х + 1, у);
    Заливка (х - 1, у);
    Заливка (х, у + 1);
    Заливка (х, у - 1);
  конец;
конец;

Но таким образом очень быстро переполнится стек (если область заливки достаточно большая). Потому можно рисовать не по 1 точки, а сразу целые горизонтальные линии, что и делается в моем примере выше.