_ARC
| |
|---|---|
| QuickPascal | MSGraph |
Syntaxe
| Procedure _Arc(x1,y1,x2,y2,x3,x4,x4,y4:Integer); |
Paramètres
| Nom | Description |
|---|---|
| x1 | Ce paramètre permet d'indiquer la coordonnée horizontale de gauche |
| y1 | Ce paramètre permet d'indiquer la coordonnée verticale supérieur |
| x2 | Ce paramètre permet d'indiquer la coordonnée horizontale de droite |
| y2 | Ce paramètre permet d'indiquer la coordonnée verticale inférieur |
| x3 | Ce paramètre permet d'indiquer la coordonnée horizontale de 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. |
| y3 | Ce paramètre permet d'indiquer la coordonnée verticale de 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. |
| x4 | Ce paramètre permet d'indiquer la coordonnée horizontale de 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. |
| y4 | Ce paramètre permet d'indiquer la coordonnée verticale de 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. |
Description
Cette procédure permet d'effectuer le traçage d'un arc de cercle dans un écran graphique.
Remarque
- La procédure _ARC dessine un arc elliptique à l'intérieur des limites d'un rectangle ayant des coordonnées en haut à gauche de (x1,y1) et en bas à droite de (x2,y2). Le centre de l'arc est situé au centre du rectangle, à ((x1+x2) div 2, (y1+y2) div 2). L'arc commence à (x3, y3) et se termine à (x4, y4). Toutes les coordonnées sont relatives à la fenêtre courante.
Exemple
Voici un exemple permettant de générer les 100 arc dans le quatrième cadran :
- Program _ArcSamples;
-
- Uses MsGraph;
-
- Var
- I:Byte;
- VC:_VideoConfig;
-
- BEGIN
- If(_SetVideoMode(_VRes16Color) > 0)Then Begin
- _GetVideoConfig(VC);
- For I := 1 to 100 do Begin
- _SetColor(Random(VC.NumColors)+1);
- _Arc(-I*3,-I*3,I*3,I*3,0,I*3,I*3,0);
- End;
- Readln;
- If(_SetVideoMode(_DefaultMode) = 0)Then;
- End
- Else
- WriteLn('Impossible de changer de mode video');
- END.
on obtiendra le résultat semblable au suivant :
Dernière mise à jour : Dimanche, le 20 avril 2014