X-Git-Url: http://gitweb.hachti.de/?a=blobdiff_plain;f=programs%2Fplotter%2Fsrc%2Fnikolaussiedlung.f;fp=programs%2Fplotter%2Fsrc%2Fnikolaussiedlung.f;h=3d55f1487b58d0ba0d0a46861504c1dd1e0ff6ff;hb=110cf2ab7b2f471cc6d394fefdba4a1f013aedc6;hp=7020a1a1d2847e9d4d6c6b0f75c1120daf602673;hpb=0c71589b599fb65b2faaf0d19e1054e72bac7d08;p=h316.git diff --git a/programs/plotter/src/nikolaussiedlung.f b/programs/plotter/src/nikolaussiedlung.f index 7020a1a..3d55f14 100644 --- a/programs/plotter/src/nikolaussiedlung.f +++ b/programs/plotter/src/nikolaussiedlung.f @@ -3,13 +3,13 @@ C C CALL PL$RST CALL PL$PD - CALL PL$MV(550,0) - CALL PL$MV(550,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(549,1) - CALL PL$MV(549,94) + CALL PL$MV(604,1) + CALL PL$MV(604,94) CALL PL$MV(1,94) CALL PL$MV(1,1) CALL PL$PU @@ -29,7 +29,7 @@ C CALL PL$PU CALL PL$MV(55,0) 1000 CONTINUE - CALL PL$MV(-540,-10) + CALL PL$MV(-595,-10) C C 10000 CALL REBOOT