X-Git-Url: http://gitweb.hachti.de/?a=blobdiff_plain;f=programs%2Fplotter%2Fsrc%2Fsinus.f;h=0e52e0395601de3545aaeb9c9179c2bc028ae6f2;hb=4ad624fd6d8bf4db02fe531b51f363ba9d89707e;hp=b721b01ca2b0a85a018761b21776010592cf8a70;hpb=6f41bb44c6769c7ff7b60e8a23af86c98e3fbf89;p=h316.git

diff --git a/programs/plotter/src/sinus.f b/programs/plotter/src/sinus.f
index b721b01..0e52e03 100644
--- 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