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

minor changes

Browse Source
This commit is contained in:
tTh
2023-02-11 20:28:05 +01:00
parent 18ec65d612
commit c05d80a223
6 changed files with 6 additions and 79 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
Fraktalism/mods/xperiment.f90
View File

@@ -8,8 +8,6 @@ module xperiment
subroutine parasites_1(pic, cx, cy, maxiter)
implicit none
! here is the wtf
integer, intent(inout), dimension (:,:) :: pic
real, intent(in) :: cx, cy
@@ -23,22 +21,18 @@ subroutine parasites_1(pic, cx, cy, maxiter)
width = ubound(pic, 1) ; height = ubound(pic, 2)
coef = float(maxiter)
do ix = 1, width
fx = cx + (float(ix) / (float(width)/4.0) - 2.0)
burps = (RAND() .lt. 0.01)
do iy = 1, height
fy = cy + (float(iy) / (float(height)/4.0) - 2.0)
if (burps) then
pic(ix, iy) = int(fx * fy * coef * 1.005)
else
pic(ix, iy) = int(fx * fy * coef)
endif
enddo
enddo
end subroutine parasites_1
!---------------------------------------------------------------
@@ -52,13 +46,9 @@ subroutine loop_of_parasites_1(nbre, mode)
integer :: idx
if (mode .NE. 0) STOP "BAD MODE"
do idx = 0, nbre
write(0, *) "popcorn loop ", idx
enddo
end subroutine loop_of_parasites_1
!===============================================================