X-Git-Url: http://gitweb.hachti.de/?a=blobdiff_plain;f=programs%2Fplotter%2Fsrc%2Fnikolaussiedlung.f;h=66433c3a5da3bdaae79202fb445a53d43af752f2;hb=920d9d917816047e4c0faa2eb66b72b2406bd601;hp=9a45c5e47df5b2fe993f5e8d5459f707d12443cc;hpb=fcb7b340c0c50feddfd0b1a4b2df25e41c374a12;p=h316.git

diff --git a/programs/plotter/src/nikolaussiedlung.f b/programs/plotter/src/nikolaussiedlung.f
index 9a45c5e..66433c3 100644
--- a/programs/plotter/src/nikolaussiedlung.f
+++ b/programs/plotter/src/nikolaussiedlung.f
@@ -2,15 +2,16 @@ C PLOTTER TEST PROGRAM
 C
 C
       CALL PL$RST
-      
+      CALL PL$SCI(100)
+      CALL PL$ROI(30)
       CALL PL$PD
-      CALL PL$MV(610,0)
-      CALL PL$MV(610,95)
+      CALL PL$MV(605,0)
+      CALL PL$MV(605,95)
       CALL PL$MV(0,95)
       CALL PL$MV(0,0)
       CALL PL$MV(1,1)
-      CALL PL$MV(609,1)
-      CALL PL$MV(609,94)
+      CALL PL$MV(604,1)
+      CALL PL$MV(604,94)
       CALL PL$MV(1,94)
       CALL PL$MV(1,1)
       CALL PL$PU
@@ -28,9 +29,9 @@ C
       CALL PL$MV(0,0)
       CALL PL$MV(50,0)
       CALL PL$PU
-      CALL PL$MV(60,0)
+      CALL PL$MV(55,0)
  1000 CONTINUE
-      CALL PL$MV(-540,-10)
+      CALL PL$MV(-595,-10)
 C
 C
 10000 CALL REBOOT