!+ ! VERSION: 1-001 ! ! FACILITY: GPLOT Graphics Library ! ! ABSTRACT: RESET is used to reset GPLOT parameters to their default values ! ! ENVIRONMENT: User Mode, AST-reentrant ! ! AUTHOR: Thomas G. Worlton CREATION DATE: 1-Jan-1987 ! Argonne National Laboratory ! ! MODIFIED BY: ! 1-001 - Original. TGW 1-Jan-1987 ! 19-Dec-1988 TGW Corrected errors in resetting Alphabet Characters. !- SUBROUTINE RESET(OPTION) !++ ! ! FUNCTIONAL DESCRIPTION: RESET is used to reset GPLOT parameters ! to their default values ! ! ! FORMAL ARGUMENTS: ! ! variable TYPE Description ! ! OPTION Character 'ALL' or option name to reset ! ! IMPLICIT INPUTS: ! ! NONE ! ! IMPLICIT OUTPUTS: ! ! RESETS parameters in the GPLOT com files to default values ! ! COMPLETION CODES: ! ! Value Meaning ! ! SIDE EFFECTS: ! ! NONE !-- BYTE OPTION(1) CHARACTER*6 COPT INCLUDE 'SYS$LIBRARY:GKSDEFS.BND' INCLUDE 'GPLOT_SRC:GKALF.INC' INCLUDE 'GPLOT_SRC:GKA.INC' INCLUDE 'GPLOT_SRC:GKU.INC' INCLUDE 'GPLOT_SRC:GKG.INC' WRITE(COPT,10) (OPTION(I),I=1,6) 10 FORMAT(6A1) D WRITE(1,*) 'RESET=<',COPT(:),'>' IF(COPT(1:3) .EQ. 'ALL') THEN D WRITE(1,*) 'RESETTING ALL' CALL INIT3D_DATA XTKIN = .FALSE. XLBREV = .FALSE. XLBTYP = 'REAL' CTRXLB = .FALSE. CALL XNMADJ('FIRST') YTKIN = .FALSE. YLBREV = .FALSE. YLBTYP = 'REAL' CTRYLB = .FALSE. CALL YNMADJ('FIRST') XNUM = .TRUE. YNUM = .TRUE. CALL NEWCLR('FORE') HITE = 0.18 ISYM = ICURV-1 IF(ISYM .LT. 0) ISYM = 0 CALL ANGLE(0) CALL SOLID TRANON = 0 C CALL ASNALF(1,'STAN',')') C CALL ASNALF(2,'L/CS','(') DO I=1,NALF CALL ASNALF(I,'STAN',CHAR(0)) END DO ELSE IF (COPT(1:4) .EQ. 'XTKR') THEN XTKIN = .FALSE. ELSE IF (COPT(1:4) .EQ. 'XNON') THEN XNUM = .TRUE. ELSE IF (COPT(1:4) .EQ. 'XLBR') THEN XLBREV = .FALSE. ELSE IF (COPT(1:4) .EQ. 'XLBT') THEN XLBTYP = 'REAL' ELSE IF (COPT(1:4) .EQ. 'XAXC') THEN CTRXLB = .FALSE. ELSE IF (COPT(1:4) .EQ. 'XNMA') THEN CALL XNMADJ('FIRST') ELSE IF (COPT(1:4) .EQ. 'YTKR') THEN YTKIN = .FALSE. ELSE IF (COPT(1:4) .EQ. 'YNON') THEN YNUM = .TRUE. ELSE IF (COPT(1:4) .EQ. 'YLBR') THEN YLBREV = .FALSE. ELSE IF (COPT(1:4) .EQ. 'YLBT') THEN YLBTYP = 'REAL' ELSE IF (COPT(1:4) .EQ. 'YAXC') THEN CTRYLB = .FALSE. ELSE IF (COPT(1:4) .EQ. 'YNMA') THEN CALL YNMADJ('FIRST') ELSE IF (COPT(1:4) .EQ. 'MIXA') THEN CALL ASNALF(1,'STAN',')') CALL ASNALF(2,'L/CS','(') ELSE IF (COPT(1:4) .EQ. 'MXAL') THEN CALL ASNALF(1,'STAN',')') CALL ASNALF(2,'L/CS','(') DO I=3,NALF CALL ASNALF(I,'STAN',CHAR(0)) END DO ELSE IF(COPT(1:3) .EQ. 'DOT' .OR. COPT(1:4) .EQ. 'DASH' 1 .OR. COPT(1:6) .EQ. 'CHNDOT' .OR. COPT(1:6) .EQ. 'CHNDSH') THEN CALL SOLID ELSE IF(COPT(1:5) .EQ. 'ANGLE') THEN CALL ANGLE(0) ELSE IF(COPT(1:6) .EQ. 'HEIGHT') THEN CALL HEIGHT(0.14) ELSE IF(COPT(1:6) .EQ. 'ATRANS') THEN TRANON = 0 ELSE D WRITE(1,*) 'RESETTING ',COPT(1:4) END IF RETURN END SUBROUTINE ATRANS INCLUDE 'GPLOT_SRC:GKG.INC' TRANON = 1 RETURN END !+ ! VERSION: 1-001 ! ! FACILITY: GPLOT Graphics Library ! ! ABSTRACT: GPLDAT is a block data routine used to store the initial ! values of the GPLOT parameters. this data was originally ! initialized in the include statements. ! ! AUTHOR: Thomas G. Worlton CREATION DATE: 25-MAY-1990 ! Argonne National Laboratory ! ! MODIFIED BY: ! 1-001 - Original. TGW 25-MAY-1990 !- BLOCK DATA GPLDAT INCLUDE 'GPLOT_SRC:GPCOM1.INC' INCLUDE 'GPLOT_SRC:GKA.INC' DATA TICY/.FALSE./,NOYFST/.FALSE./,NOYLST/.FALSE./ 1 , INTY/.FALSE./,YNUM/.TRUE./,CTRYLB/.FALSE./ DATA TICX/.FALSE./,NOXFST/.FALSE./,NOXLST/.FALSE./ 1 , INTX/.FALSE./,XNUM/.TRUE./,CTRXLB/.FALSE./ DATA XPHYS,YPHYS/0.0,0.0/,XAXIS,YAXIS/1.0,1.0/ DATA PSCALE/1.0/,TRPAGE,TRSBPL,TRDATA/1,2,3/ DATA CTHICK/1.0/,GRACEM,IFCHEK/0.5,1/,VTHICK/1.0/ DATA VX0,VXM,VY0,VYM/0.0,1.0,0.0,1.0/ DATA SCFACT/1.0/ INCLUDE 'GPLOT_SRC:GKALF.INC' ! GKS ALPHABET AND FONT DATA DATA LOWER_CASE/.FALSE./,NALF/1/ DATA ALF(1)/'STAN'/ ! TGW MODIFIED 8/1/89 DATA IALF(1),IALF(2)/-1,-1/ DATA FONTID,FPREC/1,2/,HITE/0.14/,ICURV,ISYM/0,0/ DATA HITEM/0.08/,PICFAC/1.0/,YLRAT/1.5/,LDEL/50*0/ C INCLUDE 'GPLOT_SRC:GKD.INC' C DATA BASCEN, BASYER / 19, 00 / INCLUDE 'GPLOT_SRC:GKG.INC' DATA IPIC/0/,LTYPE/1/,XCYCLE,YCYCLE,THEFAC,RSTEP/4*0.0/ DATA TRANON/0/,NTERP/0/,XYDRAT/1.0/ DATA XTKIN,XLBREV,YTKIN,YLBREV/.FALSE.,.FALSE.,.FALSE.,.FALSE./ INCLUDE 'GPLOT_SRC:GKI.INC' DATA DVMKSC,PGMKSC/1.0,1.0/,NMAP/0/ DATA ERUNIT,SMUNIT/6,6/ INCLUDE 'GPLOT_SRC:GKU.INC' DATA XLBTYP, YLBTYP / 'REAL', 'REAL' / END