1:

Pos := Drehe(Pos-PosA)+PosA					

1:

Q(x cos α - y sin α | y cos α + x sin α)					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:

//Als erstes berechnen wir die Strecke AB über den Pytagoras:
d := SQRT(SQR(deltaX)+SQR(deltaY));
//alten Winkel berechnen:
//sin x = Gegenkatete/Hyp.
//sin w = deltaY/d
//w = ArcSin(deltaY/d)
w := ArcSin(deltaY/d)/Pi*180; ///Pi*180ist die Umrechnung von RAD zu DEG

//danch addieren wir unseren winkel um den wir drehen wollen
w := w + 25;

//und berechnen x und y neu
//sin w = deltaY/d
//deltaY = sin(w) * d
deltaY := sin(w/180*Pi)*d;

//cos w = deltaX/d
//deltaX = cos(w) * d
deltaX := cos(w/180*Pi)*d;

//und dann müssen wir deltaX und deltaY noch zu unserem Punkt A addieren um auf B zu kommen
B.x := A.x + deltaX;
B.y := A.y + deltaY;