1*----------------------------------------------------------------------- 2* Copyright (C) 2000-2004 GFD Dennou Club. All rights reserved. 3*----------------------------------------------------------------------- 4 SUBROUTINE SZTXOP(RSIZE,IROTA,ICENT,INDEX) 5 6 PARAMETER (WIDE=24) 7 8 CHARACTER COBJ*80 9 10 COMMON /SZBTX1/ QSIZE,CT,ST,ICENTZ 11 COMMON /SZBTX2/ LCNTL,JSUP,JSUB,JRST,SMALL,SHIFT 12 LOGICAL LCNTL 13 COMMON /SZBTX3/ LCLIP 14 LOGICAL LCLIP 15 16 SAVE 17 18 19 CALL SGIGET('IFONT',IFONT) 20 21 QSIZE=RSIZE/WIDE 22 THETA=RD2R(REAL(IROTA)) 23 CT=QSIZE*COS(THETA) 24 ST=QSIZE*SIN(THETA) 25 26 ICENTZ=ICENT 27 28 CALL SGLGET('LCNTL',LCNTL) 29 CALL SGIGET('ISUP',ISUP) 30 CALL SGIGET('ISUB',ISUB) 31 CALL SGIGET('IRST',IRST) 32 CALL SGRGET('SMALL',SMALL) 33 CALL SGRGET('SHIFT',SHIFT) 34 CALL SGLGET('LCLIP',LCLIP) 35 CALL SGIGET('IWS',IWS) 36 37 JSUP=ISUP+1 38 JSUB=ISUB+1 39 JRST=IRST+1 40 41 CALL SZQIDX(INDEXZ) 42 CALL SZSIDX(INDEX) 43 44 WRITE(COBJ,'(F8.5,5I8)') RSIZE,IROTA,ICENT,INDEX,IFONT,IWS 45* WRITE(COBJ,'(F8.5,5I8)') RSIZE,IROTA,ICENT,INDEX,IWS 46 CALL CDBLK(COBJ) 47 CALL SWOOPN('SZTX',COBJ) 48 49 RETURN 50*----------------------------------------------------------------------- 51 ENTRY SZTXCL 52 53 CALL SZSIDX(INDEXZ) 54 55 CALL SWOCLS('SZTX') 56 57 RETURN 58 END 59