Procedure AjouterArc(X : Reel, Y : Reel, L : Reel, H : Reel, X2 : Reel, Y2 : Reel, Unite : SousMetriquesSupportees=SousMetriquePoint);
Procedure AjouterArc(P1 : Nul Ou Point, P2 : Nul Ou Point, PFin : Nul Ou Point, Unite : SousMetriquesSupportees=SousMetriquePoint);
Procedure AjouterArc(R : Nul Ou Rectangle, PFin : Nul Ou Point, Unite : SousMetriquesSupportees=SousMetriquePoint);
L'ellipse est exprimée soit par :
L'ouverture de l'arc est exprimée soit par :
Ces deux points sont forcément sur l'ellipse.
Les coordonnées et les dimensions sont exprimées dans l'unité de mesure définie par le paramètre Unite.
Si le rectangle est carré, alors une portion de cercle est ajoutée.
En cas d'erreur, l'exception GraphismeImpossible est envoyée.
Si P1, P2, PFin ou R est Nul, alors l'appel est sans effet.
Principal
/*******/
Variable
/******/
C : Nul Ou Contour;
P1 : Nul Ou Point;
P2 : Nul Ou Point;
P3 : Nul Ou Point;
Debut
...
P1.X=100;
P1.Y=100;
P2.X=300;
P2.Y=200;
P3.X=300;
P3.Y=150;
C.AjouterArc(P1, P2, P3, SousMetriquePoint);
/* Ajoute l'arc d'ellipse au contour courant. */
...
Fin Principal
- | - | - | - | - | - | - | - | - |