hier liegt der Fehler:
Delphi-Quellcode:
B.x:=trunc(A.x-(Seitenlaenge)*sin(Winkel/180*PI));
B.y:=trunc(A.y-(Seitenlaenge)*cos(Winkel/180*PI));
C.x:=trunc(A.x+(Seitenlaenge)*sin(Winkel/180*PI));
C.y:=trunc(A.y+(Seitenlaenge)*cos(Winkel/180*PI));
Du benutzt für C und B den gleichen Winkel. Bei deiner Berechnung Spiegelst du B an A und erhällst so C. Um C zu errechnen musst du vor der C.x... Berechnung den Winkel zwischen AC und AB von Winkel abziehen.
Versuchs mal so:
Delphi-Quellcode:
B.x:=trunc(A.x-(Seitenlaenge)*sin(Winkel/180*PI));
B.y:=trunc(A.y-(Seitenlaenge)*cos(Winkel/180*PI));
winkel:=winkel-30; // Musst du dir selbst errechnen, nur mal als Bsp.
C.x:=trunc(A.x+(Seitenlaenge)*sin(Winkel/180*PI));
C.y:=trunc(A.y+(Seitenlaenge)*cos(Winkel/180*PI));
// [Delphi ]-Tags nicht [Code ]-Tags
