tTh/Fortraneries
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

small update on mandelbrot

Browse Source
This commit is contained in:
tTh
2025-01-20 21:31:20 +01:00
parent 2c187e01bc
commit c3f27c9843
3 changed files with 5 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
Fraktalism/encode.sh
View File

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

2
Fraktalism/mandelbrots.f90
View File

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

6
Fraktalism/mkmandel.f90
View File

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