Bar3D |
Barre en 3 dimensions |
|---|---|
| HighSpeed Pascal | Graph |
Syntaxe
| Procedure Bar3D(x1,y1,x2,y2:Integer; Depth:Word; Top:Boolean); |
Paramètres
| Nom | Description |
|---|---|
| x1 | Ce paramètre permet d'indiquer la coordonnée horizontal de gauche |
| y1 | Ce paramètre permet d'indiquer la coordonnée vertical supérieur |
| x2 | Ce paramètre permet d'indiquer la coordonnée horizontal de droite |
| y2 | Ce paramètre permet d'indiquer la coordonnée vertical inférieur |
| Depth | Ce paramètre permet d'indiquer la profondeur |
| Top | Ce paramètre permet d'indiquer de dessiner au non la face supérieur |
Description
Cette fonction permet de retourner le pointeur d'une adresse de variable, fonction ou procédure.
Remarques
- Le paramètre Depth spécifie la profondeur de la barre, le paramètre Top spécifie si le haut de la barre doit être dessiné ou non.
- La barre est dessinée dans la couleur de ligne actuelle et remplie à l'aide du motif de remplissage et de la couleur de remplissage actuels.
Exemple
L'exemple suivant permet d'afficher des barres en 3 dimensions :
- Program Bar3DSamples;
- Uses Graph,Crt;
- Var
- Driver,Mode,X,W:Integer;
- C:Char;
- BEGIN
- Driver := DETECT;
- InitGraph(Driver,Mode,'');
- W:=GetMaxX DIV 10;
- For X:=1 to 7 Do Begin
- SetFillStyle(Random(CloseDotFill+1) ,Random(GetMaxColor)+1);
- Bar3D(0+(W*X),Random(GetMaxY),W-15+(W*X),GetMaxY,20,TopOn);
- End;
- C:=ReadKey;
- CloseGraph;
- END.
Dernière mise à jour : Lundi, le 20 avril 2020