графика

[альбертоо]

добрый вечер=) вот код программы где прямоугольник доходя до определенной линии (за которой черный фон) меняет сразу цвет из черного на белый

program abc;
uses graphabc;
var a,x,b,y:integer;
begin
lockdrawing;
for a:=1 to 1000 do
begin
clearwindow;
if x<=400 then
begin
rectangle(x+100,y+100,x+200,y+200);
x:=x+1;
y:=y+1;
floodfill(150+x,150+y,clblack);
line(600,0,600,100000);
floodfill(650,100,clblack);
sleep(10);
redraw;
end;
begin
clearwindow;
if x>400 then
begin
rectangle(x+100,y+100,x+200,y+200);
x:=x+1;
y:=y+1;
floodfill(150+x,150+y,clwhite);
line(600,0,600,1000000);
floodfill(650,100,clblack);
sleep(10);
redraw;
end;
end;
end;
end.

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

[альбертоо]

вот я написал этот кусок кода

if x+200,y+200>600 then
floodfill(x+100,y+200,clwhite)
if x+100,y+100<600 then
floodfill(x+200,y+100,cl black)

только не знаю куда его вставить в прогу и правильный ли он??))