Ну первый вариант, который приходит в голову, это найти, ну например выпуклую оболочку фигуры, залить её, потом ненужное откинуть.

ну а ненужное как найти?)) не... эт не попрет (((((

уга-буга, почему нельзя для ненужной посмотреть ее по принадлежности.у тебя же есть какая-то формула, которая задает фигуру... вот просто обратить эту формулу и все.

griffonya когда кто-то рисует в паинте фигуру, она не обязана описываться математически Не, ну конечно, можно выразить формулой любой кошмар, но не уверен, что сейчас именно такая задача.

К автору: а что мешает в "крайних" точках запустить алгоритм ещё раз? Естественно с указанием центра градиента для определения цвета.

Vj_o-oy, на сколько я понимаю проблема именно в этом.

Вообще смотря о каких размерах идёт речь. Если нам не очень важна производительность, можно найти ограничивающий прямоугольник, залить его, а потом по нему бегать и смотреть что скопировать на итоговую картинку, а что -- нет. Это может использоваться, как промежуточное решение данной проблемы. Если же производительность не особо важна, и не будут заливаться фигуры по несколько мегапикселей, то на нормальном компе это всё за секунду сработает...

а маски здесь применить никак нельзя? так чтоб вне фигуры сделать все прозрачным

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

griffonya когда фигура дырявая ничего не определить человеческими методами...
Vj_o-oy что значит в крайних точках запустить?? алгоритм идет от одной точки.... вверх и вниз...я немного не поняла что ты имел ввиду...
[revolver] я наверное так и сделаю если ничего толкового не придумаю... буду "бегать" по выпуклой оболочке....


всем большое спасибо! )) первый раз тут пишу пост ... и мне понравилось )

кому интересно, можно еще сделать так
procedure Filter(x,y:integer);
var
p1:Picture;
yl,yr,i:integer;
begin
//точка не закрашена и не граница красный - цвет заливки, черный - границы
if ((GetPixel(x,y)<>clred) and (GetPixel(x,y)<>clblack)) then
begin

yl:=y;
yr:=y;
while GetPixel(x,yl)<> clBlack do
yl := yl-1;
while GetPixel(x,yr)<> clBlack do
yr := yr+1;
setpencolor(clred);

yl:=yl+1;
yr:=yr-1;
line(x,yl,x,yr+1);

//Filter(x,y-1);
//Filter(x,y+1);
//Filter(x-1,y);
//filter(x+1,y);
for i:=yl to yr do
begin
if GetPixel(x-1,i)<>clblack then
Filter(x-1,i);
if GetPixel(x+1,i)<>clBlack then
Filter(x+1,i);
end;
end;//
SetPenColor(clblack);
end;



но тут большая вероятность переполнения стека рекурсии... паскаль ругается, а делфя наверное не будут

уга-буга я имею ввиду, что если его запустить повторно в одной из отмеченных точек, то фигура может оказаться заполненной полностью.