From c3f27c98430b9b0a3b1a35f78dce39909518b0a5 Mon Sep 17 00:00:00 2001 From: tTh Date: Mon, 20 Jan 2025 21:31:20 +0100 Subject: [PATCH] small update on mandelbrot --- Fraktalism/encode.sh | 2 +- Fraktalism/mandelbrots.f90 | 2 +- Fraktalism/mkmandel.f90 | 6 +++--- 3 files changed, 5 insertions(+), 5 deletions(-) diff --git a/Fraktalism/encode.sh b/Fraktalism/encode.sh index 381871b..164f246 100755 --- a/Fraktalism/encode.sh +++ b/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 \ diff --git a/Fraktalism/mandelbrots.f90 b/Fraktalism/mandelbrots.f90 index 46e8c75..7b45b8d 100644 --- a/Fraktalism/mandelbrots.f90 +++ b/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 diff --git a/Fraktalism/mkmandel.f90 b/Fraktalism/mkmandel.f90 index 8068a0b..f366a3d 100644 --- a/Fraktalism/mkmandel.f90 +++ b/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))