add a new effect
This commit is contained in:
tTh
@@ -11,7 +11,7 @@ program soundscope
|
||||
|
||||
integer :: width = 720
|
||||
integer :: height = 576
|
||||
integer :: marge = 20
|
||||
integer :: marge = 32
|
||||
integer :: samplerate = 44100
|
||||
integer :: framerate = 30
|
||||
|
||||
@@ -25,14 +25,14 @@ program soundscope
|
||||
smppf = samplerate / framerate
|
||||
|
||||
allocate(pix(width, height))
|
||||
call preparation(pix, 65000)
|
||||
call fill_random_gauss(pix, 65000, marge)
|
||||
|
||||
iter = 0
|
||||
do
|
||||
write(0, *) "----- iteration", iter, " -----"
|
||||
iter = iter + 1
|
||||
|
||||
do foo=0, 500
|
||||
do foo=0, 100
|
||||
tx = (marge/2) + fair_random_gauss(width-marge)
|
||||
ty = (marge/2) + fair_random_gauss(height-marge)
|
||||
if (is_pixel_inside(tx, ty)) then
|
||||
@@ -45,9 +45,14 @@ program soundscope
|
||||
endif
|
||||
enddo
|
||||
|
||||
call dim_pix_rgb_sub(pix, 2200)
|
||||
call make_a_frame(pix, smppf, flagdone)
|
||||
call dessine_cadre(pix, 65000, 65000, 65000)
|
||||
call dim_pix_rgb_mul(pix, 0.86)
|
||||
if (mod(iter, 180) .LT. 90) then
|
||||
call make_a_frame_dplot(pix, smppf, flagdone)
|
||||
else
|
||||
call make_a_frame_xy(pix, smppf, flagdone)
|
||||
endif
|
||||
|
||||
call dessine_cadre(pix, 65000, 65000, 65000, marge)
|
||||
write (filename, "(a,i5.5,a)") "./F/np/", iter, ".pnm"
|
||||
call rgbpix_spit_as_pnm_16(pix, filename)
|
||||
|
||||
@@ -63,7 +68,7 @@ contains
|
||||
!-- ------------------------------------------------------------------
|
||||
!--
|
||||
|
||||
subroutine make_a_frame(image, nbdata, jobdone)
|
||||
subroutine make_a_frame_xy(image, nbdata, jobdone)
|
||||
type(t_pixrgb), intent(inout) :: image(:,:)
|
||||
integer, intent(in) :: nbdata
|
||||
logical, intent(out) :: jobdone
|
||||
@@ -82,20 +87,16 @@ subroutine make_a_frame(image, nbdata, jobdone)
|
||||
exit
|
||||
endif
|
||||
|
||||
if ( (idx .LT. 160) .AND. &
|
||||
! add flash !
|
||||
if ( (idx .LT. 100) .AND. &
|
||||
((abs(vl).GT.21000).OR.(abs(vr).GT.21000)) ) then
|
||||
!-
|
||||
! add flash !
|
||||
write(0,*) "overshoot!"
|
||||
call preparation(image, 65000)
|
||||
call fill_random_gauss(image, 65000, marge)
|
||||
endif
|
||||
|
||||
! scale it to the window
|
||||
ix = (2 * int(vl / 111.111)) + 400
|
||||
ix = width - ((2 * int(vl / 111.111)) + 400)
|
||||
iy = (2 * int(vr / 166.666)) + 300
|
||||
ix = width - ix
|
||||
! write(6, *) vl, ix, " | ", vr, iy
|
||||
|
||||
if (is_pixel_inside(ix, iy)) then
|
||||
call make_big_dot(image, ix, iy)
|
||||
endif
|
||||
@@ -104,15 +105,63 @@ subroutine make_a_frame(image, nbdata, jobdone)
|
||||
end subroutine
|
||||
|
||||
!-- ------------------------------------------------------------------
|
||||
!-- ------------------------------------------------------------------
|
||||
!--
|
||||
|
||||
subroutine dessine_cadre(image, R, G, B)
|
||||
subroutine make_a_frame_dplot(image, nbdata, jobdone)
|
||||
type(t_pixrgb), intent(inout) :: image(:,:)
|
||||
integer,intent(in) :: R, G, B
|
||||
integer, intent(in) :: nbdata
|
||||
logical, intent(out) :: jobdone
|
||||
integer :: idx, errcode
|
||||
real :: vl, vr
|
||||
integer :: il, ir, xpos
|
||||
|
||||
jobdone = .FALSE.
|
||||
xpos = 1
|
||||
|
||||
do idx=0, nbdata
|
||||
! get a sample
|
||||
read(5, *, iostat=errcode) vl, vr
|
||||
if (0 .NE. errcode) then
|
||||
write(0, *) "iostat", errcode
|
||||
jobdone = .TRUE.
|
||||
exit
|
||||
endif
|
||||
! add flash !
|
||||
if ( (idx .LT. 100) .AND. &
|
||||
((abs(vl).GT.21000).OR.(abs(vr).GT.21000)) ) then
|
||||
write(0,*) "overshoot!"
|
||||
call fill_random_gauss(image, 65000, marge)
|
||||
endif
|
||||
|
||||
if (xpos .LT. width) then
|
||||
! scale it to the window
|
||||
il = int((vl/65536.9) * real(height)) + height/2
|
||||
ir = int((vr/65536.9) * real(height)) + height/2
|
||||
! print *, vl, il, " | ", vr, ir
|
||||
if (is_pixel_inside(xpos, il)) then
|
||||
call make_big_dot(image, xpos, il)
|
||||
endif
|
||||
if (is_pixel_inside(xpos, ir)) then
|
||||
call make_big_dot(image, xpos, ir)
|
||||
endif
|
||||
xpos = xpos + 1
|
||||
endif
|
||||
|
||||
enddo
|
||||
|
||||
end subroutine
|
||||
|
||||
!-- ------------------------------------------------------------------
|
||||
|
||||
subroutine dessine_cadre(image, R, G, B, border)
|
||||
type(t_pixrgb), intent(inout) :: image(:,:)
|
||||
integer,intent(in) :: R, G, B, border
|
||||
|
||||
integer :: ix, iy, foo
|
||||
|
||||
foo = ubound(image, 2) - marge
|
||||
do ix=1+marge, ubound(image, 1) - marge
|
||||
foo = ubound(image, 2) - border
|
||||
do ix=1+marge, ubound(image, 1) - border
|
||||
image(ix, marge)%r = R
|
||||
image(ix, marge)%g = G
|
||||
image(ix, marge)%b = B
|
||||
@@ -121,8 +170,8 @@ subroutine dessine_cadre(image, R, G, B)
|
||||
image(ix, foo)%b = B
|
||||
enddo
|
||||
|
||||
foo = ubound(image, 1) - marge
|
||||
do iy=1+marge, ubound(image, 2)-marge
|
||||
foo = ubound(image, 1) - border
|
||||
do iy=1+marge, ubound(image, 2)-border
|
||||
image(marge, iy)%r = R
|
||||
image(marge, iy)%g = G
|
||||
image(marge, iy)%b = B
|
||||
@@ -153,25 +202,6 @@ end function
|
||||
|
||||
!-- ------------------------------------------------------------------
|
||||
|
||||
subroutine preparation(image, mval)
|
||||
type(t_pixrgb), intent(inout) :: image(:,:)
|
||||
integer,intent(in) :: mval
|
||||
integer :: ix, iy
|
||||
|
||||
write(0, *) "dim 1 =", ubound(image, 1)
|
||||
write(0, *) "dim 2 =", ubound(image, 2)
|
||||
|
||||
do ix=1, ubound(image, 1)
|
||||
do iy=1, ubound(image, 2)
|
||||
image(ix, iy)%r = fair_random_gauss(mval)
|
||||
image(ix, iy)%g = fair_random_gauss(mval)
|
||||
image(ix, iy)%b = fair_random_gauss(mval)
|
||||
enddo
|
||||
enddo
|
||||
|
||||
end subroutine
|
||||
|
||||
!-- ------------------------------------------------------------------
|
||||
|
||||
!-- ------------------------------------------------------------------
|
||||
|
||||
|
||||
Reference in New Issue
Block a user