Rechteck finden in Bild

[marabu]

Deine Code-Vervollständigung zeigt dir die benötigten Parameter:

Delphi-Quellcode:

var
  r: TRect;
  p: TPoint;
begin
  if PtInRect(r, p) then ...
end;

[matashen]

Noch ne Frage,

Sorry Marabu, aber möchte erst alles Verstanden haben bevor ich losleg und noch grundlegende Fehler mache.

Du hast erwähnt ich soll die Ecken suchen und bei variabler Kantendicke entsteht mehr Zeitaufwand.

Wie meinst du das

und wenn ich schon die Ecken erkenne wäre es dann nicht sinnvoller vier Arrays zu machen, da ich ja dann schon sagen kann ob die Ecke links/rechts/oben/unten ist.

Gruß Matthias

[marabu]

Als erstes suchst du die Kanten, nicht die Ecken.

Delphi-Quellcode:

type 
  TVertEdge = record
    Top: TPoint;
    Bottom: TPoint;
  end;

  THorzEdge = record
    Left: TPoint;
    Right: TPoint;
  end;

Implementiere zuerst den trivialen Fall (Kantendicke = 1 Pixel). Wenn du die Kanten hast, dann kannst du Rechtecke zusammenstellen. Es wird genau vier Kanten geben, zwei vertikale und zwei horizontale, welche gemeinsame Punkte (die Ecken) aufweisen.

Dickere Kanten sind eine relativ einfache Erweiterung. Es läuft darauf hinaus, dass Kanten länger als breit sein müssen und dass du Rechtecke findest, welche ineinander verschachtelt sind. Es werden nur die jeweils äußeren Rechtecke weiter betrachtet, die inneren sind Artefakte des Algorithmus.

[matashen]

Danke Marabu,

jetzt hab ichs kapiert,

ich werd mal das ganze schreiben und denke das ichs hinbekomme. Scanline hab ich mir auch angesehen.

Vielen Dank für die ausführliche Hilfestellung

Gruß Matthias