1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:

procedure TestClick(X, Y: Integer);
var ParX, ParY: double; Projection, Rotation, pVX, pVY, pVZ, FinalPosition: TMeleePosition; Perspective: TMeleeMatrix; ViewVector: TMeleePosition; i: integer;
begin
  glMatrixMode(GL_PROJECTION);
  glLoadIdentity;
  gluPerspective(45.0, 1920/1080, 0.01, 10000);
  glMatrixMode(GL_MODELVIEW); // Modellmatrix laden, da diese als default aktiviert sein soll.
Projection := MyCamera.ExportPerspectiveToXYZ(); // Läd den X,X-Wert der Projektions Matrix in Projection.X und den Y,Y-Wert der Projektions Matrix in Projection.Y
Perspective := MyCamera.ExportToMatrix(); // Lädt die Modelview Matrix der Camera in Perspective.
Rotation := MyCamera.Rotation; // unwichtig, hab ich zu Test-Zwecken eingebaut und entferne ich am Ende wieder.
pVX := meGetXVector(Perspective); // 0. Spalte (X-Achse) der Modelview Matrix in X-Achsen Vektor einlesen.
pVY := meGetYVector(Perspective); // 1. Spalte (Y-Achse) der Modelview Matrix in X-Achsen Vektor einlesen.
pVZ := meGetZVector(Perspective); // 2. Spalte (Z-Achse) der Modelview Matrix in X-Achsen Vektor einlesen.
ParX := (X / 960 - 1); // Hier rechne ich aus, wie viel % des X-Vektors an den Z Vektor angehängt werden müssen damit dem angeklickten Punkt entspricht.
ParY := -(Y / 540 - 1); // X, Y sind hierbei die auf dem Bildschirm angeklickten Koordinanten, von oben, links. Daher auch das Minus vor dem Y.
ViewVector := meCalculate(PVZ, me_Add, meCalculate(
meCalculate(PVX, me_Multiply, ParX / Projection.X),
me_Add,
meCalculate(PVY, me_Multiply, ParY / Projection.Y)));
// Hier passiert letztendlich nur das die Vektoren PVZ, PVY, PVX nach folgender Formel zum Angeklickten Richtungsvektor addiert werden.
// 1 * PVZ + (ParX / Projection.X) * PVX + (ParY / Projection.Y) * PVY
// erst der komplette Z-Vektor, dann je nachdem wie weit man nach rechts geklickt hat der ParX Wert multipliziert mit dem X-Wert aus der Projektionsmatrix und das selbe mit dem y-Vektor.
 
 
ViewVector := meNormalize(ViewVector); // Brauch man eigentlich nicht aber beim Testen hab ich es einfach mal eingebaut.
// Ab hier dann einfach Schnittpunkte Gerade mit Ebene (z = 0).
FinalPosition.Y := 0; // Schnittpunkt mit der X-Z Ebene ermitteln, wobei (-MyCamera.Position.Y / ViewVector.Y) dem Vielfachen des Vektors entspricht um Y = 0 zu erfüllen.
FinalPosition.X := MyCamera.Position.X + (-MyCamera.Position.Y / ViewVector.Y) * ViewVector.X ; 
FinalPosition.Z := MyCamera.Position.Z - (-MyCamera.Position.y / ViewVector.y) * ViewVector.Z;
i := random(length(MyPosArray)); // Zu Testzwecken habe ich bereits Objekte und positioniere nur ein zufälliges von ihnen, am Zielpunkt.
MyPosArray[i].X := FinalPosition.X; // Nicht wundern, dass hier Y fehlt, das bleibt standardmäßig auf Null.
MyPosArray[i].Y := FinalPosition.Z; // Diese Zeile ist auch so geplant mit Y := Z. MyPosArray speichert nur die Koordinate auf der Karte (2 Dimensional).
end;