BAR3D |
Barre en 3 dimensions |
|---|---|
| Turbo Pascal 4+ | Graph |
Syntaxe
| Procedure Bar3D(x1,y1,x2,y2:Integer; prof:Word; sommet: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 |
| prof | Ce paramètre permet d'indiquer la profondeur |
| sommet | Ce paramètre permet d'indiquer de dessiner au non la face supérieur |
Description
Cette procédure permet de tracer une rectangle avec un effet de profondeur en 3 dimensions dans un écran graphique.
Remarques
- Dessine une barre tridimensionnelle remplie. Utilise le motif et la couleur définis par SetFillStyle ou SetFillPattern. Le contour en 3 dimensions de la barre est dessiné dans le style de trait et la couleur actuels, définis par SetLineStyle et SetColor. La profondeur est le nombre de pixels en profondeur du contour en 3 dimensions. Si Top est True, un sommet en 3 dimensions est placé sur la barre; Si Top est False, aucun sommet n'est placé sur la barre (cette situation permet d'empiler plusieurs barres les unes sur les autres).
- Une profondeur typique peut être calculée en prenant 25% de la largeur de la barre de la manière suivante :
- Les constantes suivantes sont définies :
- La procédure Bar3D doit être utilisé en mode graphique.
Bar3D(X1,Y1,X2,Y2,(X2-X1+1) div 4, TopOn);
Const
TopOn = True;
TopOff = False;
Exemple
Voici un exemple typique de l'utilisation de cette procédure :
- Program Bar3DSamples;
-
- Uses Graph;
-
- Var Gd,Gm:Integer;
-
- BEGIN
- Gd := Detect;
- InitGraph(Gd, Gm,'');
- If(GraphResult <> grOk)Then Halt(1);
- SetFillStyle(XHatchFill, LightGray);
- Bar3D(100,50,200,250,10,True);
- ReadLn;
- CloseGraph;
- END.
on obtiendra le résultat semblable au suivant :
Référence
Aide-mémoire de Turbo Pascal versions de 3 à 6, Edition Marabout, De Groote, Virga, 1992, ISBN: 2-501-01833-8, page 106.
Dernière mise à jour : Dimanche, le 25 janvier 2015