MANUEL DE REFERENCE PHIGURE F77 - COMPTEUR D'ÉLÉMENTS DE STRUCTURE

COMPTEUR D'ÉLÉMENTS DE STRUCTURE

TCOMES

SEQUENCE D'APPEL

TCOMES (STRID, LFN, RECURS, NEC, LECOMP)

PARAMETRE EN ENTREE

INTEGER	STRID
INTEGER	LFN
INTEGER	RECURS
INTEGER	NEC
INTEGER	LECOMP(nec)

ARGUMENTS

STRID: Identificateur de la structure dont on veut compter les éléments.
LFN: Numéro logique du fichier sur lequel le comptage de la structure STRID est fait.
RECURS: Statut de récursivité du comptage

POFF: 0 le comptage n'est pas "récursif".
PON: 1 le comptage est "récursif".

NEC: Nombre d'éléments de la liste des éléments à compter LECOMP.
LECOMP: Liste des types d'éléments que l'on veut compter. Si la liste est vide (NEC=0) seul le nombre total d'éléments de la structure sera donné.

EFFET

Cette fonction permet d'obtenir dans un fichier "formaté" un décompte de tous les éléments de structure souhaités (é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, le décompte peut être "récursif" ou pas. Dans le cas où il est "récursif", un décompte sera fait 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écomptées dans le fichier.

Seuls les éléments de structures dont le type appartient à la liste LECOMP seront comptés dans la structure. Si la liste est vide le nombre total d'éléments de la structure sera seulement indiqué.

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 TCOMES :

décompte "récursif" de la structure 19 (3 types d'éléments à compter)

NEC = 3

LECOMP(1)=PEEXST

LECOMP(2)=PELB

LECOMP(3)=PEFAS

CALL TCOMES (19,6,PON,3,LECOMP)

***** TCOMES for structure 19 *********

Structure 19 : 5 element(s)

PEXST : 2 élément(s)

PLB : 1 élément(s)

PFAS : 0 élément(s)

Structure 25 referenced by structure 19 12 element(s)

PEXST : 1 élément(s)

PLB : 3 élément(s)

PFAS : 7 élément(s)

Structure 33 referenced by structure 25 6 element(s)

PEXST : 0 élément(s)

PLB : 1 élément(s)

PFAS : 1 élément(s)

Structure 26 referenced by structure 19 3 element(s)

PEXST : 0 élément(s)

PLB : 0 élément(s)

PFAS : 0 élément(s)

_____________________

décompte non "récursif" de la structure 25

CALL TRACES (25,6,POFF,3,LECOMP)

***** TCOMES for structure 25 *********

Structure 25 : 12 element(s)

PEXST : 1 élément(s)

PLB : 3 élément(s)

PFAS : 7 élément(s)