// Rx et Ry sont les longueurs de mes demi-diagonales // phi mon angle de rotation for i:= 0 to 360 do begin //-- Calcul du vecteur Rxx := Rx * sin(i*PI/180+phi); Ryy := Ry * cos(i*PI/180+phi); //-- On applique la matrice de rotation par rapport au centre de coordonnées Cx,Cy au vecteur xx := Cx + (Rxx*cos(Phi) - Ryy*sin(phi)); yy := Cy + (Rxx*sin(Phi) + Ryy*cos(phi)); //-- On mémorise les coordonnées du point MonEllipse[i].x := xx; MonEllipse[i].y := yy; end; Polygon(MonEllipse); // On trace notre ellipse
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question