Hey Im having Trouble Finding the middle of 2 Merging Colors....


Here is My Sample soo far

Simba Code:
program new;
var
i,Length_x,w,h,x ,y:integer;
Reds_And_Greens,Reds,Greens:TpointArray;
Atpa1, Atpa2:T2dPointArray;
begin
getclientdimensions(w,h);
writeln(w);
writeln(h);
findColors(Reds,255,0,0,789,676);
findColors(Greens,255,0,0,789,676);
writeln(reds);
writeln(greens);
//Reds_And_Greens:= CombineTPA(Reds,Greens);
//Atpa1:= TpaToAtpa(Reds_And_Greens,30);
//Atpa1:= SplitTpa(Reds_And_Greens,10);
//Length_x:=High(Atpa1);
Atpa2:= SplittPA(Greens,1);
length_x:=high(Atpa2);
writeln(Length_x);
for i:=0 to Length_x do
begin
//middletpaex(Atpa1[i],x,y);
middletpaex(atpa2[i],x,y);
movemouse(x,y);
end;
end.




as you can see...
ive used findcolors for both colors which worked
now finding where the center of them are is quite a challange.