Delphi-Quellcode:
function RotateCCW(position,axis: TPoint; alpha: single): TPoint;
var relative: TPoint;
begin
relative := Point(position.x - axis.x,position.y - axis.y);
result.x := axis.x + round(relative.x*cos(alpha) - relative.y*sin(alpha));
result.y := axis.y + round(relative.x*sin(alpha) + relative.y*cos(alpha));
end;
sowas da ? (is nur kurz skizziert)
edit: jaja.. die fehlerchen...