ich hab den algorithmus jetzt weiterentwickelt, ich sitz jetz insgesamt 3 stunden dran und das ergebnis ist unglaublich schaut euch die bilder im anhang an, ihr könnt es nachtesten, indem ihr die originialbilder nehmt, sie durch meinen algorithmus jagt.
dieser algorithmus ist fast genauso einfach:
-natürlich wieder die 1bit umwandlung
-dann werden wieder schwarze pixel gesucht. es dürfen maximal 2 pixel direkt an dem pixel hängen damit es abgecheckt wird, ob es ein alleinstehendes pixelchen ist.bei der früheren version war es 1er.
-jetzt wird der pixel direkt weiß gemacht und die umliegenden schwarzen pixel werden auch nochmal gecheckt wieviel schwarze pixel sich in deren umgebung befinden.
-sind weniger als 4 pixel in der umgebung von den pixeln, werden alle bisherigen pixel weiß gemacht
hier wieder der algorithmus:
edit: änderung am quelltext
es ist total misteriös, die variable blackpix ist total nutzlos im programm, doch kommentiere ich die
zeile blackpix:=blindpix; aus kommt ein schlechteres ergebnis bei raus xD
edit2: hat sich erledit
Delphi-Quellcode:
type TArrPix = record //typ zur rückgabe der schwarzen pixel in der umgebung des einen pixel
count:integer;
blackpixels:array[0..7] of TPoint;
end;
const schwellwert = $00AAAAAA; //schwellwert für s/w erkennung
//edit: /an diesen beiden konstanten rumspielen um optimale ergebnisse zu erhalten
anzahl_max_black1 = 2; //selektierung von pixelgruppen, je höher desto mehr pixel werden durchsucht
anzahl_max_black2 = 3; //überprüfung ob zum text zugehörig, je höher desto mehr pixel der
//selektierten pixelgruppen werden weiß gemacht
procedure pixelremover;
var i,j,k,l:integer; //zählervariablen
arround_pix:array[0..7] of TPoint;
get_pix,get_pix2:TArrPix; //get_pix variable in der alle schwarzen pixel im umkreis des pixel stehen
//get_pix2 darin stehen alle schwarzen pixel im ukreis des pixels,
//welches im umkreis des ausgangspixels und schwarz ist
get_pix_arr:array[0..7] of array[0..7] of TPoint; //darin werden alle umliegenden schwarzen pixel gespeichert
//der schwarzen pixel die im umkreis des ausgangspixels und schwarz sind
get_white:boolean; //boolean um zu checken ob die pixeln weiß gemalt werden sollen
begin
blindpix.X:=-1;
blindpix.Y:=-1;
for i:=0 to Image1.Picture.Width-1 do //1 bit konvertierung
for j:=0 to Image1.Picture.Height-1 do
if Image1.Canvas.Pixels[i,j]>Integer(schwellwert) then
Image1.Canvas.Pixels[i,j]:=clWhite
else
Image1.Canvas.Pixels[i,j]:=clBlack;
for j:=0 to Image1.Picture.Height-1 do
for i:=0 to Image1.Picture.Width-1 do
if Image1.Canvas.Pixels[i,j]=clBlack then begin //check ob pixel schwarz --->
get_pix:=get_arr_blpixels(i,j,Image1.Picture.Width,Image1.Picture.Height); //alle schwarzen pixel im umkreis des schwarzen pixels erhalten
get_white:=true; //standardwert für get_white setzen
if get_pix.count<=anzahl_max_black1 then begin //check wieviel pixel im umkreis des pixels schwarz sind
for k:=0 to 7 do
if (get_pix.blackpixels[k].X>-1)AND(get_pix.blackpixels[k].Y>-1) then begin
get_pix2:=get_arr_blpixels(get_pix.blackpixels[k].X,get_pix.blackpixels[k].Y,Image1.Picture.Width,Image1.Picture.Height);
// // abfragen wieviele und welche schwarze pixel im umkreis der schwarzen pixel des ausgangspixels sind
for l:=0 to 7 do //alle schwarzen pixel in ein array speichern (insgesamt 64)
get_pix_arr[k,l]:=get_pix2.blackpixels[l];
if get_pix2.count>anzahl_max_black2 then begin //-1 ---3 //check wieviele schwarze bits im umkreis sein müssen damit die pixel als text anerkannt werden
get_white:=false; //sind es mehr als 3 schwarze pixel im umkreis, dann nix weißmachen
break;
end;
end;
Image1.Canvas.Pixels[i,j]:=clWhite; //den ausgangspixel weiß machen, ganz wichtig !!!!!
if get_white then begin //alle restlichen 72 pixel weiß machen
for k:=0 to 7 do begin
Image1.Canvas.Pixels[get_pix.blackpixels[k].X,get_pix.blackpixels[k].Y]:=clWhite;
for l:=0 to 7 do
Image1.Canvas.Pixels[get_pix_arr[k,l].X,get_pix_arr[k,l].Y]:=clWhite;
end;
end;
end;
end;
Image1.Picture.SaveToFile('bsp.bmp');
end;
function TForm1.get_arr_blpixels(x,y,width,height:integer):TArrPix; //funktion zum suchen der schwarzen pixel im umkreis
var count,i,j,k:integer;
arround_pix,black_pix:array[0..7] of TPoint;
blindpix,blackpix:TPoint; //zum ausblenden nicht definierter pixel
begin
count:=0;
blindpix.X:=-1;
blindpix.Y:=-1;
blackpix:=blindpix;
i:=x;
j:=y;
count:=0;
arround_pix[0].X:=i-1;//links oben
arround_pix[0].X:=j-1;
arround_pix[1].X:=i; //mitte oben
arround_pix[1].Y:=j-1;
arround_pix[2].X:=i+1;//rechts oben
arround_pix[2].Y:=j-1;
arround_pix[3].X:=i-1;//links mitte
arround_pix[3].Y:=j;
arround_pix[4].X:=i+1;//rechts mitte
arround_pix[4].Y:=j;
arround_pix[5].X:=i-1;//links unten
arround_pix[5].Y:=j+1;
arround_pix[6].X:=i;//mitte unten
arround_pix[6].Y:=j+1;
arround_pix[7].X:=i+1;//rechts unten
arround_pix[7].Y:=j+1;
if (i<1) then
for k:=0 to 3 do
arround_pix[k]:=blindpix;
if (j<1) then begin
arround_pix[0]:=blindpix;
arround_pix[3]:=blindpix;
arround_pix[5]:=blindpix;
end;
if (i>Image1.Picture.Width) then
for k:=5 to 7 do
arround_pix[k]:=blindpix;
if (j>Image1.Picture.Height) then begin
arround_pix[2]:=blindpix;
arround_pix[4]:=blindpix;
arround_pix[7]:=blindpix;
end;
for k:=0 to 7 do
if (arround_pix[k].X>-1)AND(arround_pix[k].Y>-1) then
if Image1.Canvas.Pixels[arround_pix[k].X,arround_pix[k].Y]<Integer($00999999) then begin
inc(count);
black_pix[k]:=arround_pix[k];
end;
Result.count:=count;
for k:=0 to 7 do
Result.blackpixels[k]:=black_pix[k];
end;
und hier wieder bilder