49 lines
2.5 KiB
Fortran
49 lines
2.5 KiB
Fortran
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)
|
||
|