trying a new picture noiser
This commit is contained in:
parent
c2d6abdedb
commit
86b1e9e011
|
@ -2,16 +2,14 @@
|
||||||
|
|
||||||
set -e
|
set -e
|
||||||
|
|
||||||
make essai
|
make noisepic
|
||||||
|
|
||||||
for foo in $(seq 0 89)
|
for foo in $(seq 0 89)
|
||||||
do
|
do
|
||||||
./essai $foo > a.scratch
|
|
||||||
fname=$(printf "F/%04d.tga" $foo)
|
./noisepic $foo
|
||||||
echo $fname
|
|
||||||
genplot2 -s 640x480 a.scratch $fname
|
|
||||||
|
|
||||||
done
|
done
|
||||||
|
|
||||||
convert -delay 10 F/????.tga foo.gif
|
convert -delay 10 F/np/*.pnm foo.gif
|
||||||
|
|
||||||
|
|
|
@ -6,9 +6,9 @@ program noisepic
|
||||||
|
|
||||||
integer :: numframe = 0
|
integer :: numframe = 0
|
||||||
|
|
||||||
integer :: nbarg
|
integer :: nbarg, nbre
|
||||||
character(len=256) :: arg
|
character(len=256) :: arg
|
||||||
|
integer :: ranges(6)
|
||||||
|
|
||||||
nbarg = IARGC()
|
nbarg = IARGC()
|
||||||
if (nbarg .GT. 0) then
|
if (nbarg .GT. 0) then
|
||||||
|
@ -17,7 +17,11 @@ program noisepic
|
||||||
read (arg, *) numframe
|
read (arg, *) numframe
|
||||||
endif
|
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
|
contains
|
||||||
!-- ------------------------------------------------------------------
|
!-- ------------------------------------------------------------------
|
||||||
|
@ -111,6 +115,55 @@ subroutine plot_noise_color_pic(prgb, nbre)
|
||||||
|
|
||||||
enddo
|
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
|
end subroutine
|
||||||
|
|
||||||
!-- ------------------------------------------------------------------
|
!-- ------------------------------------------------------------------
|
||||||
|
|
Loading…
Reference in New Issue