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

cosmetic tuning

Browse Source
This commit is contained in:
tTh 2022-12-17 12:08:44 +01:00
parent 6d935e5fd0
commit 252ea6d764
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Fraktalism/essai.f90
View File

@ -25,8 +25,8 @@ program essai
do foo=1, 360 do foo=1, 360
write (filename, "(a, i5.5, a)") "frames/popcorn/", foo-1, ".pnm" write (filename, "(a, i5.5, a)") "frames/popcorn/", foo-1, ".pnm"
write(0, *) "-------->", trim(filename), "<" write(0, *) "-------->", trim(filename), "<"
kx = 50.0 * sin(real(foo)*25.133) kx = 50.0 * sin(real(foo)*21.133)
ky = 50.0 * cos(real(foo)*25.133) ky = 50.0 * cos(real(foo)*26.133)
write(0, *) foo, kx, ky write(0, *) foo, kx, ky
call parasites_0(picz, kx, ky, 233) call parasites_0(picz, kx, ky, 233)
call spit_as_pgm_8(picz, trim(filename)) call spit_as_pgm_8(picz, trim(filename))