BAR3D |
Barre 3D |
|---|---|
| QuickPascal | 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 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 |
| 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 un rectangle avec un effet de profondeur en 3 dimensions dans un écran graphique.
Remarques
- La procédure Bar3D dessine un rectangle tridimensionnel rempli en utilisant le style et la couleur actuels définis par SetFillStyle et SetFillPattern. Le coin supérieur gauche du rectangle est à (x1, y1) et le coin inférieur droit est à (x2, y2). Toutes les coordonnées sont relatives à la fenêtre courante. L'épaisseur apparente de la barre est mesurée en pixels; le paramètre prof est généralement défini à 25% de la largeur de la barre. Si le paramètre sommet est TRUE, un sommet en trois dimensions apparaît sur la barre. Si le paramètre sommet est FALSE, aucun sommet n'apparaît; cette situation permet aux appels répétés de Bar3D d'empiler plusieurs barres les unes sur les autres. Utilisez les constantes prédéfinies TopOn (égal à TRUE) et TopOff (égal à FALSE) pour le paramètre supérieur.
- Cette procédure est contenu dans l'unité «Graph», afin qu'elle fournisse des services de compatibilité avec Turbo Pascal. Dans les faits, elle appel l'unité «MSGraph», il faut donc que le programme est accès au pilote «ATT6300.VID», «CGASNOW.VID», «ERICSSON.VID», «HERC102.VID» et «HERC112.VID» ainsi qu'aux polices de caractères «COURB.FON», «HELVB.FON», «MODERN.FON», «ROMAN.FON», «SCRIPT.FON» et «TMSRB.FON».
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 :
Dernière mise à jour : Dimanche, le 4 mai 2014