more compact PNM16 file
This commit is contained in:
parent
7ee4fefaa4
commit
9c148c3d7e
|
@ -11,7 +11,7 @@ program chkpixels
|
|||
implicit none
|
||||
|
||||
write(0, *) "------ CHKPIXELS ------"
|
||||
call test_spit_as(3)
|
||||
! call test_spit_as(3)
|
||||
call test_spit_rgb(128, 222)
|
||||
|
||||
STOP 'BECAUSE NO CPU AVAILABLE'
|
||||
|
@ -37,7 +37,8 @@ contains
|
|||
pixrgb(ix, iy)%b = iy
|
||||
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)
|
||||
|
||||
end subroutine
|
||||
|
|
|
@ -102,7 +102,8 @@ subroutine rgbpix_spit_as_pnm_16(pic, fname)
|
|||
|
||||
do iy=1, ubound(pic, 2)
|
||||
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
|
||||
close(unit=io)
|
||||
|
|
Loading…
Reference in New Issue