Commit | Line | Data |
---|---|---|
81e70d48 PH |
1 | INTEGER PLONUM\r |
2 | DIMENSION NAME(30)\r | |
3 | ITTY=4\r | |
4 | WRITE (ITTY,100)\r | |
5 | 100 FORMAT (1X,'TEXT (30 CHAR MAX, TERMINATOR IS \)')\r | |
6 | READ (ITTY,200) NAME\r | |
7 | 200 FORMAT (30A1)\r | |
8 | ASSIGN 12 TO LAB\r | |
9 | TERM=1H\\r | |
10 | 11 DO 10 I=1,30\r | |
11 | J=31-I\r | |
12 | IF (NAME(J).EQ.TERM)GOTO LAB\r | |
13 | IF (TERM.EQ.1H )GOTO 12\r | |
14 | 10 CONTINUE\r | |
15 | TERM=1H \r | |
16 | ASSIGN 10 TO LAB\r | |
17 | GOTO 11\r | |
18 | 12 NN=J-1\r | |
19 | WRITE (4,2)\r | |
20 | READ (4,3) PLONUM\r | |
21 | CALL PLOTS(PLONUM,0)\r | |
22 | CALL XYPLOT(16,10.,-3)\r | |
23 | RAD=6\r | |
24 | SIZE=.1224*RAD\r | |
25 | SPIR=.995\r | |
26 | CONV=180./3.1415\r | |
27 | ANG=0\r | |
28 | BANG=1.5707\r | |
29 | DO 300 J=1,NN\r | |
30 | 300 CALL SYMBOL ((J-1-NN)*SIZE,RAD,SIZE,NAME(J),ANG,1)\r | |
31 | 380 DO 400 J=1,NN\r | |
32 | T=2*ATAN(SIZE/(2.*RAD))\r | |
33 | ANG=ANG-T*CONV\r | |
34 | X=RAD*COS(BANG)\r | |
35 | Y=RAD*SIN(BANG)\r | |
36 | BANG=BANG-T\r | |
37 | RAD=RAD*SPIR\r | |
38 | SIZE=.1225*RAD\r | |
39 | 400 CALL SYMBOL(X,Y,SIZE,NAME(J),ANG,1)\r | |
40 | IF(SIZE-.07)500,500,380\r | |
41 | 500 CALL PLEXIT\r | |
42 | STOP\r | |
43 | 2 FORMAT (' PLOTTER NUMMER?',$)\r | |
44 | 3 FORMAT (I1)\r | |
45 | END\r | |
46 | \1a\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0 |