GetArcCoords |
Demande les coordonnées d'arc |
|---|---|
| HighSpeed Pascal | Graph |
Syntaxe
| Procedure GetArcCoords(var ArcCoords:ArcCoordsType); |
Paramètres
| Nom | Description |
|---|---|
| ArcCoords | Ce paramètre permet d'indiquer la description des informations. |
Description
Cette procédure permet de déterminer les coordonnées d'un arc tracé avec les procédures «Arc» ou «Ellipse».
Remarque
- La procédure GetArcCoords renvoie des informations sur le dernier appel à Arc ou Ellipse.
- L'enregistrement ArcCoordsType est déclaré dans l'unité Graph comme :
- Type
- ArcCoordsType=Record
- X,Y:Integer;
- XStart:Integer;
- YStart:Integer;
- XEnd:Integer;
- YEnd:Integer;
- End;
- La coordonnée (X, Y) est le point central, (XStart, YStart) est le point de départ et (XEnd, YEnd) est le point final du dernier arc ou ellipse dessiné.
Exemple
L'exemple suivant permet de dessiner un Pac-Mac :
- Program GetArcCoordsSamples;
- Uses Graph,Crt;
- Var
- Driver,Mode:Integer;
- C:Char;
- ArcInfo:ArcCoordsType;
- BEGIN
- Driver:=DETECT;
- InitGraph(Driver,Mode,'');
- Arc(GetMaxX DIV 2,GetMaxY DIV 2,30,330,45);
- GetArcCoords(ArcInfo);
- With ArcInfo Do Begin
- Line(X,Y,XStart,YStart);
- Line(X,Y,XEnd,YEnd);
- End;
- C:=ReadKey;
- CloseGraph;
- END.
Dernière mise à jour : Lundi, le 20 avril 2020