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

sounscope, second try ok

Browse Source
This commit is contained in:
tTh
2024-01-02 10:14:43 +01:00
parent 9629d6ca97
commit bd581ee2bd
2 changed files with 139 additions and 52 deletions
Download Patch File Download Diff File Expand all files Collapse all files

65
GrafAnim/utils_ga.f90
View File

@@ -37,8 +37,53 @@ subroutine increment_pixel(pix, k)
end subroutine
! -------------------------------------------------------------------
subroutine make_red_dot(image, ix, iy)
type(t_pixrgb), intent(inout) :: image(:,:)
integer, intent(in) :: ix, iy
subroutine dim_pix_rgb(pix, k)
image(ix, iy)%r = 65000
image(ix+1, iy)%r = 65000
image(ix-1, iy)%r = 65000
image(ix+2, iy)%r = 65000
image(ix-2, iy)%r = 65000
end subroutine
!-- ------------------------------------------------------------------
subroutine make_blue_dot(image, ix, iy)
type(t_pixrgb), intent(inout) :: image(:,:)
integer, intent(in) :: ix, iy
image(ix, iy)%b = 65000
image(ix, iy+1)%b = 65000
image(ix, iy-1)%b = 65000
image(ix, iy+2)%b = 65000
image(ix, iy-2)%b = 65000
end subroutine
!-- ------------------------------------------------------------------
subroutine make_big_dot(image, ix, iy)
type(t_pixrgb), intent(inout) :: image(:,:)
integer, intent(in) :: ix, iy
image(ix, iy)%g = 65000
image(ix-1, iy)%g = 56000
image(ix, iy-1)%g = 56000
image(ix+1, iy)%g = 56000
image(ix, iy+1)%g = 56000
image(ix+1, iy+1)%g = 24000
image(ix-1, iy+1)%g = 24000
image(ix+1, iy-1)%g = 24000
image(ix-1, iy-1)%g = 24000
end subroutine
!-- ------------------------------------------------------------------
subroutine dim_pix_rgb_sub(pix, k)
type(t_pixrgb), intent(inout) :: pix(:,:)
integer,intent(in) :: k
integer :: ix, iy
@@ -60,5 +105,23 @@ subroutine dim_pix_rgb(pix, k)
enddo
end subroutine
! -------------------------------------------------------------------
subroutine dim_pix_rgb_mul(pix, fk)
type(t_pixrgb), intent(inout) :: pix(:,:)
real,intent(in) :: fk
integer :: ix, iy
! write(0, *) "dim pixrgb", k
do ix=1, ubound(pix, 1)
do iy=1, ubound(pix, 2)
enddo
enddo
end subroutine
! -------------------------------------------------------------------
end module