DrawPoly |
Dessine un polygone |
|---|---|
| HighSpeed Pascal | Graph |
Syntaxe
| Procedure DrawPoly(NumPoints:Word;var PolyPoints); |
Paramètres
| Nom | Description |
|---|---|
| NumPoints | Ce paramètre permet d'indiquer le nombre de côté que contient le polygone. |
| PolyPoints | Ce paramètre permet d'indiquer les coordonnées X et Y de chaque point du polygone |
Description
Cette procédure permet de tracer un polygone dans un écran graphique.
Remarques
- Le paramètre PolyPoints contient les coordonnées du polygone. Le paramètre NumPoints spécifie le nombre de coordonnées contenues dans PolyPoints.
- Chaque coordonnée dans PolyPoints se compose d'une valeur X et d'une valeur Y, toutes deux de type entier.
- Pour dessiner un polygone fermé, la dernière coordonnée des PolyPoints doit être la même que la première.
Exemple
L'exemple suivant permet de dessiner un triangle :
- Program DrawPolySamples;
- Uses Graph,Crt;
- Var
- Driver,Mode:Integer;
- C:Char;
- Poly:Array[1..4] Of PointType;
- BEGIN
- Driver:=DETECT;
- InitGraph(Driver,Mode,'');
- Poly[1].X := GetMaxX DIV 2; { Point médian supérieur du triangle }
- Poly[1].Y := GetMaxY DIV 10;
- Poly[2].X := GetMaxX DIV 10; { Point en bas à gauche }
- Poly[2].Y := GetMaxY-Poly[1].Y;
- Poly[3].X := GetMaxX-Poly [2].X; { Point en bas à droite }
- Poly[3].Y := Poly[2].Y;
- Poly[4] := Poly[1]; { Se connecter au point haut }
- DrawPoly(4,Poly);
- C:=ReadKey;
- CloseGraph;
- END.
Dernière mise à jour : Lundi, le 20 avril 2020