SUBROUTINE NEWLVL( MAJ, MIN ) C C This subroutine calculates the coordinates of the lower C left hand corner for the next text character(s) that C are to follow. The scaled transforms are also C calculated here. C C 2 Above C 1 Upper 1 Exponent C MAJ = 0 Normal MIN = 0 Normal C -1 Down -1 Index C -2 Lower C -3 Below C C+ COMMON /ENTRY/ XENTRY, YENTRY, DIMEN, XMAX, YMAX, YMIN COMMON /HCDB/ ICASE, NVEC, IWIDTH, LL0, LL0D, SCALE, SCALED, 1 COSUPC, SINUPC, COSUPD, SINUPD, COSUPT, SINUPT, DES, DEF COMMON /HCS/ XLINE, YLINE, XBASE, YBASE, MAJLVL, MINLVL, 1 XLL, YLL, SIZEF, COSUPF, SINUPF, SIZEC, XDIV, YDIV, 1 XSAVE, YSAVE, MAJSAV, MINSAV, 1 XSNGLE, YSNGLE, MAJSNG, MINSNG, 1 XDBLE, YDBLE, MAJDBL, MINDBL, 1 XVEX, YVEX, MAJVEX, MINVEX 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 INTEGER DES, DEF LOGICAL DIMEN LOGICAL*1 BUFS C- DIMENSION A(6), B(3), C(6), D(3), 1 DISMAJ(1), DISMIN(1), SIZMAJ(1), SIZMIN(1) EQUIVALENCE ( A(5), DISMAJ ), ( B(3), DISMIN ), 1 ( C(5), SIZMAJ ), ( D(3), SIZMIN ) DATA A/-.897, -.838, -.419, 0., .8, .973/, B/-.232, 0., .788/, 1 C/1., .619, .619, 1., .619, 1./, D/.44, 1., .444/ C C - SET CHARACTER SIZE AT MAJOR LEVEL SIZEC = SIZMAJ( MAJ )*SIZEF COSUPC = SIZMAJ( MAJ )*COSUPF SINUPC = SIZMAJ( MAJ )*SINUPF C C - CALCULATE COORDINATE OF THE LOWER LEFT HAND CORNER. XLL = XBASE - DISMAJ( MAJ )*SINUPF - 1 DISMIN( MIN )*SINUPC YLL = YBASE + DISMAJ( MAJ )*COSUPF + 1 DISMIN( MIN )*COSUPC C C - SET CHARACTER SIZE AT MINOR LEVEL. SIZEC = SIZMIN( MIN )*SIZEC COSUPC = SIZMIN( MIN )*COSUPC SINUPC = SIZMIN( MIN )*SINUPC C C - CALCULATE SCALED TRANSFORM. COSUPD = COSUPC*SCALED SINUPD = SINUPC*SCALED C RETURN END