C-----THIS IS COMMON/INCLUDE FILE DPCODV.INC----- C THIS IS COMMON FOR DEVICE-DEPENDENT GRAPHICS C C UPDATED--SPRING 1990. MANY X11 & OTHER DEVICE UPDATES (ALAN) C UPDATED JANUARY 1991. ADD COLOR DEFINITIONS FOR REGIS C UPDATED-MAY 1991. ADD TURBO-C (JJF) C UPDATED OCTOBER 1991. ADDED VARIABLES FOR POSTSCRIPT C UPDATED MAY 1992. POSTSCRIPT (INITIAL) BLANK PAGE SWITCH C UPDATED MAY 1992. CHANGE SIZE OF IX11DN C UPDATED MAY 1992. (RE)FIX COMMON FOR TURBOC-C FRONTEND C UPDATED FEBRUARY 1993. ADD IPLATF TO COMMON C UPDATED JUNE 1994. ADD HARDWARE FILL SWITCH FOR CERTAIN C DEVICES. C UPDATED JULY 1996. LAHEY DRIVER SWITCHES C UPDATED NOVEMBER 1996. MICROSOFT DRIVER SWITCHES C UPDATED OCTOBER 1997. X11 UPDATE C UPDATED DECEMBER 1997. GENERAL DEVICE UPDATE C UPDATED JULY 1998. QWIN ENHNCEMENTS C UPDATED FEBRUARY 2001. LAHEY WINTERACTOR C UPDATED FEBRUARY 2001. OPEN-GL C UPDATED MARCH 2002. SVG (SCALABLE VECTOR GRAPHICS) C UPDATED MARCH 2005. AQUATERM C UPDATED FEBRUARY 2006. LATEX C C THESE VARIABLES ARE INITIALIZED IN "INITOD". SOME OF THE INITIAL C VALUES MAY NEED TO BE MODIFIED FOR THE GIVEN MODEL OF A DEVICE AT C A PARTICUALR SITE. C C ---------------------------------------------------- C CALCOMP: C C ICALSW - SWITCH FOR INITIAL PAGE ERASE WHEN DEVICE INITIALIZED C ICALCL - NUMBER OF COLORS (I.E., PENS) SUPPORTED BY THE PLOTTER C USE 0 FOR 1 PEN PLOTTERS C ICALCC - CURRENT COLOR C PCALTH - WIDTH OF CALCOMP LINE C ICALPM - CALCOMP PEN MAP C ICALPF - FLAG FOR CALCOMP PEN MAP C CHARACTER*4 ICALSW CHARACTER*4 ICALPM CHARACTER*4 ICALPF COMMON/CCALCP/ICALSW,ICALPF,ICALPM(16) COMMON/ICALCP/ICALCL COMMON/ICALC2/ICALCC COMMON/RCALCP/PCALTH C C ---------------------------------------------------- C ZETA: C C IZETSW - SWITCH FOR INITIAL PAGE ERASE WHEN DEVICE INITIALIZED C IZETCL - NUMBER OF COLORS (I.E., PENS) SUPPORTED BY THE PLOTTER C USE 0 FOR 1 PEN PLOTTERS C IZETCC - CURRENT COLOR C IZETLN - DASH PATTERN (0=SOLID, 1-6=PREDFINED DASH PATTERNS) C PZETTH - WIDTH OF ZETA LINE C IZETPM - ZETA PEN MAP C IZETPF - FLAG FOR ZETA PEN MAP C CHARACTER*4 IZETSW CHARACTER*4 IZETPM CHARACTER*4 IZETPF COMMON/CZETA/IZETSW,IZETPF,IZETPM(16) COMMON/IZETA/IZETCL,IZETLN COMMON/IZET2/IZETCC COMMON/RZETA/PZETTH C C ---------------------------------------------------- C PCL (HP LASER JET LASER PRINTERS): C C IPCLLM - LEFT MARGIN LANDSCAPE MODE C IPCLRM - RIGHT MARGIN LANDSCAPE MODE C IPCLTM - TOP MARGIN LANDSCAPE MODE C IPCLBM - BOTTOM MARGIN LANDSCAPE MODE C IPC2LM - LEFT MARGIN PORTRAIT MODE C IPC2RM - RIGHT MARGIN PORTRAIT MODE C IPC2TM - TOP MARGIN PORTRAIT MODE C IPC2BM - BOTTOM MARGIN PORTRAIT MODE C PCLPPI - POINTS PER INCH C IPCLFN - PCL HARDWARE FONT C IPCLFC - CURRENT SETTING OF HARDWARE FONT C CHARACTER*4 IPCLFN,IPCLFC COMMON/CPCL/IPCLFN,IPCLFC COMMON/IPCL/IPCLLM,IPCLRM,IPCLTM,IPCLBM, 1 IPC2LM,IPC2RM,IPC2TM,IPC2BM, 1 PCLPPI C C ---------------------------------------------------- C QUIC (QMS AND TELARIS LASER PRINTERS) C C IQUILM - LEFT MARGIN LANDSCAPE MODE C IQUIRM - RIGHT MARGIN LANDSCAPE MODE C IQUITM - TOP MARGIN LANDSCAPE MODE C IQUIBM - BOTTOM MARGIN LANDSCAPE MODE C IQU2LM - LEFT MARGIN PORTRAIT MODE C IQU2RM - RIGHT MARGIN PORTRAIT MODE C IQU2TM - TOP MARGIN PORTRAIT MODE C IQU2BM - BOTTOM MARGIN PORTRAIT MODE C QUIPPI - POINTS PER INCH C IQUIFN - QUIC HARDWARE FONT C IQUIFC - CURRENT SETTING OF QUIC HARDWARE FONT C COMMON/IQUIC/IQUILM,IQUIRM,IQUITM,IQUIBM, 1 IQU2LM,IQU2RM,IQU2TM,IQU2BM, 1 QUIPPI,IQUIFN,IQUIFC C C ---------------------------------------------------- C POSTSCRIPT C C IPSTLM - LEFT MARGIN LANDSCAPE MODE C IPSTRM - RIGHT MARGIN LANDSCAPE MODE C IPSTTM - TOP MARGIN LANDSCAPE MODE C IPSTBM - BOTTOM MARGIN LANDSCAPE MODE C IPSTLM - LEFT MARGIN PORTRAIT MODE C IPS2RM - RIGHT MARGIN PORTRAIT MODE C IPS2TM - TOP MARGIN PORTRAIT MODE C IPS2BM - BOTTOM MARGIN PORTRAIT MODE C PSTPPI - POINTS PER INCH C IPSTFN - POSTSCRIPT HARDWARE FONT C IPSTPS - POSTSCRIPT POINT SIZE C IPSTFC - CURRENT SETTING OF HARDWARE FONT C IPSTPC - CURRENT SETTING OF POINT SIZE C IPSTPO - INITIAL POINT SIZE (IS RESET WHENEVER A NEW PAGE DONE) C IPSTFO - FONT SET IN GRINDE (THIS GETS RESET BY GRERSC) C IPSTPN - PAGE NUMBER FOR POSTSCRIPT C IPSTSP - "%!" START IN COLUMN 1 (UNIX) OR COLUMN 2 (VAX/VMS) C IPSTT1 - TABLE WITH POSTSCRIPT FONTS (SHORT NAMES) C IPSTT2 - TABLE WITH POSTSCRIPT FONTS (LONG NAMES) C IPSTMF - NUMBER OF SUPPORTED POSTSCRIPT FONTS C IPSTBP - (INITIAL) BLANK PAGE SWITCH (ON/OFF) C IPSTFS - HARDWARE FILL SWITCH (ON/OFF) C IPSTFO ADDED JUNE, 1989. C IPSTPN ADDED JANUARY, 1990. C IPSTSP ADDED OCTOBER, 1991. C IPSTT1 ADDED OCTOBER, 1991. C IPSTT2 ADDED OCTOBER, 1991. C IPSTMF ADDED OCTOBER, 1991. CCCCC IPSTBP (POSTSCRIPT BLANK PAGE SWITCH) ADDED MAY 1992 (JJF) CCCCC SEE ALSO INITOD.FOR MAY 1992 C CHARACTER*4 IPSTFN,IPSTFC,IPSTFO,IPSTSP,IPSTT1 CHARACTER*40 IPSTT2 CCCCC THE FOLLOWING LINE WAS ADDED MAY 1992 CHARACTER*4 IPSTBP CHARACTER*4 IPSTFS CCCCC THE FOLLOWING LINE WAS CHANGED MAY 1992 CCCCC COMMON/CPST/IPSTFN,IPSTFC,IPSTFO,IPSTSP, COMMON/CPST/IPSTFN,IPSTFC,IPSTFO,IPSTSP,IPSTBP, 1 IPSTT1(100),IPSTT2(100), 1 IPSTFS COMMON/IPST/IPSTLM,IPSTRM,IPSTTM,IPSTBM, 1 IPS2LM,IPS2RM,IPS2TM,IPS2BM, 1 PSTPPI,IPSTPS,IPSTPC,IPSTPN, 1 IPSTPO,IPSTMF C C ---------------------------------------------------- C SUN WORKSTATION C C IVSNAM - C ISUNCL - NUMBER OF COLORS ON SUN C (SET TO 0 FOR BLACK AND WHITE) C PSUNTH - LINE THICKNESS FOR SUN C COMMON/ISUN/IVSNAM,ISUNCL COMMON/RSUN/PSUNTH C C ---------------------------------------------------- C CGM, GENERAL DEVICE C C ICGMSW - "ON" IF A PICTURE IS OPEN C IGENFA - SCALE FACTOR FOR "GENERAL CODED PACKED" DEVICE C ADDED DECEMBER 1997 C CHARACTER*4 ICGMSW COMMON/CCGM/ICGMSW COMMON/IGENSW/IGENFA C C ---------------------------------------------------- C TEKTRONIX C C PTEKTH - WIDTH OF TEKTRONIX LINE C COMMON/RTEK/PTEKTH C C ---------------------------------------------------- C HP-GL C C PHPGTH - WIDTH OF HP-GL LINE C IHPGSW - "ON" AFTER FIRST SCREEN ERASE C IHPGPM - HP-GL PEN MAP C IHPGPF - FLAG FOR HP-GL PEN MAP C IHPGCL - NUMBER OF PENS AVAILABLE ON PLOTTER C IHPGX - X DIMENSION OF PLOTTER C IHPGY - Y DIMENSION OF PLOTTER C CHARACTER*4 IHPGSW CHARACTER*8 IHPGPM CHARACTER*4 IHPGPF COMMON/CHPGL/IHPGSW,IHPGPF,IHPGPM(16) COMMON/RHPGL/PHPGTH COMMON/IHPGL/IHPGCL,IHPGX,IHPGY C C ---------------------------------------------------- C HP 7221 C C P722TH - WIDTH OF HP-7221 LINE C COMMON/RHP722/P722TH C C ---------------------------------------------------- C HP-2622 C C P262TH - WIDTH OF HP-2622 LINE C COMMON/RHP262/P262TH C C ---------------------------------------------------- C REGIS C C PREGTH - WIDTH OF REGIS LINE C IRGHUE - HUES FOR 64 REGIS COLORS C IRGLGT - LIGHT FOR 64 REGIS COLORS C IRGSAT - SATURATION FOR 64 REGIS COLORS C IREGPM - CURRENT INDEX C IREGMC - MAXIMUM NUMBER OF FOREGROUND COLORS C COMMON/RREGIS/PREGTH COMMON/IREGIS/IRGHUE(64),IRGLGT(64),IRGSAT(64),IREGPM(16),IREGMC C C ---------------------------------------------------- C X11 C C IX11CS - X11 CAP STYLE (BUTT, ROUND, PROJECT) C IX11JS - X11 JOIN STYLE (MITER, ROUND, BEVEL) C IX11PM - X11 PIXMAP C IX11FN - X11 FONT NAME C IX11OF - X11 WINDOW OPEN FLAG C IX11PA - X11 PAUSE COMMAND C IX11DN - X11 DISPLAY NAME C IX11FS - X11 HARDWARE FILL SWITCH CCCC FOLLOWING LINE ADDED OCTOBER 1997. C IX11W2 - X11 WINDOW ID FOR REPEAT/SAVE GRAPH COMMANDS C CCCC ADD SUPPORT FOR SAVING AND RESTORING PIXMAPS APRIL 1997. C CHARACTER*8 IX11CS CHARACTER*8 IX11JS CHARACTER*4 IX11PM CHARACTER*80 IX11FN CHARACTER*4 IX11OF CHARACTER*4 IX11PA CHARACTER*4 IX11FS CHARACTER*8 IX11W2 CCCCC THE FOLLOWING LINE WAS CHANGED MAY 1992 (ALAN) CCCCC CHARACTER*20 IX11DN CHARACTER*80 IX11DN COMMON/CX11/IX11CS,IX11JS,IX11PM,IX11FN,IX11OF,IX11PA, 1 IX11DN, 1 IX11FS, 1 IX11W2 C C ---------------------------------------------------- C OPG C C IOPGPM - OPG PIXMAP C IOPGFN - OPG FONT NAME C IOPGOF - OPG WINDOW OPEN FLAG C IOPGDN - OPG DISPLAY NAME C IOPGFS - OPG HARDWARE FILL SWITCH C IOPGW2 - OPG WINDOW ID FOR REPEAT/SAVE GRAPH COMMANDS C CHARACTER*4 IOPGPM CHARACTER*80 IOPGFN CHARACTER*4 IOPGOF CHARACTER*4 IOPGFS CHARACTER*8 IOPGW2 CHARACTER*80 IOPGDN COMMON/COPG/IOPGPM,IOPGFN,IOPGOF,IOPGDN,IOPGFS,IOPGW2 C CCCCC THE FOLLOWING TURBO-C SECTION WAS ADDED MAY 1991 (JJF) C ---------------------------------------------------- C TURBO-C / VGA C C DEFINE THE 4 GENERAL TURBO-C SWITCHES. C NOTE--THERE ARE 4 TURBO-C SWITCHES-- C 1. TCLOAD C HAS CMAIN.EXE BEEN LOADED (& INIT. EXEC.)? YES/NO C 2. TCMENU C IS THE TURBO C MENU ON/OFF THE SCREEN? ON/OFF C 3. TCPLFI C WHAT IS STATUS OF THE TURBO C PLOT FILE? OPEN/CLOS C 4. TCTEFI C WHAT IS STATUS OF THE TURBO C TEXT FILE? OPEN/CLOS C NOTE--THEY ARE INITIALLY ALLOCATED IN DPCODV.INC C THEY ARE INITIALLY DEFINED IN INITOD.FOR C THEY ARE USED IN TCDRIV.FOR & CMAIN.C C CHARACTER*4 TCLOAD CHARACTER*4 TCMENU CHARACTER*4 TCPLFI CHARACTER*4 TCTEFI CHARACTER*4 ITCST CCCCC THE FOLLOWING LINE WAS ADDED MAY 1992 (JJF) CCCCC IT DEFINES THE PLATFORM (WITHINMENU OR STANDALONE) CCCCC FOR THE TURBO-C FRONTEND ROUTINE do_vga_pass WITHIN magevga.c CHARACTER*10 IPLATF C C DEFINE FORTRAN TO C COMMON C CCCCC THE FOLLOWING LINE WAS CHANGED MAY 1992 (JJF) CCCCC CHARACTER*80 TEXTFC CHARACTER*84 TEXTFC CCCCC THE FOLLOWING LINE WAS ADDED JUNE 1992 (JJF) CHARACTER*84 TEXTCF CCCCC THE FOLLOWING LINE WAS ADDED MAY 1992 (JJF) CCCCC THE FOLLOWING LINE WAS CHANGED JUNE 1992 (JJF) CCCCC CHARACTER*84 ICOMLI CHARACTER*84 PLOTFC C CCCCC THE FOLLOWING LINE WAS CHANGED FEBRUARY 1993 (JJF) CCCCC COMMON /TC/ TCLOAD,TCMENU,TCPLFI,TCTEFI,ITCST CCCCC COMMON /TC/ TCLOAD,TCMENU,TCPLFI,TCTEFI,ITCST,IPLATF COMMON /TC/ TCLOAD,TCMENU,TCPLFI,TCTEFI,ITCST,IPLATF C CCCCC THE FOLLOWING 2 LINES WERE CHANGED MAY 1992 (JJF) CCCCC COMMON /FC/ TEXTFC CCCCC COMMON /FC2/NTEXTF CCCCC NOTE--ON THE C SIDE, THE COMMON STRUCTURE IN CMAIN.C CCCCC SHOULD BE IDENTICAL IN STRUCTURE TO THE FOLLOWING 5/92 C.... COMMON /FC/NTEXTF,NCOMLI C.... COMMON /FC2/TEXTFC,ICOMLI(11) C.... COMMON /FC/TEXTFC,ICOMLI(11) C.... COMMON /FC2/NTEXTF,NCOMLI CCCCC THE FOLLOWING LINE WAS CHANGED JUNE 1992 CCCCC COMMON /FC/NTEXTF,NCOMLI,TEXTFC,ICOMLI(11) COMMON /FC/NTEXTF,NTEXTC,NPLOTF,TEXTFC,TEXTCF,PLOTFC(11) C CCCCC ADD FOLLOWING SECTION JULY, 1996. C ---------------------------------------------------- C LAHEY: C C ILAHSW - OFF MEANS NORMAL TEXT MODE, ON MEANS GRAPHICS MODE C ILAHGR - BIOS MEANS GRAPHICS VIA BIOS CALLS, DIRE MEANS WRITE C TO VIDEO MEMORY C ILAHCL - ON MEANS SWITCH TO TEXT MODE AFTER PLOT IS DRAWN, OFF C MEANS LEAVE IN GRAPHICS MODE C ILAHPA - ON MEANS PROMPT FOR CARRIAGE RETURN AT END OF PLOT, OFF C MEANS CONTINUE NORMALLY C ILAHNC - NUMBER OF COLORS C ILAHCC - CURRENT COLOR C PLAHTH - WIDTH OF LAHEY LINE C ILAHPM - LAHEY PEN MAP C ILAHPF - FLAG FOR LAHEY PEN MAP C CHARACTER*4 ILAHSW CHARACTER*4 ILAHGR CHARACTER*4 ILAHCL CHARACTER*4 ILAHPA CHARACTER*4 ILAHPM CHARACTER*4 ILAHPF COMMON/CLAHCP/ILAHSW,ILAHGR,ILAHCL,ILAHPA,ILAHPF,ILAHPM(16) COMMON/ILAHCP/ILAHNC,ILAHCC COMMON/RLAHCP/PLAHTH C CCCCC ADD FOLLOWING SECTION NOVEMBER, 1996. C ---------------------------------------------------- C MICROSOFT QUICK-WIN: C C IQWNFC - AFTER PLOT, FOCUS RETURNS TO TEXT SCREEN C IF TEXT, STAYS ON GRAPHICS SCREEN IF C IQWNCL - C IQWNFN - MICROSOFT QUICK-WIN FONT NAME C IQWNPF - FLAG FOR MICROSOFT PEN MAP C IQWNBC - COLOR FOR TEXT WINDOW BACKGROUND C IQWNF2 - COLOR FOR TEXT WINDOW FOREGROUND C CHARACTER*4 IQWNFC CHARACTER*4 IQWNCL CHARACTER*80 IQWNFZ CHARACTER*4 IQWNPF CHARACTER*4 IQWNPM CHARACTER*4 IQWNTC COMMON/CQWNCP/IQWNFC,IQWNCL,IQWNFZ,IQWNPF,IQWNTC,IQWNPM(255) COMMON/CQWNIP/IQWNBC,IQWNF2 C C CCCCC ADD FOLLOWING SECTION FEBRUARY, 2001. C ---------------------------------------------------- C LAHEY WINTERACTOR: C C IWINCL - LAHEY COLOR C IWINFN - LAHEY QUICK-WIN FONT NAME C IWINHP - HORIZONTAL PIXELS C IWINVP - VERTICAL PIXELS C CHARACTER*4 IWINCL CHARACTER*4 IWINFN COMMON/CWINCP/IWINCL,IWINFN COMMON/IWINIP/IWINHP,IWINVP C CCCCC ADD FOLLOWING SECTION MARCH, 2002. C ---------------------------------------------------- C SVG (SCALABLE VECTOR GRAPHICS) C C ISVGOS - OPEN SWITCH (OFF/ON), NOT SET BY USER C ISVGCS - COORDINATE SYSTEM (PIXEL/PERCENT) C ISVGFN - FONT NAME (FAMILY) C ISVGFW - FONT WEIGHT C ISVGST - FONT STYLE C ISVGCA - SVG CAP STYLE (BUTT, ROUND, SQUARE, NONE) C ISVGJS - SVG JOIN STYLE (MITER, ROUND, BEVEL, NONE) C ISVGFS - SVG HARDWARE FILL SWITCH (NONZERO/EVENODD/SOFTWARE) C ISVGSS - SVG STYLE SHEET (INTERNAL/EXTERNAL/NONE) C ISVGSN - SVG STYLE SHEET NAME (NAME OF FILE CONTAINING C EXTERNAL FILE SHEET) C ISVGFC - SVG FOREGROUND COLOR (DEFAULT COLOR FOR STYLE SHEETS) C ISVGCN - GRAPH COUNTER C CHARACTER*4 ISVGOS CHARACTER*4 ISVGCS CHARACTER*4 ISVGCA CHARACTER*4 ISVGJS CHARACTER*4 ISVGST CHARACTER*4 ISVGSS CHARACTER*4 ISVGFW CHARACTER*4 ISVGFS CHARACTER*4 ISVGFC CHARACTER*32 ISVGFN CHARACTER*80 ISVGSN COMMON/CSVGCP/ISVGOS,ISVGCS,ISVGCA,ISVGJS,ISVGFS,ISVGSS, 1 ISVGFW,ISVGST,ISVGFC COMMON/CSVGC2/ISVGFN COMMON/CSVGC3/ISVGSN COMMON/ISVGCP/ISVGCN C C ---------------------------------------------------- C AQUATERM C C IAQUCS - AQUATERM CAP STYLE (BUTT, ROUND, PROJECT) C IAQUJS - AQUATERM JOIN STYLE (MITER, ROUND, BEVEL) C IAQUFN - AQUATERM FONT NAME C IAQUOF - AQUATERM WINDOW OPEN FLAG C IAQUFS - AQUATERM HARDWARE FILL SWITCH C CHARACTER*8 IAQUCS CHARACTER*8 IAQUJS CHARACTER*80 IAQUFN CHARACTER*4 IAQUOF CHARACTER*4 IAQUFS COMMON/CAQU/IAQUCS,IAQUJS,IAQUFN,IAQUOF,IAQUFS C CCCCC ADD FOLLOWING SECTION FEBRUARY, 2006. C ---------------------------------------------------- C LATEK C C ILATOS - OPEN SWITCH (OFF/ON), NOT SET BY USER C ILATCO - LATEX COLOR C ILATFS - LATEX HARDWARE FILL C ILATLT - LATEX LINE THICKNESS C CHARACTER*4 ILATOS CHARACTER*4 ILATCO CHARACTER*4 ILATFS CHARACTER*4 ILATLT COMMON/CLATCP/ILATOS,ILATCO,ILATFS,ILATLT C