📄 node103.html

📁 htmdoc for html coding
💻 HTML
字号:
<!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>8.1 Adapting a new input terminal</TITLE><LINK REL=STYLESHEET TYPE="text/css"	HREF="./Modulef.css" TITLE="Modulef CSS"><meta name="description" value="8.1 Adapting a new input terminal"><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=tex2html1677 HREF="node102.html"><IMG BORDER=0 ALIGN=BOTTOM SRC="../icons/previous_motif.gif"	ALT="previous"></A><A NAME=tex2html1683 HREF="node102.html"><IMG BORDER=0 ALIGN=BOTTOM SRC="../icons/up_motif.gif"	ALT="up"></A><A NAME=tex2html1685 HREF="node104.html"><IMG BORDER=0 ALIGN=BOTTOM SRC="../icons/next_motif.gif"	ALT="next"></A><A NAME=tex2html1687 HREF="node2.html"><IMG BORDER=0 ALIGN=BOTTOM SRC="../icons/contents_motif.gif"	ALT="contents"></A><A HREF="../Guide6-18/node103.html"><IMG BORDER=0 SRC="../icons/zoom18.gif" ALIGN=BOTTOM	ALT="[BIG]"></A><A HREF="../Guide6-14/node103.html"><IMG BORDER=0 SRC="../icons/zoom14.gif" ALIGN=BOTTOM	ALT="[Normal]"></A><A HREF="../Guide6-10/node103.html"><IMG BORDER=0 SRC="../icons/zoom10.gif" ALIGN=BOTTOM	ALT="[small]"></A><BR><B> Next: </B> <A NAME=tex2html1686 HREF="node104.html">8.2 Adapting a new output terminal</A><B>Up: </B> <A NAME=tex2html1684 HREF="node102.html">8 Adapting a new terminal</A><B> Prev: </B> <A NAME=tex2html1678 HREF="node102.html">8 Adapting a new terminal</A><B><A HREF="node2.html"	>Contents</A></B><HR SIZE=3 WIDTH="75&#37;"><H1><A NAME=SECTION05810000000000000000>8.1 Adapting a new input terminal</A></H1><P>The linkbetween  FORTRAN 3D and the input terminals is made through two intermediary subroutines <b> PERFGN</b> and <b> ITRCTG</b>.<P>Subroutine PERFGN will be defined in the next section. Subroutine ITRCTG is constructed as follows:<P><PRE>  ITRCTG :  ------      SUBROUTINE ITRCTG(INSTRU, T1, T2, T3, IT1, IT2, IT3, STRING)      CHARACTER *(*)STRING      REAL T1(*), T2(*), T3(*)      INTEGER IT1(*), IT2(*), IT3(*)      include 'data_f3d.ins'      GOTO(1 , 2, 3, 4, 5, 6, 7, 8, 9, 10 , 11), IDEVIN C      CALL  ITRCTX(INSTRU, T1, T2, T3, IT1, IT2, IT3, STRING)      RETURN001   CONTINUEC         APOLLO       CALL ITRCT5(INSTRU, T1, T2, T3, IT1, IT2, IT3, STRING)       RETURN002   CONTINUEC         LASER_WRITER(POST_SCRIPT)       CALL  ITRCTX(INSTRU, T1, T2, T3, IT1, IT2, IT3, STRING)       RETURN003   CONTINUEC         X_WINDOW_V11       CALL ITRCTX11(INSTRU, T1, T2, T3, IT1, IT2, IT3, STRING)       RETURN004   CONTINUEC         TEKTRONIX_4014       CALL ITRCT1(INSTRU, T1, T2, T3, IT1, IT2, IT3, STRING)       RETURN005   CONTINUEC         APOLLO_5       CALL ITRCT5(INSTRU, T1, T2, T3, IT1, IT2, IT3, STRING)       RETURN006   CONTINUEC         PRINTER       CALL  ITRCTX(INSTRU, T1, T2, T3, IT1, IT2, IT3, STRING)       RETURN007   CONTINUEC         VERSATEK_SPECTRUM_V80       CALL  ITRCTX(INSTRU, T1, T2, T3, IT1, IT2, IT3, STRING)       RETURN008   CONTINUEC         VERSATEK_V80       CALL  ITRCTX(INSTRU, T1, T2, T3, IT1, IT2, IT3, STRING)       RETURN009   CONTINUEC         TEKTRONIX_4107       CALL ITRCTE(INSTRU, T1, T2, T3, IT1, IT2, IT3, STRING)       RETURN010   CONTINUEC         TEKTRO_4105       CALL ITRCTN(INSTRU, T1, T2, T3, IT1, IT2, IT3, STRING)       RETURN011   CONTINUEC         PHIGS       CALL ITRPHG(INSTRU, T1, T2, T3, IT1, IT2, IT3, STRING)       RETURN       END</PRE><P><DL COMPACT><DT>Note:<DD> If you add or delete a  terminal, do not forget to modify the goto  statement.<P> </DL><P>For an arbitrary driver, the parameters are:<P><UL><LI> INSTRU: the number of the function to perform (see below);<P><LI> T1, T2, T3: the real arrays;<P><LI> IT1, IT2, IT3: the integer values;<P><LI> ICH: an integer array;<P><LI> STRING: a character string.<P></UL><P>The use of these variables depends on INSTRU (see below).<P>To use a graphics terminal, which is not yet offered on the MODULEF magnetic tape,the user needs to write program ITRCT* (see below) and include a  call tosubroutine  ITRCTG in it.<P><P><P>Parameter INSTRU has very particular effects if it is negative:<P><PRE>      if(INSTRU.lt.0)then {interrogation du device}        if(   INSTRU.eq.-1)then   c      print on i1= number of order          call wchari(i1, 'PERIPHERIQUE XXX en entree')          return        elseif(INSTRU.eq.-2)then    c        definition of the call parameters with dialogue   c        we assign, using dialogue, the call parameters   c        that we store in IT2(1), IT2(2), ... STRING          return        elseif(INSTRU.eq.-3)then    c      default parameters (without dialogue)           IT2(1)=std   { type standard du curseur }          return        endif      endif      call wchari(INSTRU, ' est une valeur incomprehensible en entree')      return      GOTO indexe selon les valeurs &gt;0 de INSTRU      goto(1, 2, 3, 4, 5, 6, 7, 8, 9), INSTRU</PRE><P>The different tasks to be performed, referenced by INSTRU, are described below:<P><PRE>      INSTRU = 1 : INITIALIZATIONS OF THE INPUT TERMINAL   (DEVICI)      ----------         IN :  IT1 : number of the active terminal               IT2(*) and STRING : supplementary information for                certain terminals         Initialize the values of the keys whose names are in         key_board.insc     key values for APOLLO      bs=char(8)      cr=char(13)      lf=char(10)      del=char(127)      mark=char(129)      line_del=char(130)      char_del=char(131)      marg_left=char(132)      cmd=char(133)      marg_right=char(134)      pad_left=char(135)      curs_down=char(136)      pad_right=char(137)      curs_left=char(138)      next_window=char(139)      curs_right=char(140)      pad_up=char(141)      curs_up=char(142)      pad_down=char(143)      pop=char(144)      again=char(145)      exit=char(148)      back_space=char(149)      return=char(150)      funct1=char(192)      funct2=char(193)      funct3=char(194)      funct4=char(195)      funct5=char(196)      funct6=char(197)      funct7=char(198)      funct8=char(199)      funct9=char(187)      funct10=char(0)      funct11=char(0)      funct12=char(0)      shell=char(205)      copy=char(232)      tpast=char(233)      grow=char(234)      hold=char(235)      cut=char(236)      undo=char(237)      move=char(238)      help=char(239)c     with shift      funct0=char(186)      sfunct0=char(190)      sfunct1=char(208)      sfunct2=char(209)      sfunct3=char(210)      sfunct4=char(211)      sfunct5=char(212)      sfunct6=char(213)      sfunct7=char(214)      sfunct8=char(215)      sfunct9=char(191)      sfunct10=char(0)      sfunct11=char(0)      sfunct12=char(0)      smarg_right=char(206)      spad_left=char(207)      scurs_down=char(216)      spad_right=char(217)      scurs_left=char(218)      snext_window=char(219)      scurs_right=char(220)      spad_up=char(221)      scurs_up=char(222)      spad_down=char(219)      sagain=char(181)      sread=char(182)      spop=char(200)      INSTRU = 2 : INPUT A POSITION   (GETXY)      ----------         OUT  : T1(1) :  X in cm.                T2(1) :  Y in cm.      INSTRU = 3 : INPUT A POSITION AND ENTER A CHARACTER (GETXYC)      ----------         OUT  : T1(1) :  X in cm.                T2(1) :  Y in cm.                STRING(1:1) the character entered      INSTRU = 4 : INPUT A BROKEN LINE  (STROKE)      ----------         IN   : IT1(1) number of points to input                IT1(2) constraint                       0 : no constraint                       1 : 2 successive points on the curve input                         are separated by a minimum of T3(1) cm. and                         a maximum of T3(2) cm.         OUT  : IT2(1) number of points actually input                T1(*) : array containing the abscissas in cm.                T2(*) : array containing the coordinates in cm.      INSTRU = 5 : INPUT A TEXT (GETEXT)      ----------         IN : T1(1) : X in cm. of the beginning of the text              T2(1) : Y in cm. of the beginning of the text              STRING(1:IT1(1)) : the non-editable text to print              IT1(1) : number of characters in the non-editable text                       to print              IT2(1) : maximum number of characters              IT3(1) : number of characters in the initial editable text              STRING(IT1(1)+1:IT1(1)+IT3(1)) : initial editable text         OUT : T3(1) : X in cm. of the end of the text               T3(2) : Y in cm. of the end of the text               IT3(1) : number of characters input               STRING(IT1(1)+1 : IT1(1)+IT3(1)) : text input      INSTRU = 6 : INPUT A NUMBER  (GETNUM)      ----------         IN : T1(1) : X in cm. of the beginning of the text              T2(1) : Y in cm. of the beginning of the text              STRING(1:IT1(1)) : the text to print              IT1(1) : number of characters in the text to print              IT2(1) : type  of number (0 integer, 1 real, 2 boolean)              IT2(2) : constraint                       0 : no constraint                       1 : min  and max constraints for the numbers:                       the constraints are stored in:                           T3(1)=min and T3(2)=max for reals                           IT3(1)=min and IT3(2)=max for integers         OUT  : depending on type:              IT3(3) the integer or boolean (0=.TRUE., 1=.FALSE.) number              T3(3)  the real number         If the user types (return) the variables are not modified on exit.      INSTRU = 7 : INPUT AN IDENTIFICATION  (GETHIT)      ----------         OUT : IT1(1) : number of the designated segment                IT1(2) : associated value                     ( value given by debas(*)  if not -1 )            INSTRU = 8 : DIMENSION OF THE INPUT SURFACE  (SZSCRI)      ----------         OUT : T1(1) : Xmin in cm.               T1(2) : Xmax in cm.               T1(3) : Ymin in cm.               T1(4) : Ymax in cm.        INSTRU = 9 : INQUIRY OF THE NUMBER OF MOUSE KEYS (INQCRC)      ----------         OUT : IT1(1) : number of keys on the mouse               IT2(*) : the integer codes of the keys or 0 if undefined code</PRE><P>Inspired by the programs already proposed, we  define the different actions as a function of the possibilities offered by the graphics terminal at our disposal.<P> The fictitious subroutine, ITREXE, residing in library <b> perf-example</b> can serve as a modelwhen creating the input program for a new  device.<P><P><P> In addition, a certain number of subroutines were written to aid with a quick implementation of the drivers (see chapter <A HREF="node92.html#chap_intern">7</A> and the index):<P>    <PRE>       GETUNF     RCHARS      RINTG      RREAL      CHARI       WCHARS      ZCENTR     ZCOLOR      ZFNDTC      ZGNUM      ZGTEXT      ZSTROK      ZTXT</PRE><P><P><P><HR SIZE=3 WIDTH="75&#37;"><IMG SRC="../icons/smallmod.gif" WIDTH=211 HEIGHT=50 ALIGN=BOTTOM	ALT="Modulef"><A NAME=tex2html1677 HREF="node102.html"><IMG BORDER=0 ALIGN=BOTTOM SRC="../icons/previous_motif.gif"	ALT="previous"></A><A NAME=tex2html1683 HREF="node102.html"><IMG BORDER=0 ALIGN=BOTTOM SRC="../icons/up_motif.gif"	ALT="up"></A><A NAME=tex2html1685 HREF="node104.html"><IMG BORDER=0 ALIGN=BOTTOM SRC="../icons/next_motif.gif"	ALT="next"></A><A NAME=tex2html1687 HREF="node2.html"><IMG BORDER=0 ALIGN=BOTTOM SRC="../icons/contents_motif.gif"	ALT="contents"></A><A HREF="../Guide6-18/node103.html"><IMG BORDER=0 SRC="../icons/zoom18.gif" ALIGN=BOTTOM	ALT="[BIG]"></A><A HREF="../Guide6-14/node103.html"><IMG BORDER=0 SRC="../icons/zoom14.gif" ALIGN=BOTTOM	ALT="[Normal]"></A><A HREF="../Guide6-10/node103.html"><IMG BORDER=0 SRC="../icons/zoom10.gif" ALIGN=BOTTOM	ALT="[small]"></A><BR><B> Next: </B> <A NAME=tex2html1686 HREF="node104.html">8.2 Adapting a new output terminal</A><B>Up: </B> <A NAME=tex2html1684 HREF="node102.html">8 Adapting a new terminal</A><B> Prev: </B> <A NAME=tex2html1678 HREF="node102.html">8 Adapting a new terminal</A><B><A HREF="node2.html"	>Contents</A></B><BR> <HR><P><ADDRESS></ADDRESS></BODY></HTML>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -