1*----------------------------------------------------------------------- 2* Copyright (C) 2000-2004 GFD Dennou Club. All rights reserved. 3*----------------------------------------------------------------------- 4 SUBROUTINE SGTXZR(RX,RY,CHARS,RSIZE,IROTA,ICENT,INDEX) 5 6 CHARACTER CHARS*(*) 7 8 9 IF (RSIZE.EQ.0) THEN 10 CALL MSGDMP('M','SGTXZR','TEXT HEIGHT IS 0 / DO NOTHING.') 11 RETURN 12 END IF 13 IF (RSIZE.LT.0) THEN 14 CALL MSGDMP('E','SGTXZR','TEXT HEIGHT IS LESS THAN ZERO.') 15 END IF 16 IF (.NOT.(-1.LE.ICENT .AND. ICENT.LE.1)) THEN 17 CALL MSGDMP('E','SGTXZR','CENTERING OPTION IS INVALID.') 18 END IF 19 IF (INDEX.EQ.0) THEN 20 CALL MSGDMP('M','SGTXZR','TEXT INDEX IS 0 / DO NOTHING.') 21 RETURN 22 END IF 23 IF (INDEX.LT.0) THEN 24 CALL MSGDMP('E','SGTXZR','TEXT INDEX IS LESS THAN 0.') 25 END IF 26 27 CALL SZTXOP(RSIZE,IROTA,ICENT,INDEX) 28 CALL SZTXZR(RX,RY,CHARS) 29 CALL SZTXCL 30 31 END 32