ich bin dabei eine LookUptabelle für die matching-vektoren zu bauen, leider geht
VLookUp = array of array of TIntgerlist nicht, da ich im ersten Schritt
setlength(VLookUp, imagesize_x, imagesize_y); bei einem Bild mit 2000 x 2000 pixel 4 mio IntegerListen im Speicher anlegen müsste ...
mein Plan :
SimplifyVectorEXT benötigt 4E6 *~ 4E3 zugriffe , immerhin um den Faktor 1000x schneller
procedure SimplifyVectorEXT;
var
m, m2: integer;
begin
for m.......
for m2 := getbestminrange(m) to getbestmaxrange(m) // ich muss nur +- 1 Zeile absuchen !!!!
begin
if EqualVectors(m, m2) then
RemoveVectors(m, m2);
end;
end;