node93.html
来自「htmdoc for html coding」· HTML 代码 · 共 229 行
HTML
229 行
<!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML 3.2 Final//FR"><!-- Converted with LaTeX2HTML 95.1 (Fri Jan 20 1995) --><!-- by Nikos Drakos (nikos@cbl.leeds.ac.uk), CBLU, University of Leeds --><!-- Modified Simulog 03/97 --><HTML><HEAD><TITLE>7.1 Interrogation subroutines</TITLE><LINK REL=STYLESHEET TYPE="text/css" HREF="./Modulef.css" TITLE="Modulef CSS"><meta name="description" value="7.1 Interrogation subroutines"><meta name="keywords" value="Guide6"><meta name="resource-type" value="document"><meta name="distribution" value="global"></HEAD><BODY BGCOLOR="#FFFFFF"><P> <IMG SRC="../icons/smallmod.gif" WIDTH=211 HEIGHT=50 ALIGN=BOTTOM ALT="Modulef"><A NAME=tex2html1566 HREF="node92.html"><IMG BORDER=0 ALIGN=BOTTOM SRC="../icons/previous_motif.gif" ALT="previous"></A><A NAME=tex2html1572 HREF="node92.html"><IMG BORDER=0 ALIGN=BOTTOM SRC="../icons/up_motif.gif" ALT="up"></A><A NAME=tex2html1574 HREF="node94.html"><IMG BORDER=0 ALIGN=BOTTOM SRC="../icons/next_motif.gif" ALT="next"></A><A NAME=tex2html1576 HREF="node2.html"><IMG BORDER=0 ALIGN=BOTTOM SRC="../icons/contents_motif.gif" ALT="contents"></A><A HREF="../Guide6-18/node93.html"><IMG BORDER=0 SRC="../icons/zoom18.gif" ALIGN=BOTTOM ALT="[BIG]"></A><A HREF="../Guide6-14/node93.html"><IMG BORDER=0 SRC="../icons/zoom14.gif" ALIGN=BOTTOM ALT="[Normal]"></A><A HREF="../Guide6-10/node93.html"><IMG BORDER=0 SRC="../icons/zoom10.gif" ALIGN=BOTTOM ALT="[small]"></A><BR><B> Next: </B> <A NAME=tex2html1575 HREF="node94.html">7.2 Position and clipping</A><B>Up: </B> <A NAME=tex2html1573 HREF="node92.html">7 Internal programs</A><B> Prev: </B> <A NAME=tex2html1567 HREF="node92.html">7 Internal programs</A><B><A HREF="node2.html" >Contents</A></B><HR SIZE=3 WIDTH="75%"><H1><A NAME=SECTION05710000000000000000>7.1 Interrogation subroutines</A></H1><P><P><P>The following subroutines are used to obtain information<A NAME=3323> </A> about the terminalemployed for the graphics output.<P><UL><LI><P><PRE> SUBROUTINE INBCOL(NBCOLO) INTEGER NBCOLO</PRE><P>returns the number of colors possible on the current terminal in NBCOLO<A NAME=3325> </A>. The array ofcolors on the terminal goes from 0 to NBCOLO-1.<P><LI><P><PRE> SUBROUTINE INQCOL(R, V, B) REAL R, V, B</PRE><P>returns the current color of the current terminal in R, V, B <A NAME=3326> </A> (R, V, B lie between 0 and 1).<P> <LI><P><PRE> SUBROUTINE INQNCO(COUL) INTEGER COUL</PRE><P>returns the number of the current color in COUL<A NAME=3327> </A>.<P><LI><P><PRE> SUBROUTINE INQTBC(R, V, B, I1, I2) INTEGER I1, I2 REAL R(I2-I1+1), V(I2-I1+1), B(I2-I1+1)</PRE><P>returns the array of colors of the current terminal, lying between indices I1 and I2 inclusive, in arrays<A NAME=3328> </A> 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).<P><LI><P><PRE> SUBROUTINE INQFAC(PRIOR) LOGICAL PRIOR</PRE><P>returns PRIOR = .TRUE. if the<A NAME=3329> </A> terminal has selective deletion. (there is a temporary priority for the color-in of faces), and PRIOR = .FALSE. if not.<P><LI><P><PRE> SUBROUTINE INQCUR(CURSOR) LOGICAL CURSOR</PRE><P>returns CURSOR = .TRUE. if<A NAME=3330> </A> the current terminal possesses an input mode, and CURSOR = .FALSE. if not.<P><LI><P><PRE> SUBROUTINE INQMQT(MXQATX) INTEGER MXQATX</PRE><P>returns MXQATX = 0 if the<A NAME=3331> </A> best printing quality for text is hardware (i.e. the soft text is worse than the hard text (as for PostScript));<P> 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)).<P><LI><P><PRE> SUBROUTINE INQEXS(NOM, I) INTEGER NOM, I</PRE><P>If the subroutine returns I=0, then the<A NAME=3332> </A> segment called NOM exists. If not, I=1.<P><LI><P><PRE> SUBROUTINE INQNXS(NOM, I) INTEGER NOM, I</PRE><P>Searches for the following segment number<A NAME=3333> </A>: <BR> I = 1: Initializing the search <BR> I = 0: Search <BR><P>The results are either I = 0 and NOM, or I = 1, on exit.<P><LI><P><PRE> SUBROUTINE INQCLP(FCLIP2, FCLIP3, FCLIPZ) LOGICAL FCLIP2, FCLIP3, FCLIPZ</PRE><P>This subroutine interrogates the clipping indicators<A NAME=3334> </A> and returns: <BR><P> FCLIP2: 2D clipping <BR> FCLIP3: 3D clipping on a pyramid mask <BR> FCLIPZ: 3D clipping in depth <BR><P>Consult subroutines CLIP and CLIP3 for the different meanings.<P> <LI><P><PRE> SUBROUTINE SZSCRI(XMIN, XMAX, YMIN, YMAX) REAL XMIN, XMAX, YMIN, YMAX</PRE><P>This subroutine enables the <A NAME=3335> </A> 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.<P><LI><P><PRE> SUBROUTINE SZSCRN(XMIN, XMAX, YMIN, YMAX) REAL XMIN, XMAX, YMIN, YMAX</PRE><P>returns<A NAME=3336> </A> the coordinates, in centimeters, of the lower left corner and upper right corner of the currentterminal's screen in (XMIN, YMIN) and (XMAX, YMAX) respectively.<P><LI><P><PRE> SUBROUTINE INQFNT(XMIN, XMAX, YMIN, YMAX) REAL XMIN, XMAX, YMIN, YMAX</PRE><P>returns the <A NAME=3337> </A> value of the current window defined by FENTR2.<P><LI><P><PRE> SUBROUTINE INQMSQ(XMIN, XMAX, YMIN, YMAX) REAL XMIN, XMAX, YMIN, YMAX</PRE><P>returns the value<A NAME=3338> </A> of the 2D mask defined by MASQU2 (or PRSPCT).<P><LI><P><PRE> SUBROUTINE INQSGM(I) INTEGER I</PRE><P>returns I, the number of<A NAME=3339> </A> segments managed on the current terminal: <BR> I = 0: no management of segments <BR> I <b>></b> 0 signifies that <b> all</b> the following instructions are managed correctly: <BR> DSPLAY, OPENG, CLOSEG, KILL, REMOVG, INQEXS, INQNXS. <LI><P><PRE> SUBROUTINE INQCRC(NB, TAB) INTEGER NB, TAB(*)</PRE><P> returns NB, the <A NAME=3341> </A> number of keys on the mouse, and TAB, the characters returned by these NB keys.<LI><P><PRE> SUBROUTINE INQPTX(TAILLE, SENS, JEU) REAL TAILLE, SENS INTEGER JEU</PRE><P>returns the<A NAME=3342> </A> size, the direction and the current set characters defined by DRW3TX.<P></UL><P><P><P><HR SIZE=3 WIDTH="75%"><IMG SRC="../icons/smallmod.gif" WIDTH=211 HEIGHT=50 ALIGN=BOTTOM ALT="Modulef"><A NAME=tex2html1566 HREF="node92.html"><IMG BORDER=0 ALIGN=BOTTOM SRC="../icons/previous_motif.gif" ALT="previous"></A><A NAME=tex2html1572 HREF="node92.html"><IMG BORDER=0 ALIGN=BOTTOM SRC="../icons/up_motif.gif" ALT="up"></A><A NAME=tex2html1574 HREF="node94.html"><IMG BORDER=0 ALIGN=BOTTOM SRC="../icons/next_motif.gif" ALT="next"></A><A NAME=tex2html1576 HREF="node2.html"><IMG BORDER=0 ALIGN=BOTTOM SRC="../icons/contents_motif.gif" ALT="contents"></A><A HREF="../Guide6-18/node93.html"><IMG BORDER=0 SRC="../icons/zoom18.gif" ALIGN=BOTTOM ALT="[BIG]"></A><A HREF="../Guide6-14/node93.html"><IMG BORDER=0 SRC="../icons/zoom14.gif" ALIGN=BOTTOM ALT="[Normal]"></A><A HREF="../Guide6-10/node93.html"><IMG BORDER=0 SRC="../icons/zoom10.gif" ALIGN=BOTTOM ALT="[small]"></A><BR><B> Next: </B> <A NAME=tex2html1575 HREF="node94.html">7.2 Position and clipping</A><B>Up: </B> <A NAME=tex2html1573 HREF="node92.html">7 Internal programs</A><B> Prev: </B> <A NAME=tex2html1567 HREF="node92.html">7 Internal programs</A><B><A HREF="node2.html" >Contents</A></B><BR> <HR><P><ADDRESS></ADDRESS></BODY></HTML>⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?