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

rgbpix: buffered write un production

Browse Source
This commit is contained in:
tTh
2024-01-17 01:13:49 +01:00
parent 4c13892c9d
commit 2b7012667a
5 changed files with 76 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
Modules/chkpixels.f90
View File

@@ -11,8 +11,8 @@ program chkpixels
implicit none
write(0, *) "------ CHKPIXELS ------"
call test_spit_as(3)
call test_spit_rgb(128, 222)
! call test_spit_gray(3)
call test_spit_rgb16(1100, 512)
STOP 'BECAUSE NO CPU AVAILABLE'
@@ -21,7 +21,7 @@ contains
!-
! exerciser for the 'pixrgb' module
!-
subroutine test_spit_rgb(sz, kg)
subroutine test_spit_rgb16(sz, kg)
integer, intent(in) :: sz, kg
type(t_pixrgb), allocatable :: pixrgb(:,:)
@@ -30,15 +30,17 @@ contains
print *, "test spit rgb", sz
allocate(pixrgb(sz, sz))
call rgbpix_set_to_zero(pixrgb)
do ix=1, sz
do iy=1, sz
pixrgb(ix, iy)%r = ix
pixrgb(ix, iy)%g = mod(ix*iy, kg)
pixrgb(ix, iy)%b = iy
pixrgb(ix, iy)%r = mod(ix * iy, 65000)
if (ix.EQ.iy) pixrgb(ix, iy)%g = 65000
pixrgb(ix, iy)%b = mod ((ix*iy) * 13, 65000)
end do
end do
call rgbpix_spit_as_pnm_8(pixrgb, "rgb8.pnm")
call rgbpix_spit_as_pnm_16(pixrgb, "rgb16.pnm")
call rgbpix_spit_as_pnm_16 (pixrgb, "current-rgb16.pnm")
call new_spit_rgb16 (pixrgb, "experiment-rgb16.pnm")
deallocate(pixrgb)
end subroutine