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

2
Fraktalism/essai.f90
View File

@@ -23,7 +23,7 @@ program essai
allocate(picz(W,H), stat=errcode)
do foo=1, 360
write (filename, "(a, i5.5, a)") "frames/popcorn/", foo, ".pnm"
write (filename, "(a, i5.5, a)") "frames/popcorn/", foo-1, ".pnm"
write(0, *) "-------->", trim(filename), "<"
kx = 50.0 * sin(real(foo)*25.133)
ky = 50.0 * cos(real(foo)*25.133)