small update on mandelbrot

Fraktalism/encode.sh

@@ -36,7 +36,7 @@ TITLE='---{ experimental }---'
 
 ffmpeg  -nostdin					\
 	-loglevel warning				\
-	-y -r 30 -f image2 -i $SDIR/%05d.png 		\
+	-y -r 30 -f image2 -i $SDIR/%05d.pnm 		\
 	-metadata artist='---{ tTh }---'		\
 	-metadata title="${TITLE}"			\
  	-preset veryslow				\

Fraktalism/mandelbrots.f90

@@ -69,7 +69,7 @@ subroutine mandelbrot_one(pic, start)
                 pic(ix, iy)%b = mod(iter*7,  255)
             else
                 rval = (sqrt(mod2) + abs(real(start)*aimag(start))) * 9e2
-                pic(ix, iy)%g = mod(int(rval), 210) 
+                pic(ix, iy)%g = mod(int(rval), 255) 
                 ! pic(ix, iy)%g = mod(iter, 255)
                 ! pic(ix, iy)%b = mod(iter*11, 255)
             endif

Fraktalism/mkmandel.f90

@@ -23,7 +23,7 @@ program mkmandel
 
     write(0, *) "-------- making some mandelbrot -------"
 
-    allocate(pic(640, 480))
+    allocate(pic(1920, 1080))
 
     do angle = 0, 2000
 
@@ -35,8 +35,8 @@ program mkmandel
         ! filename = trim(filename)
         write(0,*) "passe ", angle, radangle, trim(filename)
 
-        stx = radius * (sin(radangle*4.07) + 0.2131*sin(radangle*11.36))
-        sty = radius * (cos(radangle*6.21) + 0.2725*cos(radangle*10.99))
+        stx = radius * (sin(radangle*4.07) + 0.2131*cos(radangle*11.36))
+        sty = radius * (sin(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))