Discussion :

[wiwaxia]

... Une dernière petite chose : l'algorithme actuel permet à partir des valeurs x[i], y[i] de calculer la nouvelle position u[i], v[i] à partir d'un angle déterminé. Si je souhaite effectuer la rotation non plus à l'aide d'une glissière mais à la souris, comment puis-je récupérer la valeur de l'angle de rotation, sachant que la position u[i], v[i] représentera désormais la position du curseur de la souris, dont la distance du centre de rotation sera aléatoire ?

Les coordonnées relatives du curseur par rapport au centre:
X_cu = Xs - Xc ; Y_cu = Ys - Yc
permettent d'accéder à l'angle orienté As = (Ux , CS).
Il doit y avoir une fonction appropriée AnglePol(x, y) dont je ne connais pas le nom exact ([I]ArcTan2(x, y)[/I ]? ); sinon, on la programme facilement à l'aide de la fonction ArcTan(.)

# Un calcul encore plus simple est envisageable, en faisant intervenir la longueur fixe de la demi-diagonale (indépendante de l'indice):
D = CC_i = ((u[i] - Xc)² + (v[i] - Yc)²)^1/2 ,
et en utilisant les rapports de similitude:
(u[i] - Xc)/X_cu = (v[i] - Yc)/Y_cu = D/(X_cu² + Y_cu²)^1/2
d'où:
u[i] = Xc + X_cu*D/(X_cu² + Y_cu²)^1/2 et v[i] = Yc + Y_cu*D/(X_cu² + Y_cu²)^1/2 .

Éviter la coïncidence du curseur avec le centre (X_cu = Y_cu = 0) qui provoquerait le plantage du programme, en imposant par exemple la condition d'exécution du calcul:
(X_cu² + Y_cu²) > 100 (en nombre de pixels).

Calculs à vérifier, parce que faits rapidement à la volée.

[Péhelji]

Bonsoir wiwaxia,

Les coordonnées relatives du curseur par rapport au centre:
X_cu = Xs - Xc ; Y_cu = Ys - Yc
permettent d'accéder à l'angle orienté As = (Ux , CS).
Il doit y avoir une fonction appropriée AnglePol(x, y) dont je ne connais pas le nom exact ([I]ArcTan2(x, y)[/I ]? ); sinon, on la programme facilement à l'aide de la fonction ArcTan(.)

Tout à fait et j'ai trouvé ce lien qui propose la fonction suivante pour récupérer l'angle désiré avec ArcTan2 :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
function TForm1.AngleOfLine(const P1, P2: TPoint): Double;
begin
  Result := RadToDeg(ArcTan2((P2.Y - P1.Y),(P2.X - P1.X)));
  if Result < 0 then
    Result := Result + 360;
end;

Toutefois la fonction par du principe que le vecteur de base est invariablement l'axe X (en noir), l'angle étant calculé à partir du vecteur symbolisé par les points P1 et P2 (en rouge). Or je voudrais pouvoir faire la même chose par exemple en prenant comme vecteur de base non pas l'axe X ou l'axe Y, mais le vecteur en rouge sur le schéma.

# Un calcul encore plus simple est envisageable, en faisant intervenir la longueur fixe de la demi-diagonale (indépendante de l'indice):
D = CC_i = ((u[i] - Xc)² + (v[i] - Yc)²)^1/2 ,
et en utilisant les rapports de similitude:
(u[i] - Xc)/X_cu = (v[i] - Yc)/Y_cu = D/(X_cu² + Y_cu²)^1/2
d'où:
u[i] = Xc + X_cu*D/(X_cu² + Y_cu²)^1/2 et v[i] = Yc + Y_cu*D/(X_cu² + Y_cu²)^1/2.

Je ne te le fais pas dire ! D'autant que u[i] et v[i] représentent les coordonnées du curseur de la souris directement accessibles via l'évenement OnMouseMove des composants.