Forum: Neuen Beitrag zur Code-Library hinzufügen
Delphi
by Namenloser,
2. Mai 2009
Indem man trickst und das Koordinatensystem um 90° dreht (so habe ich es gemacht, s.o.).
Forum: Neuen Beitrag zur Code-Library hinzufügen
Delphi
by Namenloser,
28. Apr 2009
Es geht hier um eine Strecke, keine Gerade. Der Code gibt immer den ersten Schnittpunkt zurück. Das ganze lässt sich aber sehr einfach für Geraden und mehrere Schnittpunkte anpassen.
Forum: Neuen Beitrag zur Code-Library hinzufügen
Delphi
by Namenloser,
25. Mär 2009
Ich verstehe nicht ganz, was du mir sagen willst :gruebel: Oder sitze ich schon wieder zu lange vor der Kiste?
Forum: Neuen Beitrag zur Code-Library hinzufügen
Delphi
by Namenloser,
25. Mär 2009
Ich war vorhin auf der Suche nach einem Code, mit dem sich die Schnittpunkte eines Kreises und einer Linie ausrechnen lassen. Da ich für Delphi nichst gefunden habe, habe ich folgende Funktion geschrieben:
function LineHitsCircle(LineX1,LineY1,LineX2,LineY2,
CircleX,CircleY,CircleRadius: double; out OutPos: Double): boolean;
var
x1, x2, x: double;
d: double;
d_helper: double;
...