Punkt drehen um einen anderen Punkt

[Airblader]

Na, wenn dann aber:

Delphi-Quellcode:

function DrehePunkt (P: TPoint; AWinkel: single; ADrehPunkt: TPoint): TPoint; 
var 
  H: TPoint; 
begin 
  H.X := P.X-ADrehpunkt.X; 
  H.Y := P.Y-ADrehpunkt.Y;  
  H.X := H.X*Cos (AWinkel); // Winkel im Bogenmaß 
  H.Y := H.Y*Sin (AWinkel); 
  Result.X := H.X+ADrehpunkt.X; 
  Result.Y := H.Y+ADrehpunkt.Y; 
end;

Ne Procedure hat schließlich kein Rückgabewert

air