Circle |
Cercle |
|---|---|
| HighSpeed Pascal | Graph |
Syntaxe
| Procedure Circle(X,Y:Integer;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 |
| Radius | Ce paramètre permet d'indiquer le rayon |
Description
Cette procédure permet de tracer un cercle dans un écran graphique.
Remarque
- La procédure Circle dessine un cercle.
- Les coordonnées (X,Y) spécifie le point central et le paramètre Radius le rayon du cercle. Le cercle est dessiné dans la couleur actuelle, en utilisant les paramètres de rapport d'aspect actuels.
Exemple
L'exemple suivant permet de dessiner une centaine de cercle :
- Program CircleSamples;
- Uses Graph,Crt;
- Var
- Driver,Mode,X:Integer;
- C:Char;
- BEGIN
- Driver := DETECT;
- InitGraph(Driver,Mode,'');
- For X:=0 to 100 Do Begin
- SetColor(Random(GetMaxColor+1));
- Circle(GetMaxX DIV 2,GetMaxY DIV 2,X);
- End;
- SetColor(Black );
- For X := 100 Downto 0 Do Circle(GetMaxX DIV 2,GetMaxY DIV 2, X);
- C:=ReadKey;
- CloseGraph;
- END.
Dernière mise à jour : Lundi, le 20 avril 2020