Hi,

angeregt von diesen Thread versuche ich z.Z. ein kleines Programm zur Erkennung der LED Position zu schreiben.

Mein ALgo sieht bisher so aus:

zusammenfalten · markieren

Delphi-Quellcode:

function PrepareBitmap(src: TBitmap): TBitmap;
var
  x, y: integer;
  P: PRGBTriple;
begin
  result := TBitmap.Create;
  result.Assign(src);
  for y := 0 to result.Height - 1 do begin
    P := result.ScanLine[y];
    for x := 0 to result.Width - 1 do begin
      if
       (P^.rgbtRed < 255)and
       (P^.rgbtGreen = 255)and
       (P^.rgbtBlue = 255)
      then begin
        P^.rgbtRed := 255;
        P^.rgbtGreen := 255;
        P^.rgbtBlue := 255;
      end else begin
        P^.rgbtRed := 0;
        P^.rgbtGreen := 0;
        P^.rgbtBlue := 0;
      end;
      inc(P);
    end;
  end;
end;

Das ergebnis sieht auch nicht schlecht aus(siehe Anhang). Leider sind auf dem Bild noch ein paar Störungen... Meine Frage nun wie kann ich diese kleinen Weißen Bereich verschwinden lassen ? So das nur noch ein Bereich überig bleibt ? Ich habe keine Idee wie ich das machen könnte

mfg, Björn

suche doch einfach nach dem größten zusammenhängenden weißen teil

Nur wie mach ich das ? Ist es sinnvoll da Zeilenweise durch zulaufen mit einen Counter für Weiß ? Ober gibt es da bessere Möglichkeiten ?

mfg, Björn

Ich hab mich jaa uch damit beschätigt und habe das letzendlich so gelöst, dass ich von allen Punkte den Mittelpunkt berechne. Wenn die außerhalb liegenden Stellen klein sind, wäre das damit zu schaffen.

Edit:
Ich komme mit meinem Verfahren auf dieses Ergebnis (siehe Anhang). Wenn man da noch was mit Standardabweichung o.ä. einbauen würde und erstmal alle weit weg liegenden Teile streicht, bekäme man bestimmt vielversprechende Ergebnisse.