projects
/
h316.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Fixed dependencies in Makefile
[h316.git]
/
programs
/
plotter
/
src
/
sinus.f
diff --git
a/programs/plotter/src/sinus.f
b/programs/plotter/src/sinus.f
index e6bf809688232b2e77b4f598431fe73cd6b8b623..0e52e0395601de3545aaeb9c9179c2bc028ae6f2 100644
(file)
--- a/
programs/plotter/src/sinus.f
+++ b/
programs/plotter/src/sinus.f
@@
-4,9
+4,12
@@
C
INTEGER X,Y
C
C
INTEGER X,Y
C
C
- 1000 CALL PL$RST
+C
+ 1000 CALL PL$INI
+ CALL PL$SCL(2.54)
C
CALL GITTER
C
CALL GITTER
+ CALL PL$PU
C
CALL PL$MV(0,0)
CALL DOWN
C
CALL PL$MV(0,0)
CALL DOWN
@@
-29,7
+32,10
@@
C
C
C
CALL PL$MV(0,0)
C
C
CALL PL$MV(0,0)
- CALL REBOOT
+C CALL REBOOT
+ CALL PL$MV (0,-250)
+ PAUSE 7
+ GO TO 1000
END
C
C
END
C
C
@@
-50,7
+56,8
@@
C
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
SUBROUTINE GITTER
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
SUBROUTINE GITTER
- INTEGER X,Y
+ INTEGER X,Y,STAK(400)
+ CALL S$INIT(STAK,400)
DO 2000 X=0,600,50
CALL LINE(X,-100,X,100)
2000 CONTINUE
DO 2000 X=0,600,50
CALL LINE(X,-100,X,100)
2000 CONTINUE
@@
-67,19
+74,21
@@
C
CALL LINE (0,-1,600,-1)
CALL LINE (-1,-100,-1,100)
CALL LINE (1,-100,1,100)
CALL LINE (0,-1,600,-1)
CALL LINE (-1,-100,-1,100)
CALL LINE (1,-100,1,100)
+ CALL PL$PU
+ CALL PL$MV(0,110)
+ CALL PL$TXT(STAK,37HSinus-Demo, 08.11.2008, Ph. Hachtmann,37)
C
RETURN
END
C
C
C
RETURN
END
C
C
- SUBROUTINE LINE(X1,Y1,X2,Y2)
- INTEGER X1,Y1,X2,Y2
- CALL PL$MV(X1,Y1)
- CALL PL$PD
- CALL PL$MV(X2,Y2)
- CALL PL$PU
- RETURN
- END
+C SUBROUTINE LINE(X1,Y1,X2,Y2)
+C CALL PL$MV(X1,Y1)
+C CALL PL$PD
+C CALL PL$MV(X2,Y2)
+C CALL PL$PU
+C RETURN
+C END
CCCCCCCCCC
C
SUBROUTINE DOWN
CCCCCCCCCC
C
SUBROUTINE DOWN