Procedure DessinerPolyPolygone(T1 : Nul Ou TableauDe Nul Ou TableauDe Nul Ou Point, T2 : Nul Ou TableauDe Nul Ou StyleCadre=Nul, T3 : Nul Ou TableauDe Nul Ou Motif=Nul);
Les coordonnées des points sont exprimées dans l'unité de mesure du contexte graphique au moment du dessin de la poly ligne.
Si le paramètre T2 est renseigné, alors ces styles de cadre sont utilisés. Sinon, le style de cadre courant du contexte graphique est utilisé. Les tableaux T1 et T2 doivent être de même taille.
Si le paramètre T3 est renseigné, alors ces motifs sont utilisés. Sinon, le motif courant du contexte graphique est utilisé. Les tableaux T1 et T3 doivent être de même taille.
En cas d'erreur, l'exception GraphismeImpossible est envoyée.
Si T1 est Nul, alors l'appel est sans effet.
Un poly polygone est utilisé pour une figure complexe en trois dimensions telle un pavé.
Principal
/*******/
Variable
/******/
F : Nul Ou FeuilleDeStyles;
C : Nul Ou ContexteGraphique;
T1 : Tableau[3] De Nul Ou Tableau[4] De Nul Ou Point;
T2 : Tableau[3] De Nul Ou Tableau[4] De Nul Ou Point;
TS : Tableau[3] De Nul Ou StyleCadre;
TM : Tableau[3] De Nul Ou Motif;
Debut
C.Unite=SousMetriquePoint;
/* L'unite est le point typographique. */
...
C.StyleCadreCourant=F.CadreSimple;
/* Selectionne le cadre simple comme style de cadre courant. */
C.MotifCourant=F.MotifGrisClair;
/* Selectionne le motif gris clair comme motif courant. */
...
T1[0][0]=Point(0, 100);
T1[0][1]=Point(200, 100);
T1[0][2]=Point(200, 200);
T1[0][3]=Point(0, 200);
T1[1][0]=Point(50, 50);
T1[1][1]=Point(250, 50);
T1[1][2]=Point(200, 100);
T1[1][3]=Point(0, 100);
T1[2][0]=Point(200, 100);
T1[2][1]=Point(250, 50);
T1[2][2]=Point(250, 150);
T1[2][3]=Point(200, 200);
C.DessinerPolyPolygone(T1);
/* Dessine le poly polygone en utilisant le style de cadre et le motif courant. */
...
T2[0][0]=Point(0, 300);
T2[0][1]=Point(200, 300);
T2[0][2]=Point(200, 400);
T2[0][3]=Point(0, 400);
T2[1][0]=Point(50, 250);
T2[1][1]=Point(250, 250);
T2[1][2]=Point(200, 300);
T2[1][3]=Point(0, 300);
T2[2][0]=Point(200, 300);
T2[2][1]=Point(250, 250);
T2[2][2]=Point(250, 350);
T2[2][3]=Point(200, 400);
TS[0]=C.CadreDouble;
TS[1]=C.CadreDouble;
TS[2]=C.CadreDouble;
TM[0]=C.MotifGrisFonce;
TM[1]=C.MotifGrisFonce;
TM[2]=C.MotifGrisFonce;
C.DessinerPolyPolygone(T2, TS, TM);
/* Dessine le poly polygone en utilisant les styles de cadre TS et les motifs TM. */
...
Fin Principal
| - | - | - | - | - | - | - | - | - |