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

hop vendredi, mise en prod

Browse Source
This commit is contained in:
tTh
2022-12-16 21:16:02 +01:00
parent e780a79273
commit a1f5030300
4 changed files with 17 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
GravityField/essai.f90
View File

@@ -12,7 +12,7 @@ program essai
call init_random()
call essai_near_planet(256, 1024)
call essai_near_planet(1024, 1024)
STOP 'BECAUSE YOLO'
@@ -64,9 +64,9 @@ subroutine essai_near_planet(nbplanets, szfield)
endif
end do ! loop on ipl
cmap(ix, iy)%r = mod(near*2, 255)
cmap(ix, iy)%g = mod(near*3, 255)
cmap(ix, iy)%b = mod(near*4, 255)
cmap(ix, iy)%r = mod(near*4, 255)
cmap(ix, iy)%g = mod(near*7, 255)
cmap(ix, iy)%b = mod(near*11, 255)
enddo