more compact PNM8 file

2024-01-06 18:47:47 +01:00
parent 2d7739dd1d
commit f95dc7ed2a
2 changed files with 5 additions and 4 deletions
--- a/Modules/pixrgb.f90
+++ b/Modules/pixrgb.f90
@@ -77,7 +77,8 @@ subroutine rgbpix_spit_as_pnm_8(pic, fname)

  do iy=1, ubound(pic, 2)
    do ix=1, ubound(pic, 1)
-      write(io, "(3I5)") 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)