Irgendwelche Ansätze, Augen zu finden?
Habe mal versucht das ganze schwarz/weiß zu setzen (erstmal quick&dirty), aber es soll bei jeder Belichtung funktionieren und je nachdem wie der schwellwert ist (hier 127) ergibt sich ein vollkommen anderes Bild...
Kann man irgendwie die "Durchschnittshelligket" des Bildes berechnen, um den perfekten Schwellwert rauszukriegen?
... Langsam wächst die Aufgabe... Ich setz mich mal wieder dran x)
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
X,
Y:integer;
R,
G,
B:Byte;
begin
for Y:=0 to Image1.Picture.Height do
for X:=0 to Image1.Picture.Width do
begin
R:=GetRValue(Image1.Picture.Bitmap.Canvas.Pixels[X, Y]);
G:=GetGValue(Image1.Picture.Bitmap.Canvas.Pixels[X, Y]);
B:=GetBValue(Image1.Picture.Bitmap.Canvas.Pixels[X, Y]);
if((R+G+B)div 3 > 127)
then Image1.Picture.Bitmap.Canvas.Pixels[X, Y]:=clWhite
else Image1.Picture.Bitmap.Canvas.Pixels[X, Y]:=clBlack;
end;
end;
Gruß vom LDer.