Commit | Line | Data |
---|---|---|
1 | C PLOTTER TEST PROGRAM | |
2 | C | |
3 | INTEGER PHI | |
4 | REAL PHIR | |
5 | INTEGER XI,YI | |
6 | C | |
7 | C | |
8 | 1000 CALL PL$RST | |
9 | C | |
10 | C | |
11 | DO 2000 PHI=0,360,15 | |
12 | CALL PL$MV(0,0) | |
13 | PHIR=PHI | |
14 | X=COS(PHIR)*100.0 | |
15 | Y=SIN(PHIR)*100.0 | |
16 | XI=X | |
17 | YI=Y | |
18 | CALL PL$PD | |
19 | CALL PL$MV(XI,YI) | |
20 | CALL PL$PU | |
21 | 2000 CONTINUE | |
22 | CALL PL$MV(0,0) | |
23 | ||
24 | C | |
25 | C | |
26 | 10000 CALL REBOOT | |
27 | END | |
28 | $0 | |
29 |