Ellipse |
Ellipse |
|---|---|
| HighSpeed Pascal | Graph |
Syntaxe
| Procedure Ellipse(X,Y:Integer;StAngle,EndAngle,XRad,YRad:Word); |
Paramètres
| Nom | Description |
|---|---|
| X | Ce paramètre permet d'indiquer la coordonnée horizontale |
| Y | Ce paramètre permet d'indiquer la coordonnée verticale |
| StAngle | Ce paramètre permet d'indiquer l'angle en degré de début. L'angle est standard au norme trigonométrique et commence à 3 heures et va dans le sens contraire des aiguilles d'une montre. |
| EndAngle | Ce paramètre permet d'indiquer l'angle en degré de fin. L'angle est standard au norme trigonométrique et commence à 3 heures et va dans le sens contraire des aiguilles d'une montre. |
| XRad | Ce paramètre permet d'indiquer la longueur de l'axe des X |
| YRad | Ce paramètre permet d'indiquer la longueur de l'axe des Y |
Description
Cette procédure permet de tracer un arc d'ellipse dans un écran graphique.
Remarque
- La coordonnée (X,Y) spécifie le point central, le paramètre StAngle spécifié l'angle de départ, le paramètre EndAngle l'angle de fin, le paramètre XRad le rayon x et le paramètre YRad le rayon y de l'arc.
- L'arc est dessiné dans la couleur actuelle.
- Le point central, le point de départ et le point d'arrivée de l'arc seront renvoyés par un appel à GetArcCoords.
Exemple
L'exemple suivant permet de dessiner une croix en utilisant des ellipses :
- Program EllipseSamples;
- Uses Graph,Crt;
- Var
- Rad,Driver,Mode:Integer;
- C:Char;
- BEGIN
- Driver:=DETECT;
- InitGraph(Driver,Mode,'');
- Rad:=0;
- Repeat
- Ellipse(GetMaxX DIV 2,GetMaxY DIV 2,0,360,300-Rad,Rad);
- Inc(Rad,10);
- Until (Rad=300);
- C:=ReadKey;
- CloseGraph;
- END.
Dernière mise à jour : Lundi, le 20 avril 2020