Entfernung zwischen zwei Pixelkoordinaten

[cRayZo]

Hi, ich möchte die entfernung zwischen 2 pixelpunkten in einem Panel berechnen lassen, und das wie folgt.

in unserem Hörsaal haben wir ca 30 PCs. Ich möchte ein Programm schreiben, mit dem man ein Surroundsound für diese PCs erstellen kann. Dafür hab ich mir eine Oberfläche (im Anhang) erstellt und möchte jetzt für jeden PC die Lautstärke in Abhängigkeit zur Entferung eines Punktes(welcher sich mit dem Mauszeiger bewegt) berechnen.
Dazu habe ich folgende Funktion aufgestellt und sie funktioniert auch reibungslos.

hier erstmal der code

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);  //Timerintervall auf 250
          var
          topx:real;   entfernung:integer;
          leftx:real;
          shape1top, shape1left:integer;
   begin
    shape1Top:=shape1.Top;shape1left:=shape1.Left;

//PC031
topx:=abs(PC031.Top-shape1Top);
leftx:=abs(PC031.left-shape1left);
entfernung:=(250*trunc(ntewurzel(2,trunc(power(leftx,2)+power(topx,2)))));
if entfernung>65000 then entfernung:=65000 else;
SetMasterVolume(MasterVolumeControl,65000-entfernung);
{Lautstärke des PCs}:=floattostr(65000-entfernung); //6500 als maximaler Lautsärkewert

Problem ist nur, dass sie viel zu viel Performace nimmt, vor allem wenn ich diese Funktion 30 mal jede Viertelsekunde durchlaufen lassen muss.

so lange rede kurzer sinn, habt ihr eine einfachere Lösung mit der ich die Entfernung zweier Punkte ausrechnen kann? sie sollte allerdings noch möglichst genau sein

schonmal thx für die Antwort, lg cRayZo

[dominikkv]

Zitat:

Zitat von cRayZo

Dafür hab ich mir eine Oberfläche (im Anhang)

wo? :zwinker:
Ansonsten:
Entfernung := Wurzel(X*X+Y*Y)
Wobei X und Y der X- und Y-Abstand sind.
Als Wurzel kannst du SQRT aus der Math.pas nehmen

[cRayZo]

joa also Bild ist jetzt im Anhang^^
zu deinem Tipp:

Delphi-Quellcode:

Entfernung := Wurzel(X*X+Y*Y)

ist ja nichts anderes als

Delphi-Quellcode:

power(x,2)+power(y,2)

so wie ich es benutzt habe
der Rest in meiner Gleichung rundet den Wert ja nur und rechnet diesen in die Lautstärke um
so wie ich es gemacht habe, ich hab die Änderung von dir trotzdem mal ausprobiert..die performance wird noch miserabler^^ Will garned dran denken wies dann aussieht, wenn das Senden der Lautstärke an die PCs performancemäßig noch gehen soll^^

[DeddyH]

Evtl. bringt der Einsatz von Threads schon einmal etwas.

[cRayZo]

Zitat:

Zitat von DeddyH

Evtl. bringt der Einsatz von Threads schon einmal etwas.

ja da hast du auf jeden Fall recht, vorteil auf jeden Fall weil ich dazu noch einen dualcore hab. Nur mal so als Leistungsvergleich: wenn ich die Funktion so schnell wie möglich und so oft wie möglich 15 mal berechnen lass habe ich ne volle auslastung von einem Kern, der andere wird nicht benutzt.

Problem ist nur, ich weiß nicht wie ich einen Thread erstelle, noch nie gebraucht^^

[Nikolas]

Delphi-Quellcode:

topx:=abs(PC031.Top-shape1Top);
leftx:=abs(PC031.left-shape1left);
entfernung:=(250*trunc(ntewurzel(2,trunc(power(leftx,2)+power(topx,2)))));
if entfernung>65000 then entfernung:=65000 else;
SetMasterVolume(MasterVolumeControl,65000-entfernung);
{Lautstärke des PCs}:=floattostr(65000-entfernung); //6500 als maximaler Lautsärkewert

das kann man aber deutlich schöner machen.

a) die 65000 als Konstante deklarieren, reine Zahlen haben im Code eigentlich nichts zu run.

Delphi-Quellcode:

if entfernung>65000 then entfernung:=65000 else;

:shock: was macht das else? nimm doch einfach entfernung := min(entfernung, 65000);

Delphi-Quellcode:

entfernung:=(250*trunc(ntewurzel(2,trunc(power(leftx,2)+power(topx,2)))));

wie wäre es mit

Delphi-Quellcode:

entfernung = trunc(250*sqrt(leftx*leftx+topx*topx));

selbstgeschriebene Funktionen sind wohl kaum schneller als das eingebaute sqrt, das sicherlich aufs höchste optimiert ist.

[Klaus01]

Hallo,

nur mal eine Verständnisfrage, warum berechnest Du die Entfernungen
in einem TimerIterval von 250ms?
Die Berechnungen müßen doch nur dann durchgeführt werden, wenn der Punkt verschoben wurde
und nicht permanent.

Grüße
Klaus

[3_of_8]

Wenn ich mich richtig erinnere, ist sqrt sogar eine FPU-Operation und somit um einiges schneller als jede mögliche andere Implementierung. Achja, und so nebenbei, power(x, 2) ist um einiges langsamer als x*x. Naja, jedenfalls theoretisch, praktisch gesehen wird der Compiler es wahrscheinlich sowieso wegoptimieren und in x*x übersetzen, aber x*x ist immer noch schöner.

[dominikkv]

hmm ich hab grad nen test gemacht:

Delphi-Quellcode:

Y := X*X

ist ca 36 mal so schnell wie

Delphi-Quellcode:

Y := Trunc(Power(X, 2));

und dein ntewurzel kenne ich nicht :/
ich würde das so machen:

Delphi-Quellcode:

entfernung := 250 * round(SQRT(leftx * leftx + topx * topx));

edit:
ich seh grad, der vorschlag von Nikolas ist genauer, da er zuesrt *250 nimmt und dann die nachkommststellen abschneidet...
ansonsten kannst du ja noch runden xD

Delphi-Quellcode:

entfernung := round(250 * SQRT(leftx * leftx + topx * topx));

[cRayZo]

Zitat:

Zitat von Nikolas

selbstgeschriebene Funktionen sind wohl kaum schneller als das eingebaute sqrt, das sicherlich aufs höchste optimiert ist.

klar nur wenn ich diese Funktion nciht kenne versuche ich mir anders zu helfen ;)

joa also muss ich mich dann owhl erstmal in Threads probieren, anders wirds wohl kaum gehen, wenn ich mehr performance erreichen will.. oder hat jemand noch eine andere idee?