1*----------------------------------------------------------------------- 2 SUBROUTINE SGTXXV(VX,VY,CHARS,RSIZE,IROTA,ICENT,INDEX,ICOLOR) 3 4 CHARACTER CHARS*(*) 5 LOGICAL LFCATR 6 7 CALL SWQFCC(LFCATR) 8 IF(.NOT.LFCATR) THEN 9 CALL MSGDMP('M','SGTXXV','FULL COLOR MODE IS NOT SUPPORTED.') 10 END IF 11 12 13 IF (RSIZE.EQ.0) THEN 14 CALL MSGDMP('M','SGTXXV','TEXT HEIGHT IS 0 / DO NOTHING.') 15 RETURN 16 END IF 17 IF (RSIZE.LT.0) THEN 18 CALL MSGDMP('E','SGTXXV','TEXT HEIGHT IS LESS THAN ZERO.') 19 END IF 20 IF (.NOT.(-1.LE.ICENT .AND. ICENT.LE.1)) THEN 21 CALL MSGDMP('E','SGTXXV','CENTERING OPTION IS INVALID.') 22 END IF 23 IF (INDEX.EQ.0) THEN 24 CALL MSGDMP('M','SGTXXV','TEXT INDEX IS 0 / DO NOTHING.') 25 RETURN 26 END IF 27 IF (INDEX.LT.0) THEN 28 CALL MSGDMP('E','SGTXXV','TEXT INDEX IS LESS THAN 0.') 29 END IF 30 31 CALL SWSFCM(.TRUE.) 32 CALL SWSLCL(ICOLOR) 33 34 CALL SZTXOP(RSIZE,IROTA,ICENT,INDEX) 35 CALL SZTXZV(VX,VY,CHARS) 36 CALL SZTXCL 37 38 CALL SWSFCM(.TRUE.) 39 40 END 41