global: Makefiles now support parallel compiles.

[h316.git] / programs / plotter / src / sinus.f

diff --git a/programs/plotter/src/sinus.f b/programs/plotter/src/sinus.f
index b721b01ca2b0a85a018761b21776010592cf8a70..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
- 1000 CALL PL$RST
+C
+ 1000 CALL PL$INI
+      CALL PL$SCL(2.54)
 C
       CALL GITTER
+      CALL PL$PU
 C
       CALL PL$MV(0,0)
       CALL DOWN
@@ -53,7 +56,8 @@ C
 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
@@ -70,19 +74,21 @@ C
       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     
-      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