add a "set to rgb" func
This commit is contained in:
parent
9366c67c4b
commit
5c4ff9133c
|
@ -1,5 +1,6 @@
|
||||||
!-
|
!-
|
||||||
! This module try to write PNM complient RGB files
|
! This module try to write PNM complient RGB files
|
||||||
|
! ONLY ASCII MODE IS SUPPORTED !
|
||||||
!-
|
!-
|
||||||
module pixrgb
|
module pixrgb
|
||||||
implicit none
|
implicit none
|
||||||
|
@ -26,6 +27,23 @@ subroutine rgbpix_set_to_zero(pic)
|
||||||
enddo
|
enddo
|
||||||
enddo
|
enddo
|
||||||
end subroutine
|
end subroutine
|
||||||
|
!-------------------------------------------------------------------
|
||||||
|
!-
|
||||||
|
! set all the pixels to a RGB value
|
||||||
|
!-
|
||||||
|
subroutine rgbpix_set_to_rgb(pic, r, g, b)
|
||||||
|
type(t_pixrgb), intent(out) :: pic(:,:)
|
||||||
|
integer, intent(in) :: r, g, b
|
||||||
|
integer :: ix, iy
|
||||||
|
do iy=1, ubound(pic, 2)
|
||||||
|
do ix=1, ubound(pic, 1)
|
||||||
|
pic(ix, iy)%r = r
|
||||||
|
pic(ix, iy)%g = g
|
||||||
|
pic(ix, iy)%b = b
|
||||||
|
enddo
|
||||||
|
enddo
|
||||||
|
end subroutine
|
||||||
|
|
||||||
!-------------------------------------------------------------------
|
!-------------------------------------------------------------------
|
||||||
!-
|
!-
|
||||||
! NOT TESTED !!!
|
! NOT TESTED !!!
|
||||||
|
|
Loading…
Reference in New Issue