projects
/
h316.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
blame
|
history
|
raw
|
HEAD
*** empty log message ***
[h316.git]
/
lib
/
hachti
/
src
/
graphics.f
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