var X, Y : Real; A2 : TPoint; begin // Changement de repère (translation) A->A2 A2.X := A.X - C.X; A2.Y := A.Y - C.Y; // matrice de rotation (alpha en radian) A2->(X,Y) X := A2.X*Cos(Alpha) + A2.Y*Sin(Alpha); Y := -A2.X*Sin(Alpha) + A2.Y*Cos(Alpha); // retour au repère d'origine (translation) (X,Y)->A2 A2.X := C.X + round(X); A2.Y := C.Y + round(Y); end;
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question