Section courante

A propos

Section administrative du site

BAR3D

Barre 3 dimensions
Free Pascal Graph

Syntaxe

Procedure Bar3D(x1,y1,x2,y2:SmallInt;depth:Word;top: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 traçer un rectangle avec un effet de profondeur en 3 dimensions dans un écran graphique.

Remarques

Exemple

Voici un exemple typique de l'utilisation de cette procédure :

  1. Program Bar3DSamples;
  2.  
  3. Uses Graph;
  4.  
  5. Var Gd,Gm:Integer;
  6.  
  7. BEGIN
  8.  Gd := Detect;
  9.  InitGraph(Gd, Gm,'');
  10.  If(GraphResult <> grOk)Then Halt(1);
  11.  SetFillStyle(XHatchFill, LightGray);
  12.  Bar3D(100,50,200,250,10,True);
  13.  ReadLn;
  14.  CloseGraph;
  15. END.

on obtiendra le résultat semblable au suivant :



Dernière mise à jour : Samedi, le 18 juillet 2015