more compact PNM16 file

2024-01-06 02:52:50 +01:00
parent 7ee4fefaa4
commit 9c148c3d7e
2 changed files with 5 additions and 3 deletions
--- a/Modules/pixrgb.f90
+++ b/Modules/pixrgb.f90
@@ -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)