FillPoly |
Remplir le polygone |
|---|---|
| HighSpeed Pascal | Graph |
Syntaxe
| Procedure FillPoly(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 avec la surface intérieur remplit dans un écran graphique.
Remarque
- 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 Integer.
- Le polygone est dessiné dans la couleur actuelle et rempli à l'aide des paramètres de remplissage actuels.
Exemple
L'exemple suivant permet de dessiner un triangle remplit :
- Program FillPolySamples;
- Uses
- Graph,Crt;
- Var
- Driver,Mode:Integer;
- C:Char;
- Poly:Array[1..3] Of PointType;
- BEGIN
- Driver:=DETECT;
- InitGraph(Driver,Mode,'') ;
- SetFillStyle(XHatchFill,GetMaxColor);
- Poly[1].X:=GetMaxX DIV 2;
- Poly[1].Y:=GetMaxY DIV 10;
- Poly[2].X:=GetMaxX DIV 10;
- Poly[2].Y:=GetMaxY-Poly[1].Y;
- Poly[3].X:=GetMaxX-Poly[2].X;
- Poly[3].Y:=Poly[2].Y;
- FillPoly(3,Poly);
- C:=ReadKey;
- CloseGraph;
- END.
Dernière mise à jour : Lundi, le 20 avril 2020