2022-04-12 07:23:01 +11:00
|
|
|
!-----------------------------------------------------
|
|
|
|
|
program essai
|
2022-10-29 06:53:57 +11:00
|
|
|
|
2022-04-12 07:23:01 +11:00
|
|
|
use spitpgm
|
2022-10-29 06:53:57 +11:00
|
|
|
use fraktals
|
|
|
|
|
use points3d
|
|
|
|
|
use xperiment
|
2022-04-12 07:23:01 +11:00
|
|
|
|
|
|
|
|
implicit none
|
|
|
|
|
|
2022-10-29 06:53:57 +11: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
|
|
|
|
|
write (filename, "(a, i5.5, a)") "frames/popcorn/", foo, ".pnm"
|
|
|
|
|
write(0, *) "-------->", trim(filename), "<"
|
|
|
|
|
kx = 50.0 * sin(real(foo)*25.133)
|
|
|
|
|
ky = 50.0 * cos(real(foo)*25.133)
|
|
|
|
|
write(0, *) foo, kx, ky
|
|
|
|
|
call parasites_0(picz, kx, ky, 233)
|
|
|
|
|
call spit_as_pgm_8(picz, trim(filename))
|
|
|
|
|
enddo
|
2022-04-12 07:23:01 +11:00
|
|
|
|
|
|
|
|
!-----------------------------------------------------
|
|
|
|
|
end program
|
