Fortraneries/Fraktalism/essai.f90

37 lines
1009 B
Fortran
Raw Normal View History

2022-04-11 22:23:01 +02:00
!-----------------------------------------------------
program essai
2022-10-28 21:53:57 +02:00
2022-11-30 02:53:05 +01:00
use spitpgm ! XXX moved in ../Modules
2022-10-28 21:53:57 +02:00
use fraktals
use points3d
use xperiment
2022-04-11 22:23:01 +02:00
implicit none
2022-10-28 21:53:57 +02:00
integer, dimension(:,:), allocatable :: picz
integer :: W, H, foo
integer :: errcode
character(200) :: filename
real :: kx, ky
write(0, *) "============= essai =============="
W = 320 ; H = 240
call srand(666)
allocate(picz(W,H), stat=errcode)
do foo=1, 360
2022-12-17 10:35:44 +01:00
write (filename, "(a, i5.5, a)") "frames/popcorn/", foo-1, ".pnm"
2022-10-28 21:53:57 +02:00
write(0, *) "-------->", trim(filename), "<"
2022-12-17 12:08:44 +01:00
kx = 50.0 * sin(real(foo)*21.133)
ky = 50.0 * cos(real(foo)*26.133)
2022-10-28 21:53:57 +02:00
write(0, *) foo, kx, ky
call parasites_0(picz, kx, ky, 233)
call spit_as_pgm_8(picz, trim(filename))
enddo
2022-04-11 22:23:01 +02:00
!-----------------------------------------------------
end program