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

soundscope, first try ok

Browse Source
This commit is contained in:
tTh
2023-12-24 20:53:27 +01:00
parent 123b97cce2
commit 9629d6ca97
5 changed files with 165 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

27
GrafAnim/utils_ga.f90
View File

@@ -22,8 +22,8 @@ function fair_random_gauss(hilevel)
integer :: fair_random_gauss
integer :: foo, bar
foo = int(rand()*hilevel/2)
bar = int(rand()*hilevel/2)
foo = int((rand()*hilevel)/2)
bar = int((rand()*hilevel)/2)
fair_random_gauss = 1 + foo + bar
end function
@@ -38,4 +38,27 @@ subroutine increment_pixel(pix, k)
end subroutine
! -------------------------------------------------------------------
subroutine dim_pix_rgb(pix, k)
type(t_pixrgb), intent(inout) :: pix(:,:)
integer,intent(in) :: k
integer :: ix, iy
! write(0, *) "dim pixrgb", k
do ix=1, ubound(pix, 1)
do iy=1, ubound(pix, 2)
if (pix(ix,iy)%r .GT. k) then
pix(ix,iy)%r = pix(ix,iy)%r - k
endif
if (pix(ix,iy)%g .GT. k) then
pix(ix,iy)%g = pix(ix,iy)%g - k
endif
if (pix(ix,iy)%b .GT. k) then
pix(ix,iy)%b = pix(ix,iy)%b - k
endif
enddo
enddo
end subroutine
! -------------------------------------------------------------------
end module