SUBROUTINE AXES3(ANGLE,NMAJ,TITLE,NCHRS,SIZE) C C This subroutine finds the center of the axis an places C the title in the correct spot. 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 COMMON /AXESC/ CS, SN, SGN, TX, TY, DX, DY, 1 MIN, MIDL, MAX, MIDU, UMAX, WMAX, IFORM, JUSTFY LOGICAL*1 JUSTS(3) DATA JUSTS/'L', 'C', 'R'/ C C - SET TO TITLE CHARACTER SIZE AND CALCULATE TITLE HALF-WIDTH. CALL SIZEUP(1.5*SIZE,ANGLE) ICHRS=IABS(NCHRS) CALL HCSIZE( TITLE, ICHRS, W, U, D ) WH = W/2. UH = U/2. DH = D/2. UDH = UH - DH C C - LOCATE CENTER OF AXIS. XP = 0.5*NMAJ*DX YP = 0.5*NMAJ*DY C C - ALLOW SPACE FOR ANNOTATION. XP = XP - TX*.75 - 2.*SN*SGN*WMAX YP = YP - TY*.75 + 2.*CS*SGN*UMAX C C - WHAT TYPE OF DEVICE? IF( KSetNo ) 200, 100, 300 100 GO TO (200,200,300,200) IDev C C - TEKTRONIX 4010, 4014 AND 4025. 200 XP = XP - ( 1. + SN*SGN )*WH YP = YP - ( 1. - CS*SGN )*UH - ( 1. + CS*SGN )*DH GO TO 400 C C - TEKTRONIX 4662 OR CHARACTER SET GENERATOR. 300 AV = .5*SGN*( ( 1. - SGN )*U - ( 1. + SGN )*D ) XP = XP - CS*WH - SN*AV YP = YP - SN*WH + CS*AV C C - WRITE OUT TITLE. 400 XP = XP + ( JUSTFY-1 )*WH*CosUp YP = YP + ( JUSTFY-1 )*WH*SinUp CALL HCGEN(XP,YP,TITLE,0, JUSTS( JUSTFY ) ) C RETURN END