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]
/
programs
/
plotter
/
src
/
achja.f
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