diff --git a/Fraktalism/mandelbrots.f90 b/Fraktalism/mandelbrots.f90 index 32afaa0..46e8c75 100644 --- a/Fraktalism/mandelbrots.f90 +++ b/Fraktalism/mandelbrots.f90 @@ -28,7 +28,7 @@ subroutine mandelbrot_one(pic, start) integer :: iter, maxiter logical :: escape - write(0,*) "> plotsomething" + ! write(0,*) "> plotsomething" width = ubound(pic, 1) height = ubound(pic, 2) @@ -37,7 +37,7 @@ subroutine mandelbrot_one(pic, start) ! initialise constants ! - maxiter = 1984 + maxiter = 3456 ! enter megaloop ! diff --git a/Fraktalism/mkmandel.f90 b/Fraktalism/mkmandel.f90 index 7c45aeb..8068a0b 100644 --- a/Fraktalism/mkmandel.f90 +++ b/Fraktalism/mkmandel.f90 @@ -23,9 +23,9 @@ program mkmandel write(0, *) "-------- making some mandelbrot -------" - allocate(pic(1024, 768)) + allocate(pic(640, 480)) - do angle = 0, 1500 + do angle = 0, 2000 call rgbpix_set_to_zero(pic) @@ -33,10 +33,10 @@ program mkmandel radius = float(angle) / 2000.0 write (filename, "(a, i5.5, a)") "frames/mandel/", angle, ".pnm" ! filename = trim(filename) - write(0,*) "#### passe ", angle, radangle, trim(filename) + write(0,*) "passe ", angle, radangle, trim(filename) - stx = radius * (sin(radangle*2.07) + 0.2131*sin(radangle*7.36)) - sty = radius * (cos(radangle*3.21) + 0.2725*cos(radangle*9.99)) + stx = radius * (sin(radangle*4.07) + 0.2131*sin(radangle*11.36)) + sty = radius * (cos(radangle*6.21) + 0.2725*cos(radangle*10.99)) call mandelbrot_one(pic, complex(stx, sty)) call rgbpix_spit_as_pnm_8 (pic, trim(filename))