Next: 7.2 Position and clipping
Up: 7 Internal programs
Prev: 7 Internal programs
Contents
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.