Suiv.: 7.2 Position et clipping Sup.: 7 Programmes internes Préc.: 7 Programmes internes Index Table des matières

7.1 sous-programmes d'interrogation

Les sous-programmes suivants permettent d'obtenir des informations  sur le terminal utilisé pour la sortie graphique.

      SUBROUTINE INBCOL(NBCOLO)
      INTEGER NBCOLO

Retourne dans NBCOLO le  nombre de couleurs possibles du terminal courant. La table de couleurs du terminal va de 0 a NBCOLO-1.

      SUBROUTINE INQCOL(R, V, B)
      REAL R, V, B

Retourne dans R, V, B la  couleur courante du terminal courant (R, V, B compris entre 0 et 1).

      SUBROUTINE INQNCO(COUL)
      INTEGER COUL

Renvoie dans COUL le  numéro de la couleur courante.

      SUBROUTINE INQTBC(R, V, B, I1, I2)
      INTEGER I1, I2
      REAL R(I2-I1+1), V(I2-I1+1), B(I2-I1+1)

Retoune dans les  tableaux R, V, B la table de couleurs du terminal courant entre les indices I1 et I2 inclus (R, V et B contiennent des valeurs comprises entre 0 et 1). Les indices I1 et I2 varient entre 0 et NBCOLO-1 (voir ci-dessus).

      SUBROUTINE INQFAC(PRIOR)
      LOGICAL PRIOR

Renvoie PRIOR = .TRUE. si le  terminal est à effacement sélectif. (c.à.d. s'il y a priorité temporelle pour le remplissage des faces) et PRIOR = .FALSE. sinon.

      SUBROUTINE INQCUR(CURSOR)
      LOGICAL CURSOR

Renvoie CURSOR = .TRUE. si  le terminal courant a une entrée possible et CURSOR = .FALSE. sinon.

      SUBROUTINE INQMQT(MXQATX)
      INTEGER MXQATX

Renvoie MXQATX = 0 si la  meilleur qualité d'impression du texte est hardware (c'est-à-dire que le texte soft est plus mauvais que le hard (cas du PostScript)).

MXQATX = 1 si la meilleur qualité d'impression du texte est software. (le texte hard est plus mauvais que le soft (cas général)).

      SUBROUTINE INQEXS(NOM, I)
      INTEGER NOM, I

Si elle renvoie I=0, alors le  segment de nom NOM existe. Sinon I=1.

      SUBROUTINE INQNXS(NOM, I)
      INTEGER NOM, I

Recherche le numéro du  segment suivant :

I = 1 Initialisation de la recherche

I = 0 Recherche

Les resultats étant I = 0 et NOM ou I = 1 si on a fini.

      SUBROUTINE INQCLP(FCLIP2, FCLIP3, FCLIPZ)
      LOGICAL FCLIP2, FCLIP3, FCLIPZ

Interrogation des  indicateurs de clipping elle renvoie :

FCLIP2 Clipping 2D

FCLIP3 Clipping 3D sur le masque pyramidale

FCLIPZ Clipping 3D en profondeur

Se référer aux sous-programmes CLIP et CLIP3 pour les différentes significations.

      SUBROUTINE SZSCRI(XMIN, XMAX, YMIN, YMAX)
      REAL XMIN, XMAX, YMIN, YMAX

Pour permettre, éventuellement, au  programmeur d'adapter son programme à la dimension effective du dispositif d'entrée des coordonnées utilisées, ce sous-programme retourne respectivement dans (XMIN, YMIN) et (XMAX, YMAX) les coordonnées en centimètres du coin bas gauche et du coin haut droit de ce dispositif.

      SUBROUTINE SZSCRN(XMIN, XMAX, YMIN, YMAX) 
      REAL XMIN, XMAX, YMIN, YMAX

Renvoie respectivement dans  (XMIN, YMIN) et (XMAX, YMAX) les coordonnées du coin bas gauche et du coin haut droit de l'écran du terminal courant en centimètres.

      SUBROUTINE INQFNT(XMIN, XMAX, YMIN, YMAX)
      REAL XMIN, XMAX, YMIN, YMAX

Retourne la  valeur de la fenêtre courante définie par FENTR2.

 
      SUBROUTINE INQMSQ(XMIN, XMAX, YMIN, YMAX)
      REAL XMIN, XMAX, YMIN, YMAX

Retourne la valeur du  masque 2D courant défini par MASQU2 (ou PRSPCT).

      SUBROUTINE INQSGM(I)
      INTEGER I

Retourne I le nombre de  segments gérés sur le terminal courant :

I = 0 pas de gestion des segments

I > 0 signifie que l'on gère correctement toutes les instructions :

DSPLAY, OPENG, CLOSEG, KILLG, REMOVG, INQEXS, INQNXS.

      SUBROUTINE INQCRC(NB, TAB)
      INTEGER NB, TAB(*)

Retourne NB le  nombre de touches de la souris et TAB les caractères rendus par ces NB touches.

      SUBROUTINE INQPTX(TAILLE, SENS, JEU)
      REAL TAILLE, SENS
      INTEGER JEU

Renvoie la  taille, le sens et le jeu de caractères courant défini par DRW3TX.