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/chkpixels.f90
+++ b/Modules/chkpixels.f90
@@ -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