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