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

cramicule is comming !

Browse Source
This commit is contained in:
tTh
2026-06-25 10:09:03 +02:00
parent de43a1810c
commit d7da858380
21 changed files with 66 additions and 48 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
Fraktalism/julias.f90
View File

@@ -93,9 +93,9 @@ subroutine julia_colormapped(pic, cx, cy, mag, maxiter)
endif
end do
if (over_iter) then
pic(ix, iy)%r = mod(int(modulus2(Z)*2000.0), 255)
pic(ix, iy)%g = mod(abs(int(real(Z) *11.0)), 255)
pic(ix, iy)%b = mod(abs(int(aimag(Z)*11.0)), 255)
pic(ix, iy)%r = mod(int(modulus2(Z)*1337.0), 255)
pic(ix, iy)%g = mod(abs(int(real(Z) *17.0)), 255)
pic(ix, iy)%b = mod(abs(int(aimag(Z)*17.0)), 255)
print *, ix, iy, Z, modulus2(Z)
over = over + 1
else