ARC |
Arc |
|---|---|
| Free Pascal | Graph |
Syntaxe
| Procedure Arc(X,Y:SmallInt;StAngle,EndAngle,Radius:Word); |
Paramètres
| Nom | Description |
|---|---|
| X | Ce paramètre permet d'indiquer la coordonnée X |
| Y | Ce paramètre permet d'indiquer la coordonnée Y |
| StAngle | Ce paramètre permet d'indiquer l'angle en degrée 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ée 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. |
| Radius | Ce paramètre permet d'indiquer le rayon |
Description
Cette procédure permet d'effectuer le traçage d'un arc de cercle dans un écran graphique.
Remarques
- ATTENTION ! Si vous utilisez le clavier sous le système d'exploitation Windows avec cette unité, il faudra utilisé l'unité wincrt plutôt que Crt, car l'unité Crt gère la fenêtre de console et non pas la fenêtre GUI.
- ATTENTION ! Si vous utilisez la souris sous le système d'exploitation Windows avec cette unité, il faudra utilisé l'unité winmouse plutôt que Mouse, car l'unité Mouse gère la fenêtre de console et non pas la fenêtre GUI.
Exemple
Voici un exemple de générer les 100 en arc dans le quatrième cadran :
- Program ArcSamples;
-
- Uses Graph;
-
- Var
- Gd,Gm:Integer;
- I:Integer;
-
- BEGIN
- Gd:=Detect;
- InitGraph(Gd,Gm,'');
- If(GraphResult <> grOk)Then Halt(1);
- For I := 1 to 100 do Begin
- SetColor(Random(GetMaxColor)+1);
- Arc(0,0,270,360,I*3);
- End;
- Readln;
- CloseGraph;
- END.
on obtiendra le résultat semblable au suivant :
Dernière mise à jour : Samedi, le 18 juillet 2015