X-Git-Url: http://gitweb.hachti.de/?p=h316.git;a=blobdiff_plain;f=programs%2Fplotter%2Fsrc%2Fplotapfel2.f;fp=programs%2Fplotter%2Fsrc%2Fplotapfel2.f;h=4f25c4cc5499fe5987c5cd96b9330d6ae951c056;hp=95aae1ecc5969197a4b7318fdeef9177657eef6e;hb=c6301d07c84cf71c19ac3b3a6421fa259dd3d7a2;hpb=7128b5732a3d25dc30c555deb213095c424956b5

diff --git a/programs/plotter/src/plotapfel2.f b/programs/plotter/src/plotapfel2.f
index 95aae1e..4f25c4c 100644
--- a/programs/plotter/src/plotapfel2.f
+++ b/programs/plotter/src/plotapfel2.f
@@ -41,6 +41,7 @@ C
        WRITE  (1,55)
  55    FORMAT (1H0)
 C
+       CALL PLOTI
        CALL CALC2
 C
        WRITE(1, 60)
@@ -108,7 +109,9 @@ CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
       SUBROUTINE PLOTI
       INTEGER PEN,PENX
       COMMON /PENSTA/PEN,PENX
-      CALL PL$UP
+      CALL PL$INI
+      CALL PL$SCL(3.0)
+      CALL PL$PU
       PEN=0
       PENX=0
       RETURN
@@ -120,9 +123,9 @@ C
       CALL PL$R
       IF (PEN.EQ.0) CALL PL$PD
       PEN=1
-      CALL PL$UP
+      CALL PL$U
       CALL PL$R
-      CALL PL$DN
+      CALL PL$D
       PENX=PENX+2
       RETURN
       END
@@ -147,8 +150,8 @@ C
       PENX=PENX-1
       GO TO 8000
  8100 CONTINUE
-      CALL PL$DN
-      CALL PL$DN
+      CALL PL$D
+      CALL PL$D
       RETURN
       END
 C