Commit | Line | Data |
---|---|---|
047c458f | 1 | C |
2 | C | |
3 | C | |
4 | C | |
5 | INTEGER X,Y | |
6 | INTEGER RADIUS | |
7 | REAL RADIUR,RADF | |
8 | C | |
9 | RADIUS=100 | |
10 | RADIUR=RADIUS | |
11 | PI=3.14159265 | |
12 | RADF=(2.0*PI)/360.0 | |
13 | C | |
14 | CALL PL$RST | |
15 | CALL PL$MV(RADIUS,RADIUS) | |
16 | CALL PL$RST | |
17 | C | |
18 | ||
19 | DO 2000 I=0,362,1 | |
20 | P=I | |
21 | PHI=P*RADF | |
22 | X=COS(PHI)*RADIUR | |
23 | Y=SIN(PHI)*RADIUR | |
24 | CALL PL$MV(X,Y) | |
25 | IF (I.EQ.0) CALL PL$PD | |
26 | 2000 CONTINUE | |
27 | CALL PL$PU | |
28 | DO 1000 I=0,720,144 | |
29 | P=I-18 | |
30 | PHI=P*RADF | |
31 | X=COS(PHI)*RADIUR | |
32 | Y=SIN(PHI)*RADIUR | |
33 | CALL PL$MV(X,Y) | |
34 | IF (I.EQ.0) CALL PL$PD | |
35 | 1000 CONTINUE | |
36 | ||
37 | CALL PL$PU | |
38 | CALL PL$MV(-RADIUS,-RADIUS) | |
39 | CALL PL$RST | |
40 | C | |
41 | C | |
42 | CALL REBOOT | |
43 | END | |
44 | $0 |