DGL • Thema anzeigen - line circle intersection

line circle intersection

Moderator: DGL-Team

Seite 1 von 1

[ 3 Beiträge ]

Vorheriges Thema | Nächstes Thema

Autor

Nachricht

las

Betreff des Beitrags: line circle intersection

Verfasst: Di Sep 09, 2003 18:21

DGL Member

Registriert: Mo Jun 09, 2003 08:09
Beiträge: 98

Ich bastel zurzeit an meiner Kollisions Kontrolle rum...
Naja ich hab ne art Standline zwischen zwei Punkten P1 und P2, und nen Kreis mit dem Radius R an der Position P.
Nun gehts darum festzustellen ob der Kreis die Line schneidet oder nicht, wenn ja wo (wobei beim richtigen "schneiden" zwei Schnittpunkte vorhanden sind).
Hab schon bei Google gesucht, finde aber nur so mathematisches Gefasel und dann auf Englisch, da hörts bei mir auf...

mfg las

Nach oben

Finalspace

Betreff des Beitrags:

Verfasst: Mi Sep 10, 2003 10:54

DGL Member

Registriert: Mi Okt 16, 2002 15:06
Beiträge: 1012

Also ich hab mal schnell versucht nen Algo dafür zu schreiben, funzt teilweise... schau dirs mal an:

der code für Sphere-Line-Intersection: (Für links und rechts funzt es wunderbar, bloss für oben nicht wirklich

)

Code:

 
TR3DVector = record
  X,Y,Z : Single;
end;
 
TR3DLine = array [0..1] of TR3DVector;
 
TR3DSphere = record
  Position : TR3DVector;
  Radius : Single;
end;
 
function r3d_VectorInterpolate(_Vector1, _Vector2: TR3DVector;
  Amt: Single): TR3DVector;
begin
  Result.X := _Vector1.X + (_Vector2.X - _Vector1.X) * Amt;
  Result.Y := _Vector1.Y + (_Vector2.Y - _Vector1.Y) * Amt;
  Result.Z := _Vector1.Z + (_Vector2.Z - _Vector1.Z) * Amt;
end;
 
function r3d_VectorLength(V: TR3DVector): Single;
begin
  Result := Sqrt(Sqr(V.X) + Sqr(V.Y) + Sqr(V.Z));
end;
 
function r3d_VectorDistance(_Vector1, _Vector2 : TR3DVector) : Single;
begin
  Result := Sqrt(Sqr(_Vector1.x-_Vector2.x)+Sqr(_Vector1.y-_Vector2.y)+Sqr(_Vector1.z-_Vector2.z));
end;
 
function r3d_SphereLineIntersection(_Sphere : TR3DSphere; _Line : TR3DLine) : Boolean;
var
  Middle                  : TR3DVector;
  Distance,
  LineLength,
  DistanceMinusLineLength : TR3DFloat;
begin
  // Länge der Linie
  LineLength := r3d_VectorLength(r3d_VectorSub(_Line[0], _Line[1]));
 
  // Mitte der Linie rausfinden
  Middle := r3d_VectorInterpolate(_Line[0], _Line[1], 0.5);
 
  // Distance zwischen (Mitte der Linie) und (Kugel Position)
  Distance := r3d_VectorDistance(Middle, _Sphere.Position);
 
  // Distance minus Länge der Linie / 2
  DistanceMinusLineLength := Distance - (LineLength / 2);
 
  // Kollision wenn Distance sich im radius befindet.
  Result := (DistanceMinusLineLength < _Sphere.Radius);
end;
 

Download vom demo:
http://encorex.no-ip.com/shared/Final/r3d_collisiondetection.zip

Steuerung fürs demo:

Pfeiltasten Oben/Unten +Y / -Y
Pfeiltasten Rechts/Links +X / -X
Einfg -Z
Entf +Z
Leertaste Kollisionsmodell wechseln

Hoffe ma das hilft dir

matane,
Final

Nach oben

las

Betreff des Beitrags:

Verfasst: Mi Sep 10, 2003 17:32

DGL Member

Registriert: Mo Jun 09, 2003 08:09
Beiträge: 98

Also 3D bringt mich nicht wirklich weiter...
big thx trotzdem.
hmmm ich muss mal nen bissel was ausprobieren...

mfg las

Nach oben

Seite 1 von 1

[ 3 Beiträge ]

Foren-Übersicht » Programmierung » Allgemein

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 8 Gäste

Du darfst keine neuen Themen in diesem Forum erstellen.
Du darfst keine Antworten zu Themen in diesem Forum erstellen.
Du darfst deine Beiträge in diesem Forum nicht ändern.
Du darfst deine Beiträge in diesem Forum nicht löschen.
Du darfst keine Dateianhänge in diesem Forum erstellen.