Dessin d'ellipse inclinée [Résolu]
Nyio
- Messages postés
- 8
- Date d'inscription
- mercredi 21 avril 2010
- Dernière intervention
- 13 juillet 2010
- Messages postés
- 270
- Date d'inscription
- mardi 24 juillet 2007
- Dernière intervention
- 7 juin 2018
A voir également:
- Equation ellipse inclinée
- Tracer une ellipse - Meilleures réponses
- Delphi ellipse - Meilleures réponses
- Dessiner une ellipse inclinée - Codes sources - Visual Basic / VB.NET (Graphique)
- Equation algébrique de l'ellipse - Codes sources - Visual Basic / VB.NET (Maths)
- Résolution d'équation - Codes sources - Visual Basic / VB.NET (Maths)
- Arc de cercle & ellipse - Codes sources - Visual Basic / VB.NET (Graphique)
- Résolution équation du 2ème degré - Codes sources - Visual Basic / VB.NET (Maths)
14 réponses
Meilleure réponse
- Messages postés
- 270
- Date d'inscription
- mardi 24 juillet 2007
- Dernière intervention
- 7 juin 2018
Salut,
Pour commencer avec le cas d'une ellipse horizontale centrée en x=0 et y=0 on sait que dans ce cas on a :
x = a.cosinus(t)
y = b.sinus(t)
avec a = (largeur/2) >= b = (Hauteur/2)
Donc pour une Ellipse centrée en xo,yo et inclinée de Incli Radians les coordonnées d'un point du contour sont de la forme :
x = xo + a.sinu(t + Incli)
y = yo + b.sinus(t + Incli)
Y'a plus qu'à tracer cela par exemple en 360 points par exemple reliés par LineTo(x,y) ou bien mémorisés dans un array of tPoint nommé MonEllipse et comme un array de tPoint c'est rien d'autre qu'un polygone ça peut se tracer en une seule ligne avec MonCanvas.Polygon(MonEllipse).
MonCanvas désigne ici soit le canvas d'une Form soit le canvas de n'importe quoi comme celui d'un Bmp par exemple.
Pour plus de détails sur les ellipses ou d'autre courbes, voir ici : http://www.mathcurve.com/courbes2d/ellipse/ellipse.shtml
A+.
Pour commencer avec le cas d'une ellipse horizontale centrée en x=0 et y=0 on sait que dans ce cas on a :
x = a.cosinus(t)
y = b.sinus(t)
avec a = (largeur/2) >= b = (Hauteur/2)
Donc pour une Ellipse centrée en xo,yo et inclinée de Incli Radians les coordonnées d'un point du contour sont de la forme :
x = xo + a.sinu(t + Incli)
y = yo + b.sinus(t + Incli)
Y'a plus qu'à tracer cela par exemple en 360 points par exemple reliés par LineTo(x,y) ou bien mémorisés dans un array of tPoint nommé MonEllipse et comme un array de tPoint c'est rien d'autre qu'un polygone ça peut se tracer en une seule ligne avec MonCanvas.Polygon(MonEllipse).
MonCanvas désigne ici soit le canvas d'une Form soit le canvas de n'importe quoi comme celui d'un Bmp par exemple.
Pour plus de détails sur les ellipses ou d'autre courbes, voir ici : http://www.mathcurve.com/courbes2d/ellipse/ellipse.shtml
A+.
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
a aidé 97 internautes ce mois-ci
- Messages postés
- 8
- Date d'inscription
- mercredi 21 avril 2010
- Dernière intervention
- 13 juillet 2010
J'ai réussi à obtenir ce que je voulais, je vous donne mon code comme exemple :
// 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 Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
a aidé 97 internautes ce mois-ci
- Messages postés
- 270
- Date d'inscription
- mardi 24 juillet 2007
- Dernière intervention
- 7 juin 2018
- Messages postés
- 270
- Date d'inscription
- mardi 24 juillet 2007
- Dernière intervention
- 7 juin 2018
- Messages postés
- 270
- Date d'inscription
- mardi 24 juillet 2007
- Dernière intervention
- 7 juin 2018
Re-bonjour,
Tiens pour le fun, sur le même modèle, code pour le dessin d'un coeur incliné :
procedure TraceCoeur(bmp : tBitMap; Ro,cx,cy,IncliDeg : integer; clBord : tColor);
// Ro = rayon du coeur
// cx,cy = coordonnées du centre de rotation de l'ellipse
// IncliDeg = inclinaison en degrés du coeur par rapport à la verticale
// clBord = couleur du contour
var i : integer; iRad,Theta: Single; MaCourbe : Array [0..359] of tpoint;
Rxx,Ryy,xx,yy : single;
begin with bmp.canvas do begin
pen.width:=1; pen.color:=clBord; brush.style:=bsClear;
iRad:=DegToRad(IncliDeg);
for i:= 0 to 359 do begin
//-- Calcul du vecteur du Coeur avec Formule de Raphaël Laporte
Theta := i*PI/180+iRad;
Rxx := Ro*sin(Theta)*sin(Theta)*sin(Theta);
Ryy := Ro*(cos(Theta) - cos(Theta)*cos(Theta)*cos(Theta)*cos(Theta));
//-- Application de la matrice de rotation par rapport au centre cx,cy
xx := cx + (Rxx*cos(iRad) - Ryy*sin(iRad));
yy := cy - (Rxx*sin(iRad) + Ryy*cos(iRad));
//-- Mémorisation des coordonnées du point
MaCourbe[i].x := round(xx);
MaCourbe[i].y := round(yy);
end;
Polygon(MaCourbe); // On trace notre ellipse
end;
end;
A+.
Tiens pour le fun, sur le même modèle, code pour le dessin d'un coeur incliné :
procedure TraceCoeur(bmp : tBitMap; Ro,cx,cy,IncliDeg : integer; clBord : tColor);
// Ro = rayon du coeur
// cx,cy = coordonnées du centre de rotation de l'ellipse
// IncliDeg = inclinaison en degrés du coeur par rapport à la verticale
// clBord = couleur du contour
var i : integer; iRad,Theta: Single; MaCourbe : Array [0..359] of tpoint;
Rxx,Ryy,xx,yy : single;
begin with bmp.canvas do begin
pen.width:=1; pen.color:=clBord; brush.style:=bsClear;
iRad:=DegToRad(IncliDeg);
for i:= 0 to 359 do begin
//-- Calcul du vecteur du Coeur avec Formule de Raphaël Laporte
Theta := i*PI/180+iRad;
Rxx := Ro*sin(Theta)*sin(Theta)*sin(Theta);
Ryy := Ro*(cos(Theta) - cos(Theta)*cos(Theta)*cos(Theta)*cos(Theta));
//-- Application de la matrice de rotation par rapport au centre cx,cy
xx := cx + (Rxx*cos(iRad) - Ryy*sin(iRad));
yy := cy - (Rxx*sin(iRad) + Ryy*cos(iRad));
//-- Mémorisation des coordonnées du point
MaCourbe[i].x := round(xx);
MaCourbe[i].y := round(yy);
end;
Polygon(MaCourbe); // On trace notre ellipse
end;
end;
A+.
- Messages postés
- 270
- Date d'inscription
- mardi 24 juillet 2007
- Dernière intervention
- 7 juin 2018
- Messages postés
- 270
- Date d'inscription
- mardi 24 juillet 2007
- Dernière intervention
- 7 juin 2018
- Messages postés
- 270
- Date d'inscription
- mardi 24 juillet 2007
- Dernière intervention
- 7 juin 2018
- Messages postés
- 270
- Date d'inscription
- mardi 24 juillet 2007
- Dernière intervention
- 7 juin 2018
Re-salut,
Ok, vu.
Et si tu veux d'autres formes que le coeur tu peux trouver plein d'équations polaires telles que celle du trèfle à quatre feuilles ici :
http://www.mathcurve.com/courbes2d/ornementales/ornementales.shtml
A+.
Ok, vu.
Et si tu veux d'autres formes que le coeur tu peux trouver plein d'équations polaires telles que celle du trèfle à quatre feuilles ici :
http://www.mathcurve.com/courbes2d/ornementales/ornementales.shtml
A+.
- Messages postés
- 270
- Date d'inscription
- mardi 24 juillet 2007
- Dernière intervention
- 7 juin 2018
Bonjour,
J'ai cru comprendre que ce problème avait été résolu ici : Tapez le texte de l'url ici.
http://www.developpez.net/forums/d950906/environnements-developpement/delphi/debutant/dessin-dellipse-inclinee/
A+.
J'ai cru comprendre que ce problème avait été résolu ici : Tapez le texte de l'url ici.
http://www.developpez.net/forums/d950906/environnements-developpement/delphi/debutant/dessin-dellipse-inclinee/
A+.
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.