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

trying a new picture noiser

Browse Source
This commit is contained in:
tTh 2023-06-02 19:29:36 +02:00
parent c2d6abdedb
commit 86b1e9e011
2 changed files with 60 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
GrafAnim/go.sh
View File

@ -2,16 +2,14 @@
set -e
make essai
make noisepic
for foo in $(seq 0 89)
do
./essai $foo > a.scratch
fname=$(printf "F/%04d.tga" $foo)
echo $fname
genplot2 -s 640x480 a.scratch $fname
./noisepic $foo
done
convert -delay 10 F/????.tga foo.gif
convert -delay 10 F/np/*.pnm foo.gif

59
GrafAnim/noisepic.f90
View File

@ -6,9 +6,9 @@ program noisepic
integer :: numframe = 0
integer :: nbarg
integer :: nbarg, nbre
character(len=256) :: arg
integer :: ranges(6)
nbarg = IARGC()
if (nbarg .GT. 0) then
@ -17,7 +17,11 @@ program noisepic
read (arg, *) numframe
endif
call make_noise_color_pic(numframe)
ranges(0) = 10 ; ranges(2) = 90
ranges(3) = 110 ; ranges(4) = 166
ranges(5) = 205 ; ranges(6) = 230
nbre = 1000+(numframe*555)
call make_noise_color_range_pic(numframe, ranges, nbre)
contains
!-- ------------------------------------------------------------------
@ -111,6 +115,55 @@ subroutine plot_noise_color_pic(prgb, nbre)
enddo
end subroutine
!-- ------------------------------------------------------------------
!-
!- Colorized with range
!-
subroutine plot_noise_color_range_pic(prgb, nbre)
implicit none
type(t_pixrgb), dimension(:,:), intent(inout) :: prgb
integer, intent(in) :: nbre
integer :: quux, ix, iy, width, height
width = ubound(prgb, 1) ; height = ubound(prgb, 2)
do quux=1, nbre
ix = 1 + mod ( irand(), width )
iy = 1 + mod ( irand(), height )
prgb(ix, iy)%r = 64 + mod ( irand(), 127 )
prgb(ix, iy)%g = 64 + mod ( irand(), 127 )
prgb(ix, iy)%b = 64 + mod ( irand(), 127 )
enddo
end subroutine
!-- ------------------------------------------------------------------
subroutine make_noise_color_range_pic (value, rngs, nbre)
implicit none
integer, intent(in) :: value, nbre
integer, intent(in) :: rngs(6)
integer :: foo
type(t_pixrgb), allocatable :: pix(:,:)
character (len=280) :: filename
allocate(pix(320, 240))
call rgbpix_set_to_rgb(pix, 0, 0, 0)
call srand(value+34)
foo = irand()
print *, 'color_range: val=', value, 'rnd=', foo, 'nbre=', nbre
write (filename, "(a, i5.5, a)") "./F/np/", value, ".pnm"
print *, 'filename: ', trim(filename)
call plot_noise_color_range_pic(pix, nbre)
call rgbpix_spit_as_pnm_8(pix, trim(filename))
deallocate(pix)
end subroutine
!-- ------------------------------------------------------------------