Initial revision

2000-02-07 10:38:55 +00:00
commit fdc6b051c9
846 changed files with 230218 additions and 0 deletions
--- a/difrac/iedevs.f
+++ b/difrac/iedevs.f
@@ -0,0 +1,49 @@
+C-----------------------------------------------------------------------
+C  Setup permitted device types:
+C  ITERM is the generic type and ITERM2 is a specific device.
+C  Note that values for ITERM2 can be duplicated as long as ITERM
+C  is different.  In particular the values of ITERM2 for the PC
+C  refer to specific video modes and should not be changed.
+C
+C  Feel free to add to this list.
+C-----------------------------------------------------------------------
+      INTEGER TEK,    T4010,  T4663,  VT340,  T4107,
+     $                QMSTEK, LN03TK, W99GT,
+     $        HPGL,
+     $        POSTSC,
+     $        PC,     CGA,    HERC,   EGAM,    EGA,
+     $                MCGA,   VGAM,   VGA,
+     $        X11,
+     $        RASTER, EPSON,  PROPRT, PRINTX, IMAGEW
+      PARAMETER (TEK    =  1,  HPGL  =  2,  POSTSC =  3, PC     =  4,
+     $           RASTER =  5,  X11   =  6)
+      PARAMETER (T4010  = 11,  T4663 = 12,  VT340 = 13,  T4107  = 14,
+     $           QMSTEK = 15,  LN03TK = 16, W99GT = 17)
+      PARAMETER (CGA    =  6,  HERC   =  8, EGAM  = 15,  EGA    = 16,
+     $           MCGA   = 17,  VGAM   = 17, VGA   = 18)
+      PARAMETER (EPSON  = 51,  PROPRT = 52, PRINTX = 53, IMAGEW = 54)
+C-----------------------------------------------------------------------
+C  The following common block defines the current devices and their
+C  resolutions.  This block is for EDRAW internal use only
+C-----------------------------------------------------------------------
+      INTEGER ITERM,  ITERM2, ITSAV1, ITSAV2,
+     $        EDXRES, EDYRES, EDFCOL, EDBCOL,
+     $        EDDASH, EDIX,   EDIY,   EDTSIZ
+      REAL    PCXMUL, PCYMUL
+      COMMON /EDEVS/ ITERM,  ITERM2, ITSAV1, ITSAV2,
+     $               EDXRES, EDYRES, EDFCOL, EDBCOL,
+     $               EDDASH, EDIX,   EDIY,   EDTSIZ,
+     $               PCXMUL, PCYMUL
+      CHARACTER*12    TERMTP, TERMGR, PRINTR, PRINTP, PLOTR,  PLOTP
+      COMMON /IEDEVC/ TERMTP, TERMGR, PRINTR, PRINTP, PLOTR,  PLOTP
+C-----------------------------------------------------------------------
+C  The following defines the codes for CXDRAW.
+C  NOTE:  If you change these you must also change the definitions in
+C         CXDRAW.C
+C-----------------------------------------------------------------------
+      INTEGER     XOPEN,  XCLOSE, XMOVE,  XDRAW,  XDRAWD, XCLEAR,
+     $            XWRITE, XFLUSH, XFGCOL, XBGCOL, XCROSS, XCHSIZ
+      PARAMETER ( XOPEN  = 1, XCLOSE = 2, XMOVE  = 3, XDRAW  = 4,
+     $            XDRAWD = 5, XCLEAR = 6, XWRITE = 7, XFLUSH = 8,
+     $            XFGCOL = 9, XBGCOL = 10,XCROSS = 11,XCHSIZ = 12)
+