![]() |
Winkel zwischen zwei Punkten?!
Hallo, nach viel googlen finde ich einfach nicht, wonach ich suche. Selbst kann ich es nicht beantworten, da ich Winkelfunktionen(sin, cos, tan, etc.) in der Schule noch nicht gelernt habe.
Ich habe einen TPoint, nennen wir ihn P1. Dann klicke ich mit der Maus:
Delphi-Quellcode:
SetDir ist folgendes:
begin
... GetCursorPos(p2); p2 := ScreenToClient(p2); SetDir(round(Tan((P1.Y - P2.Y) / (P1.X - P2.X)))); ... end;
Delphi-Quellcode:
Vielleicht inzwischen erraten, es ist ein Andorra 2D Projekt ;)
procedure TEinheit.SetDir(ADirection: Integer);
var w:integer; begin //Reset the speed variables FYSpeed := 0; FXSpeed := 0; w := ADirection; //Set the X and the Y speed FXSpeed := round(cos(PI/180*w)*Speed); FYSpeed := round(sin(PI/180*w)*Speed); AnimLoop := true; AnimActive := true; end; die DoMove procedure von TEinheit ist folgende:
Delphi-Quellcode:
procedure TEinheit.DoMove(TimeGap: Double);
begin inherited DoMove(TimeGap); X := X + FXSpeed * TimeGap; Y := Y + FYSpeed * TimeGap; end; Tja, egal wohin ich klicke, er läuft immer nach rechts(die Animation soll ja nach rechts laufen, aber der Sprite soll dahin laufen, wohin ich klicke...) Info: Da ich mich ja mit Winkelfunktionen nicht auskenne, habe ich mir die Sinus Cosinus und ArcTangens dinger aus Demos rausgeschnappt.... |
Re: Winkel zwischen zwei Punkten?!
Delphi-Quellcode:
...
uses Math; ... SetDir(round(ArcTan2(P1.Y - P2.Y, P1.X - P2.X)))); ... |
Re: Winkel zwischen zwei Punkten?!
Einen Winkel zwischen 2 Punkten gibt es nicht. Was du hier meinst ist der Winkel einer Geraden gegeben durch 2 Punkte zu einer Koordinatenachse. Allerdings hat das ganze ein Problem: Der Winkel wird immer positiv und zwischen 0..PI/2 liegen, was heisst dass du quasi immer nur nach "oben rechts" guckst. Die Quadrantenbestimmung kann man zwar machen, ist aber wieder zusätzlicher Rechenaufwand.* Letztlich sind triginometrische Ansätze fast immer langsamer, ungenauer und "mehr Code" als die Alternative: Du ersparst ne Menge Ärger wenn du das Vektoriell an gehst.
*Edit: ATan2 macht diese Unterscheidung, dennoch bist du mit ein wenig Rumvektorn am Ende deutlich besser dran. Sagen wir mal P0=(x0, y0) ist wo dein Sprite gerade ist, und P1=(x1, y1) ist der Punkt auf den geklickt wurde. Dann ist V'=(x1-x0, y1-y0) der Vektor der von P0 aus auf P1 zeigt. (P0+V'=P1) Um von P0 aus nun schrittweise (also animiert) zu P1 zu gelangen, musst nun immer nur Bruchstücke von V' zu P0 addieren: P0+t*V'=P', wobei t|[0..1]. Bei t=0 ist P'=P0, und bei t=1 ist P'=P1. |
Re: Winkel zwischen zwei Punkten?!
Also wenn deine Einheit bei X, Y ist, und an Position p2.X, p2,Y geklickt wurde ... geht dann nicht sowas:
Delphi-Quellcode:
Wozu die umrechnung in Polarkoordinaten, um die dann wieder in kartesische umzurechnen?
p2.X := p2.X - X;
p2.Y := p2.Y - Y; FXSpeed := p2.X / sqrt(p2.X * p2.X + p2.Y * p2.Y); FYSpeed := p2.Y / sqrt(p2.X * p2.X + p2.Y * p2.Y); |
Re: Winkel zwischen zwei Punkten?!
"Winkel zwischen zwei Punkten" Den Unsinn habe ich doch jetzt neulich erst irgendwo gelesen. Ich glaube das war irgendwo im DF. Keine Ahnung, ob dir das hilft.
|
Re: Winkel zwischen zwei Punkten?!
Meinst du das da:
![]() |
Re: Winkel zwischen zwei Punkten?!
Jupp, das wars. Waren doch keine zwei Punkte, sondern ein Kreis.
|
Re: Winkel zwischen zwei Punkten?!
Zitat:
Zitat:
mfG :dp: |
Re: Winkel zwischen zwei Punkten?!
Zitat:
Eine Richtung normiert anzugeben ist üblicher, soll die Richtung auch gleich noch die Geschwindigkeit enthalten ist dies die Länge dieses Vektors. Ich hatte imch oben für die ungewöhnlichere Variante entschieden, da t dann immer in 0..1 liegt, und man über die Schrittweite von t die Geschwindigkeit ohne viel Rechnerei nachträglich festlegen/variieren konnte, und vor allem nicht dank Rundungsfehlern evtl. P1 verfehlt. Aber dat sind nu schon Feiheiten =) |
Re: Winkel zwischen zwei Punkten?!
Liste der Anhänge anzeigen (Anzahl: 1)
Ok. jetzt hab ich eine weitere Frage, die durch das Bild im Anhang verdeutlicht werden sollte.
Dort, wo sich die Linien schneiden ist der Nullpunkt. dort ist der Punkt X Jetzt will ich, jenachdem wo der zweite Punkt ist, etwas anderes machen. Je nachdem, welcher linie der Punkt am nächsten ist. Kann man das lösen ? Bitte eine möglichts einfache Erklärung oder Code, damit ich es auch verstehe mfG und ich hoffe ich nerve nicht zu sehr :pale: VdG |
Alle Zeitangaben in WEZ +1. Es ist jetzt 19:57 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz