MANUEL DE REFERENCE PHIGURE F77 - IMPRESSION DES ÉLÉMENTS DE STRUCTURE

IMPRESSION DES ÉLÉMENTS DE STRUCTURE

TRACES

SEQUENCE D'APPEL

TRACES (STRID, LFN, RECURS, NEXC, LEXC)

PARAMETRE EN ENTREE

INTEGER	STRID
INTEGER	LFN
INTEGER	RECURS
INTEGER	NEXC
INTEGER	LEXC(nexc)

ARGUMENTS

STRID: Identificateur de la structure dont on veut obtenir la description.
LFN: Numéro logique du fichier sur lequel la description de la structure STRID est faite.
RECURS: Statut de récursivité de la description

POFF: 0 la description n'est pas "récursive".
PON: 1 la description est "récursive"

NEXC: Nombre d'éléments de la liste d'exclusion LEXC.
LEXC: Liste des types d'éléments de structure exclus (cachés) lors de la description.

EFFET

Cette fonction permet d'obtenir dans un fichier "formaté" une description de tous les éléments de structure (élément PHIGS) présents dans la structure d'identificateur STRID. Cette fonction est intéressante lors d'une phase de développement d'une application car elle permet un contrôle des structures créées avec PHIGS ou PHIGURE.

Suivant la valeur du flag RECURS, la description peut être "récursive" ou pas. Dans le cas où elle est "récursive", une description sera faite dans le fichier pour toutes les structures référencées par la structure STRID et ceci de façon récursive (une structure j est référencée par une structure i, si il existe dans la structure i un élément de structure execute structure j). Ainsi si STRID est à la tête d'un réseau de structure et si RECURS = PON, alors toutes les structures de ce réseau seront décrites dans le fichier.

Les éléments de structures dont le type appartient à la liste LEXC n'apparaîtront pas dans la description de la structure. Si un nombre NE (NE>1) d'éléments consécutifs dans la structure appartiennent à la liste LEXC alors il apparaîtra dans le fichier la ligne :

NE : ****** : *** hidden elements ***

Les différents types d'éléments sont décrits dans le fichier normalisé PHIGS.H par des parameters FORTRAN et dans la documentation PHIGS de la fonction inquire element type and size

Exemples

PEPL3 =2 polyline 3

PEPL =3 polyline

PEPM3 =4 polymarker 3

PEPM =5 polymarker

PETX3 =6 text 3

PETX =7 text

PEFAS3 =12 fill area set 3

PEFAS =13 fill area set

Exemples d'appels de la fonction TRACES :

traces "récursive" de la structure 19 sans éléments à cacher

CALL TRACES (19,6,PON,0,0)

***** Trace for structure 19 *********

Structure 19 : 5 element(s)

1 : set int style : 1

2 : set edge flag : 0

3 : exec struct : 25

4 : exec struct : 26

5 : label : -999

6 : polyline3 : 2 point(s)

Structure 25 referenced by structure 19 12 element(s)

1 : label : -1

2 : label : -1

3 : fill area set : 1 list(s), 15 point(s) in the first list

4 : fill area set : 3 list(s), 4 point(s) in the first list

5 : fill area set : 1 list(s), 15 point(s) in the first list

6 : fill area set : 1 list(s), 22 point(s) in the first list

7 : fill area set : 5 list(s), 12 point(s) in the first list

8 : fill area set : 7 list(s), 1 point(s) in the first list

9 : fill area set : 9 list(s), 14 point(s) in the first list

10 : exec struct : 33

11 : label : -999

12 : polyline3 : 2 point(s)

Structure 33 referenced by structure 25 6 element(s)

1 : label : 0

2 : set text align : HOR LEFT, VERT BOTTOM

3 : text3 : this is a text

4 : set edge flag : 1

5 : set int style : 1

6 : fill area set : 1 list(s), 12 point(s) in the first list

Structure 26 referenced by structure 19 3 element(s)

1 : set char up vec : 1.00 H 0. V

2 : set text align : 3H, 2V

3 : text : this is another text

_____________________

traces non "récursive" de la structure 25 avec les éléments PFAS cachés

CALL TRACES (25,6,POFF,1,PEFAS)

***** Trace for structure 25 *********

Structure 25 : 12 element(s)

1 : label : -1

2 : label : -1

7 : ****** : *** hidden elements ***

10 : exec struct : 33

11 : label : -999

12 : polyline3 : 2 point(s)