more compact PNM8 file
This commit is contained in:
parent
2d7739dd1d
commit
f95dc7ed2a
|
@ -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'
|
||||
|
@ -59,8 +59,8 @@ contains
|
|||
value = value + increment
|
||||
enddo
|
||||
enddo
|
||||
call spit_as_pgm_16 (greymap, 'a.pnm')
|
||||
call spit_as_pgm_eq (greymap, 'b.pnm')
|
||||
! call spit_as_pgm_16 (greymap, 'a.pnm')
|
||||
! call spit_as_pgm_eq (greymap, 'b.pnm')
|
||||
call spit_as_pgm_8 (greymap, 'c.pnm')
|
||||
call new_spit_a (greymap, 'x.pnm')
|
||||
end subroutine
|
||||
|
|
|
@ -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)
|
||||
|
|
Loading…
Reference in New Issue