Hallo,
um noch einmal zur Ausgangsfrage nach einer "virtuellen" Linie zurückzukommen: der folgende Code verwendet die
GDI-Funktion
LineDDA, um alle Punkte der Linie zu ermitteln. Für jeden Punkt wird die Funktion
HitTest aufgerufen, die den Abstand zwischen dem Testpunkt und dem aktuellen Punkt der Linie mit einem Schwellwert vergleicht. Wird der Schwellwert für mindestens einen Punkt unterschritten, war der Test erfolgreich.
Delphi-Quellcode:
type
PHitInfo = ^THitInfo;
THitInfo = record
px, py : Integer;
accuracy : Integer;
hit : Boolean;
end;
procedure HitTest (X, Y: Integer; lpData: LParam); stdcall;
begin
with PHitInfo(lpData)^ do
if (Sqr(px - X) + Sqr(py - Y) <= Sqr(accuracy)) then
hit := True;
end;
// P1, P2 beschreiben die Linie
// x, y sind die Koordinaten des zu testenden Punktes
// accuracy ist eine (optionale) Empfindlichkeit für den Test (0=exakt)
function LineHit (const P1, P2: TPoint; x, y: Integer; accuracy: Integer = 0): Boolean;
var
Info : THitInfo;
begin
Info.px := x;
Info.py := y;
Info.accuracy := accuracy;
Info.hit := False;
LineDDA(P1.X, P1.Y, P2.X, P2.Y, @HitTest, Integer(@Info));
Result := Info.hit;
end;
Das Laufzeitverhalten dürfte schlechter als das der bereits vorgestellten Lösungen sein. Falls eine große Anzahl von Linien überprüft werden muß, sollte man vielleicht einen
bounding box test vorschalten.
Gruß Hawkeye