Modulef
Next: 7.2 Position and clipping Up: 7 Internal programs Prev: 7 Internal programs Contents

7.1 Interrogation subroutines

The following subroutines are used to obtain information about the terminal employed for the graphics output.

```
      SUBROUTINE INBCOL(NBCOLO)
      INTEGER NBCOLO
```
returns the number of colors possible on the current terminal in NBCOLO . The array of colors on the terminal goes from 0 to NBCOLO-1.
```
      SUBROUTINE INQCOL(R, V, B)
      REAL R, V, B
```
returns the current color of the current terminal in R, V, B (R, V, B lie between 0 and 1).

      SUBROUTINE INQNCO(COUL)
      INTEGER COUL

returns the number of the current color in COUL .

```
      SUBROUTINE INQTBC(R, V, B, I1, I2)
      INTEGER I1, I2
      REAL R(I2-I1+1), V(I2-I1+1), B(I2-I1+1)
```
returns the array of colors of the current terminal, lying between indices I1 and I2 inclusive, in arrays tableaux R, V, B (R, V and B contain the values lying between 0 and 1 inclusively). The indices, I1 and I2, goes from 0 to NBCOLO-1 (see above).
```
      SUBROUTINE INQFAC(PRIOR)
      LOGICAL PRIOR
```
returns PRIOR = .TRUE. if the terminal has selective deletion. (there is a temporary priority for the color-in of faces), and PRIOR = .FALSE. if not.
```
      SUBROUTINE INQCUR(CURSOR)
      LOGICAL CURSOR
```
returns CURSOR = .TRUE. if the current terminal possesses an input mode, and CURSOR = .FALSE. if not.
```
      SUBROUTINE INQMQT(MXQATX)
      INTEGER MXQATX
```
returns MXQATX = 0 if the best printing quality for text is hardware (i.e. the soft text is worse than the hard text (as for PostScript));
MXQATX = 1 if the best printing quality for text is software. (the hard text is worse than the soft text (as is generally the case)).
```
      SUBROUTINE INQEXS(NOM, I)
      INTEGER NOM, I
```
If the subroutine returns I=0, then the segment called NOM exists. If not, I=1.
```
      SUBROUTINE INQNXS(NOM, I)
      INTEGER NOM, I
```
Searches for the following segment number :
I = 1: Initializing the search
I = 0: Search

The results are either I = 0 and NOM, or I = 1, on exit.
```
      SUBROUTINE INQCLP(FCLIP2, FCLIP3, FCLIPZ)
      LOGICAL FCLIP2, FCLIP3, FCLIPZ
```
This subroutine interrogates the clipping indicators and returns:

FCLIP2: 2D clipping
FCLIP3: 3D clipping on a pyramid mask
FCLIPZ: 3D clipping in depth

Consult subroutines CLIP and CLIP3 for the different meanings.
```
      SUBROUTINE SZSCRI(XMIN, XMAX, YMIN, YMAX)
      REAL XMIN, XMAX, YMIN, YMAX
```
This subroutine enables the programmer to adapt his program to the actual dimension of the input device. It returns the coordinates, in centimeters, of the lower left corner and upper right corner of the device in (XMIN, YMIN) and (XMAX, YMAX), respectively.
```
      SUBROUTINE SZSCRN(XMIN, XMAX, YMIN, YMAX) 
      REAL XMIN, XMAX, YMIN, YMAX
```
returns the coordinates, in centimeters, of the lower left corner and upper right corner of the current terminal's screen in (XMIN, YMIN) and (XMAX, YMAX) respectively.

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

returns the value of the current window defined by FENTR2.

 

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

returns the value of the 2D mask defined by MASQU2 (or PRSPCT).

```
      SUBROUTINE INQSGM(I)
      INTEGER I
```
returns I, the number of segments managed on the current terminal:
I = 0: no management of segments
I > 0 signifies that all the following instructions are managed correctly:
DSPLAY, OPENG, CLOSEG, KILL, REMOVG, INQEXS, INQNXS.
```
      SUBROUTINE INQCRC(NB, TAB)
      INTEGER NB, TAB(*)
```
returns NB, the number of keys on the mouse, and TAB, the characters returned by these NB keys.

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

returns the size, the direction and the current set characters defined by DRW3TX.

Next: 7.2 Position and clipping Up: 7 Internal programs Prev: 7 Internal programs Contents