der code kommt von :
http://cardhouse.com/computer/vectcode.htm, ist uralt, vermutlich noch tp5.5
das problem liegt in der procedure :
Delphi-Quellcode:
procedure simplifyvector;
var
m,m2: integer;
begin
for m := 1 to Vnum do
for m2 := m + 1 to Vnum do
begin
if equalvectors(m,m2) then
removevectors(m,m2);
end;
end;
bei einer bitmap mit 4000x4000 pixel und ggf. 1 mio black pixel( Vnun) dauert die procedure simplifyvector ~ 1e6 * 1e6 operationen ... gleichbedeutend mit einem blue screen .