finetuning the mandelbrot

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
     ! 

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))

Modules/dummy.f90

@@ -0,0 +1,9 @@
+module dummy
+    implicit none
+contains
+
+subroutine print_dummy
+    print *, 'this is the dummy subroutine'
+end subroutine
+
+end module