tTh/Fortraneries
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

more compact PNM8 file

Browse Source
This commit is contained in:
tTh 2024-01-06 18:47:47 +01:00
parent 2d7739dd1d
commit f95dc7ed2a
2 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
Modules/chkpixels.f90
View File

@ -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

3
Modules/pixrgb.f90
View File

@ -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)