[GDI+] Nächsten Punkt zum Kreis finden

Alex-Digital · 9. November 2013, 12:39

Hallo,

wie kann ich den nächsten Punkt auf einer Kreislinie vom Mauszeiger aus finden?

Roter Punkt = Mauszeiger
Gelber Punkt = nächster Punkt auf Kreislinie

(nur zur Veranschaulichung)

Wie kann ich diesen Punkt mit GDI+ rausfinden und in einer Location speichern?

Ich will keinen fertigen Code, sondern nur Ansätze.

Hoffe, jemand kann mir helfen.

MFG

Alex-Digital

nafets3646 · 9. November 2013, 12:45

Bestimme, in welchem Winkel der Mauszeiger zum Kreismittelpunkt steht und gehe dann vom Mittelpunkt in diesem Winkel die Entfernung des Kreisradius nach außen.

Quadsoft · 9. November 2013, 12:52

Punkt_Rand = Mittelpunkt_Kreis + (Punkt_Zeiger - Mittelpunkt_Kreis)/|(Punkt_Zeiger - Mittelpunkt_Kreis)| * Radius

Alex-Digital · 9. November 2013, 13:14

@Quadsoft:

Wie wird Punkt_Zeiger usw. angegeben? Als Point oder Integer oder was dann?

Und was bedeutet | ?

Freue mich auf Antworten.

MFG

Alex-Digital

Mangafreak1995 · 9. November 2013, 13:16

| <-- Betragsstrich Math.Abs wäre das Equivalent

Alex-Digital · 9. November 2013, 13:23

Ok, jetzt weiß ich, was | ist, aber mit welchen Datentypen muss ich arbeiten?

Wenn ich mit Point arbeite, kommt eine Fehlermeldung bei Abs :huh:

Wenn ich mit anderen arbeiten muss, mit welcher?

Freue mich auf Antworten.

MFG

Alex-Digital

Quadsoft · 9. November 2013, 13:30

Mangafreak1995 schrieb:

| <-- Betragsstrich Math.Abs wäre das Equivalent

Nein, das ist der Vektorbetrag

@Alex-Digital

Am einfachsten rechnest du mit Single.

RodFromGermany · 9. November 2013, 13:33

@Alex-Digital:: Bestimme die Gerade vom roten Punkt zum Kreismittelpunkt.
Setze Gerade und Kreis gleich ==> quadratische Gleichung.
Als Resultat erhältst Du den nächsten und den entferntesten Punkt auf dem Kreis.

Quadsoft · 9. November 2013, 13:38

So meinte ich das:

VB.NET-Quellcode

Public Class Form1
Dim mouse As PointF ' Mauszeiger
Dim m As PointF = New PointF(150, 150) ' Kreismittelpunkt
Dim r As Single = 100 ' Radius
Public Sub New()
InitializeComponent()
DoubleBuffered = True
End Sub
Protected Overrides Sub OnPaint(e As PaintEventArgs)
MyBase.OnPaint(e)
Dim g As Graphics = e.Graphics
g.SmoothingMode = Drawing2D.SmoothingMode.AntiAlias
Dim x, y, abs As Single
' Betrag des Vektors Kreismittelpunkt-Mauspunkt
abs = Math.Sqrt((mouse.X - m.X) * (mouse.X - m.X) + (mouse.Y - m.Y) * (mouse.Y - m.Y))
' Randpunkt bestimmen
x = m.X + (mouse.X - m.X) / abs * r
y = m.Y + (mouse.Y - m.Y) / abs * r
g.DrawEllipse(New Pen(New SolidBrush(Color.Red), 2), m.X - r, m.Y - r, 2 * r, 2 * r)
g.FillEllipse(New SolidBrush(Color.Black), x - 5, y - 5, 10.0F, 10.0F)
End Sub
Protected Overrides Sub OnMouseMove(e As MouseEventArgs)
MyBase.OnMouseMove(e)
mouse = e.Location
Invalidate()
End Sub
End Class

@RodFromGermany

Quadratische Gleichung? WTF?

RodFromGermany · 9. November 2013, 13:45

Quadsoft schrieb:

Quadratische Gleichung?

Gerade: y = a + b * x
Kreis: (x - x0)² + (y - y0)² = r²
Kreis nach y auflösen, beide Gleichungen gleich setzen (y = y), x ausrechnen: Quadratische Gleichung.

Quadsoft · 9. November 2013, 13:46

Ja, aber wozu? Wenns viel einfacher mittels Vektoren geht??

Alex-Digital · 9. November 2013, 13:51

Hallo,

danke für die Antwort @Quadsoft , das hat mir sehr geholfen.

Erledigt.

MFG

Alex-Digital

Mangafreak1995 · 9. November 2013, 15:01

@Quadsoft: ach schiet ja. Ich hab einfach nur geguckt wie die | standen und nicht welche Typen die Variablen hatten.

[GDI+] Nächsten Punkt zum Kreis finden

[GDI+] Nächsten Punkt zum Kreis finden

Mangafreak1995 schrieb:

VB.NET-Quellcode

Quadsoft schrieb:

Benutzer online 1

Tags

Ähnliche Themen

5 Benutzer haben hier geschrieben