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

diff --git a/programs/mandelbrot/src/apfel3.f b/programs/mandelbrot/src/apfel3.f
index 168a926..eb86d58 100644
--- a/programs/mandelbrot/src/apfel3.f
+++ b/programs/mandelbrot/src/apfel3.f
@@ -94,10 +94,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 +132,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