SUBROUTINE SIZEUP(SIZE,ANGLE) C C This subroutine changes the default character size and C angle (when possible). The width of a space (DeltaH) C and the depth of a line feed (DeltaV) in scale inches is C also calculated. C C Note: The variable CnvMag (COMMON /PLTR/) is calculated in C this subroutine. (CnvMag = Cnvrsn*CMag) C COMMON /PLTR/ ILun, IDev, IsTerm, IMode, IXMax, IYMax, 1 Cnvrsn, CMag, CnvMag, IX0, IY0, KSetNo, IFancy, IBfDv3, 1 CSize, DeltaH, DeltaV, Upsiln, CosUp, SinUp, WidAdj DIMENSION DH(4),DSP(4),DLF(4),IS(4),JCODE(4) LOGICAL*1 STRING(17),CHAR(4),JKODE(8) DATA DH /.0933,.1467,.1867,.2133/ DATA DSP/.1085,.119,.1785,.196/, DLF/.168,.1855,.287,.315/ DATA CHAR/"73,"72,"71,"70/ DATA JKODE/"33,"140,"33,"140,"33,"150,"33,"150/ DATA DTR/.017453293/ C C - CALCULATE CnvMag CnvMag = Cnvrsn*CMag C CSize = SIZE SSIZE = SIZE*CMag CosUP = 1. SinUP = 0. IF( KSetNo .GT. 0 ) GO TO 3200 GO TO (100,200,1200,3100) IDev C C - TEKTRONIC 4010 100 Upsiln = 0. DeltaH = .103/CMag DeltaV = .1559/CMag RETURN C C - TEKTRONIC 4014 200 STRING(1) = "33 DO 1000 ISIGHS=1,3 IF( SSIZE .LT. DH(ISIGHS) ) GO TO 1100 1000 CONTINUE ISIGHS = 4 C 1100 Upsiln = 0. DeltaH = DSP(ISIGHS)/CMag DeltaV = DLF(ISIGHS)/CMag HCODE = JCODE(ISIGHS) STRING(2) = CHAR(ISIGHS) CALL TOUTPT(STRING,2) RETURN C C - TEKTRONIC 4662 1200 IDX = 340.*SSIZE IDY = 520.*SSIZE DeltaH = IDX/CnvMag DeltaV = IDY/CnvMag Upsiln = ANGLE UP = Upsiln*DTR CosUP = COS( UP ) SinUP = SIN( UP ) ENCODE(9,1210,STRING) "33,Upsiln 1210 FORMAT(A1,'AJ',F6.1) J=1 DO 2000 I=1,9 IF( STRING(I) .EQ. "40 ) GO TO 2000 STRING(J) = STRING(I) J=J+1 2000 CONTINUE STRING(J) = "7 CALL TOUTPT(STRING,J) ENCODE(17,2010,STRING) "33,IDX,IDY,"7 2010 FORMAT(A1,'AI',I6,',',I6,A1) J=1 DO 3000 I=1,17 IF( STRING(I) .EQ. "40 ) GO TO 3000 STRING(J) = STRING(I) J=J+1 3000 CONTINUE STRING(J) = "7 CALL TOUTPT(STRING,J) RETURN C C - TEKTRONIC 4025. 3100 Upsiln = 0. DeltaH = .105/CMag DeltaV = .1559/CMag RETURN C C - CHARACTER GENERATOR. 3200 Upsiln = ANGLE UP = Upsiln*DTR CosUP = COS( UP ) SinUP = SIN( UP ) DeltaH = .9125*CSize DeltaV = 1.5*CSize RETURN END