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

more compact PNM16 file

Browse Source
This commit is contained in:
tTh 2024-01-06 02:52:50 +01:00
parent 7ee4fefaa4
commit 9c148c3d7e
2 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
Modules/chkpixels.f90
View File

@ -11,7 +11,7 @@ program chkpixels
implicit none implicit none
write(0, *) "------ CHKPIXELS ------" write(0, *) "------ CHKPIXELS ------"
call test_spit_as(3) ! call test_spit_as(3)
call test_spit_rgb(128, 222) call test_spit_rgb(128, 222)
STOP 'BECAUSE NO CPU AVAILABLE' STOP 'BECAUSE NO CPU AVAILABLE'
@ -37,7 +37,8 @@ contains
pixrgb(ix, iy)%b = iy pixrgb(ix, iy)%b = iy
end do end do
end do end do
call rgbpix_spit_as_pnm_8(pixrgb, "rgb.pnm") call rgbpix_spit_as_pnm_8(pixrgb, "rgb8.pnm")
call rgbpix_spit_as_pnm_16(pixrgb, "rgb16.pnm")
deallocate(pixrgb) deallocate(pixrgb)
end subroutine end subroutine

3
Modules/pixrgb.f90
View File

@ -102,7 +102,8 @@ subroutine rgbpix_spit_as_pnm_16(pic, fname)
do iy=1, ubound(pic, 2) do iy=1, ubound(pic, 2)
do ix=1, ubound(pic, 1) do ix=1, ubound(pic, 1)
write(io, "(3I6)") pic(ix, iy)%r, pic(ix, iy)%g, pic(ix, iy)%b write(io, "(I0,' ', I0,' ',I0)") &
pic(ix, iy)%r, pic(ix, iy)%g, pic(ix, iy)%b
enddo enddo
enddo enddo
close(unit=io) close(unit=io)