Commit | Line | Data |
---|---|---|
1 | C ACH JA, DAS AUCH | |
2 | C | |
3 | C | |
4 | INTEGER X,Y | |
5 | C | |
6 | C | |
7 | 1000 CALL PL$RST | |
8 | DO 2000 X=0,600,50 | |
9 | CALL LINE(X,-100,X,100) | |
10 | 2000 CONTINUE | |
11 | ||
12 | 1500 DO 1600 Y=0,200,50 | |
13 | CALL LINE(0,Y-100,600,Y-100) | |
14 | 1600 CONTINUE | |
15 | CALL LINE (0,1,600,1) | |
16 | CALL LINE (0,-1,600,-1) | |
17 | C | |
18 | CALL PL$MV(0,0) | |
19 | CALL PL$PD | |
20 | DO 3000 X=0,600 | |
21 | TMP=X | |
22 | PHI=(3.141/180.0)*TMP | |
23 | Y=SIN(PHI)*90.0 | |
24 | CALL PL$MV(X,Y) | |
25 | 3000 CONTINUE | |
26 | CALL PL$PU | |
27 | C | |
28 | C | |
29 | C | |
30 | CALL PL$MV(0,0) | |
31 | CALL REBOOT | |
32 | END | |
33 | C | |
34 | C | |
35 | C | |
36 | SUBROUTINE LINE(X1,Y1,X2,Y2) | |
37 | INTEGER X1,Y1,X2,Y2 | |
38 | CALL PL$MV(X1,Y1) | |
39 | CALL PL$PD | |
40 | CALL PL$MV(X2,Y2) | |
41 | CALL PL$PU | |
42 | RETURN | |
43 | END | |
44 | $0 | |
45 | ||
46 |