X-Git-Url: http://gitweb.hachti.de/?a=blobdiff_plain;f=programs%2Fmandelbrot%2Fsrc%2Fapfel3.f;h=9aa716bd81e14390adfa74855623599091d4eacf;hb=6b022f3519ccbe4635ff6fc9f7bd87c89862cb85;hp=168a92602648e2c069278be2f2fbec0c1956d2ca;hpb=b098c879bba1ab1bce7a269df7da2abadedc8e71;p=h316.git

diff --git a/programs/mandelbrot/src/apfel3.f b/programs/mandelbrot/src/apfel3.f
index 168a926..9aa716b 100644
--- a/programs/mandelbrot/src/apfel3.f
+++ b/programs/mandelbrot/src/apfel3.f
@@ -53,6 +53,7 @@ C
    60  FORMAT (5HREADY)
 C
 CCCCCC BREAK WITH 7 in A REG, THEN START OVER
+C       CALL PWAIT
        PAUSE 7
        GO TO 100
        END
@@ -94,10 +95,13 @@ C
 C
 CCCCCC PUNKT FERTIG
   410  NOUT=32
+C       IF (COUNT.GE.8) NOUT=46
+C       IF (COUNT.GE.23) NOUT=43
+C       IF (COUNT.EQ.MAXI) NOUT=64
        IF (COUNT.GE.8) NOUT=46
        IF (COUNT.GE.23) NOUT=43
        IF (COUNT.EQ.MAXI) NOUT=64
-C       NOUT=46
+
   411  CALL PCHAR(NOUT)
        GO TO 500
 C
@@ -129,13 +133,13 @@ C
 C
        CR      = 13 
        LF      = 10
-       WIDTH   = 70
+       WIDTH   = 68
        MAXI    = 60
        MAXVAL  = 2.0
-       LOWX    =-1.45
-       HIGHX   = 0.45
-       LOWY    =-1.00
-       HIGHY   = 1.00
+       LOWX    =-1.48
+       HIGHX   = 0.5
+       LOWY    =-1.2
+       HIGHY   = 1.2
        INIT    =  1
 C  
 CCCCCC SCHRITTWEITEN AUSRECHNEN