1*----------------------------------------------------------------------- 2 SUBROUTINE SGTXXR(RX,RY,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','SGTXXR','FULL COLOR MODE IS NOT SUPPORTED.') 10 END IF 11 12 IF (RSIZE.EQ.0) THEN 13 CALL MSGDMP('M','SGTXXR','TEXT HEIGHT IS 0 / DO NOTHING.') 14 RETURN 15 END IF 16 IF (RSIZE.LT.0) THEN 17 CALL MSGDMP('E','SGTXXR','TEXT HEIGHT IS LESS THAN ZERO.') 18 END IF 19 IF (.NOT.(-1.LE.ICENT .AND. ICENT.LE.1)) THEN 20 CALL MSGDMP('E','SGTXXR','CENTERING OPTION IS INVALID.') 21 END IF 22 IF (INDEX.EQ.0) THEN 23 CALL MSGDMP('M','SGTXXR','TEXT INDEX IS 0 / DO NOTHING.') 24 RETURN 25 END IF 26 IF (INDEX.LT.0) THEN 27 CALL MSGDMP('E','SGTXXR','TEXT INDEX IS LESS THAN 0.') 28 END IF 29 30 CALL SWSFCM(.TRUE.) 31 CALL SWSLCL(ICOLOR) 32 33 CALL SZTXOP(RSIZE,IROTA,ICENT,INDEX) 34 CALL SZTXZR(RX,RY,CHARS) 35 CALL SZTXCL 36 37 CALL SWSFCM(.FALSE.) 38 39 END 40