Commit | Line | Data |
---|---|---|
1 | C SOME LITTLE GRAPHIC ROUTINES | |
2 | C | |
3 | C | |
4 | C | |
5 | SUBROUTINE BOX(X,Y,W,H) | |
6 | INTEGER X,Y,W,H | |
7 | ||
8 | CALL PL$LN(X,Y,X,Y+H) | |
9 | CALL PL$LN(X,Y+H,X+W,Y+H) | |
10 | CALL PL$LN(X+W,Y+H,X+W,Y) | |
11 | CALL PL$LN(X,Y,X+W,Y) | |
12 | CALL PL$PU | |
13 | RETURN | |
14 | END | |
15 | ||
16 | SUBROUTINE SQUARE(X,Y,L) | |
17 | INTEGER X,Y,L | |
18 | CALL PL$LN(X,Y,X,Y+L) | |
19 | CALL PL$LN(X,Y+L,X+L,Y+L) | |
20 | CALL PL$LN(X+L,Y+L,X+L,Y) | |
21 | CALL PL$LN(X,Y,X+L,Y) | |
22 | CALL PL$PU | |
23 | RETURN | |
24 | END | |
25 | ||
26 | ||
27 | CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC | |
28 | $0 |