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:
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