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

some clean after erratic modifications

Browse Source
This commit is contained in:
tTh
2022-12-17 10:35:44 +01:00
parent a1f5030300
commit 6d935e5fd0
6 changed files with 26 additions and 19 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
Fraktalism/fraktals.f90
View File

@@ -26,7 +26,7 @@ subroutine parasites_0(pic, cx, cy, maxiter)
! write(0, *) "constantes", cx, cy
width = ubound(pic, 1) ; height = ubound(pic, 2)
coef = float(maxiter)
coef = float(maxiter) / 12.3456789
do ix = 1, width
fx = cx + (float(ix) / (float(width)/4.0) - 2.0)
@@ -35,9 +35,9 @@ subroutine parasites_0(pic, cx, cy, maxiter)
fy = cy + (float(iy) / (float(height)/4.0) - 2.0)
if (burps) then
pic(ix, iy) = int(fx * fy * coef * 1.005)
pic(ix, iy) = mod(int(fx * fy * coef * 1.005), 250)
else
pic(ix, iy) = int(fx * fy * coef)
pic(ix, iy) = mod(int(fx * fy * coef), 250)
endif
enddo
@@ -45,7 +45,6 @@ subroutine parasites_0(pic, cx, cy, maxiter)
end subroutine parasites_0
!===============================================================
subroutine simple_julia(pic, cx, cy, maxiter)